56 files changed, 6977 insertions, 3404 deletions

diff --git a/Makefile b/Makefile
index 8ed18bb5..10640e0d 100644
--- a/Makefile
+++ b/Makefile
@@ -1,29 +1,11 @@
-OBJS= hash.o inout.o lex_yy.o opcode.o table.o y_tab.o lua.o iolib.o mathlib.o strlib.o
+# makefile for lua hierarchy
 
-CFLAGS= -O2 -I.
-
-T= lua
-
-all:	$T
-
-$T:	$(OBJS)
-	$(CC) -o $@ $(OBJS) -lm
-
-A=--------------------------------------------------------------------------
-test:	$T
-	@echo "$A"
-	./$T sort.lua main
-	@echo "$A"
-	./$T globals.lua | sort | column
-	@echo "$A"
-	./$T array.lua
-	@echo "$A"
-	./$T save.lua
-	@echo "$A"
-	./$T test.lua retorno_multiplo norma
+all:
+	(cd src; make)
+	(cd clients/lib; make)
+	(cd clients/lua; make)
 
 clean:
-	rm -f $T $(OBJS) core core.*
-
-diff:
-	diff . fixed | grep -v ^Only
+	(cd src; make clean)
+	(cd clients/lib; make clean)
+	(cd clients/lua; make clean)
diff --git a/README b/README
index 29ad01d5..3b8ad6aa 100644
--- a/README
+++ b/README
@@ -1,22 +1,47 @@
-This is Lua 1.0. It was never publicly released. This code is a snapshot of
-the status of Lua on 28 Jul 1993. It is distributed for historical curiosity
-to celebrate 10 years of Lua and is hereby placed in the public domain.
+* What is Lua?
+  Lua is a simple, yet powerful, language for extending applications.
+  Lua has been developed by TeCGraf, the Computer Graphics Technology Group
+  of PUC-Rio, the Pontifical Catholic University of Rio de Janeiro, Brazil.
+  Dozens of industrial products developed by TeCGraf use Lua.
 
-There is no documentation, except the test programs. The manual for Lua 1.1
-probably works for this version as well.
+* Some features of Lua
+  Lua has a simple, pascal-like, syntax.
+  Variables need no declaration, but Lua has user-controlled type constructors.
+  Lua has powerful data description constructs (e.g., associative arrays).
+  Functions can receive a variable number of arguments and can return multiple
+  values.
+  Lua programs are compiled into bytecodes, which are then interpreted to
+  simulate a virtual machine.
+  Lua is written in ANSI C and is completely portable.
 
-The source files for the lexer and parser have been lost: all that is left is
-the output of lex and yacc. A grammar can be found inside y_tab.c in yyreds.
+* Coming soon
+  Object-oriented extensions.
+  Lazy evaluation.
 
-The code compiles and runs in RedHat 5.2 with gcc 2.7.2.3. It may not run in
-newer systems, because it assumes that stdin and stdout are constants, though
-ANSI C does not promise they are. If make fails, try using the fixed modules
-provided in the "fixed" directory. To see the differences (which are really
-quite minor), do "make diff".
+* Installing
+  To make, simply type domake.
+  If make succeeds, you get an interpreter in ./bin/lua.
+  The libraries are in ./lib.  The include files are in ./include.
+  You don't need the other directories for development.
+  There is documentation in ./doc and tests in ./test.
+  The documentation includes a reference manual and an article on the
+  design and implementation of Lua.
+  This distribution is biased towards SunOS 4 with gcc but it is simple to
+  change the Makefiles for other systems.
 
-To see Lua 1.0 in action, do "make test". (The last test raises an error on
-purpose.)
+* Legal matters
+  Lua is not in the public domain;  TeCGraf keeps its copyright.
+  Nevertheless, Lua is freely available for academic purposes by anonymous ftp
+  at ftp.icad.puc-rio.br:/pub/lua/lua-1.1.tar.Z.
+  For commercial purposes, please contact us.
 
-Enjoy!
+* Contacting the authors
+  Send your comments, bug reports and anything else to lhf@icad.puc-rio.br.
+  Please send me email if you download Lua so that we can know how far it goes.
 
--- The Lua team, lua@tecgraf.puc-rio.br
+--
+Luiz Henrique de Figueiredo                          email: lhf@icad.puc-rio.br
+TeCGraf-Grupo de Tecnologia em Computacao Grafica, ITS, PUC-Rio
+Rua Marques de Sao Vicente 225                       voice: +55 21 529-9424
+22453-900 Rio de Janeiro, RJ, Brasil                   fax: +55 21 511-5645
+--
diff --git a/clients/lib/Makefile b/clients/lib/Makefile
new file mode 100644
index 00000000..4110a62f
--- /dev/null
+++ b/clients/lib/Makefile
@@ -0,0 +1,23 @@
+# makefile for lualib
+
+INC= $(LUA)/include
+LIB= $(LUA)/lib
+
+CC= gcc
+CFLAGS= -Wall -O2 -I$(INC) $(DEFS)
+
+OBJS= iolib.o mathlib.o strlib.o
+SLIB= $(LIB)/liblualib.a
+DLIB= $(LIB)/liblualib.so.1.1
+
+libs: $(SLIB) $(DLIB)
+
+$(SLIB): $(OBJS)
+	ar ruvl $@ $(OBJS)
+	ranlib $(SLIB)
+
+$(DLIB): $(OBJS)
+	ld -o $@ $(OBJS)
+
+clean:
+	rm -f $(OBJS) $(SLIB) $(DLIB)
diff --git a/iolib.c b/clients/lib/iolib.c
index 174dd501..b972124b 100644
--- a/iolib.c
+++ b/clients/lib/iolib.c
@@ -1,20 +1,21 @@
 /*
 ** iolib.c
 ** Input/output library to LUA
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 19 May 93
 */
 
+char *rcs_iolib="$Id: iolib.c,v 1.4 1994/04/25 20:11:23 celes Exp $";
+
 #include <stdlib.h>
 #include <string.h>
 #include <stdio.h>
 #include <ctype.h>
+#include <sys/stat.h>
 #ifdef __GNUC__
 #include <floatingpoint.h>
 #endif
 
+#include "mm.h"
+
 #include "lua.h"
 
 static FILE *in=stdin, *out=stdout;
@@ -110,6 +111,58 @@ static void io_writeto (void)
 
 
 /*
+** Open a file to write appended.
+** LUA interface:
+**			status = appendto (filename)
+** where:
+**			status = 2 -> success (already exist)
+**			status = 1 -> success (new file)
+**			status = 0 -> error
+*/
+static void io_appendto (void)
+{
+ lua_Object o = lua_getparam (1);
+ if (o == NULL)			/* restore standart output */
+ {
+  if (out != stdout)
+  {
+   fclose (out);
+   out = stdout;
+  }
+  lua_pushnumber (1);
+ }
+ else
+ {
+  if (!lua_isstring (o))
+  {
+   lua_error ("incorrect argument to function 'appendto`");
+   lua_pushnumber (0);
+  }
+  else
+  {
+   int r;
+   FILE *fp;
+   struct stat st;
+   if (stat(lua_getstring(o), &st) == -1) r = 1;
+   else                                   r = 2;
+   fp = fopen (lua_getstring(o),"a");
+   if (fp == NULL)
+   {
+    lua_pushnumber (0);
+   }
+   else
+   {
+    if (out != stdout) fclose (out);
+    out = fp;
+    lua_pushnumber (r);
+   }
+  }
+ }
+}
+
+
+
+/*
 ** Read a variable. On error put nil on stack.
 ** LUA interface:
 **			variable = read ([format])
@@ -126,7 +179,7 @@ static void io_writeto (void)
 static void io_read (void)
 {
  lua_Object o = lua_getparam (1);
- if (o == NULL)			/* free format */
+ if (o == NULL || !lua_isstring(o))	/* free format */
  {
   int c;
   char s[256];
@@ -134,19 +187,31 @@ static void io_read (void)
    ;
   if (c == '\"')
   {
-   if (fscanf (in, "%[^\"]\"", s) != 1)
+   int c, n=0;
+   while((c = fgetc(in)) != '\"')
    {
-    lua_pushnil ();
-    return;
+    if (c == EOF)
+    {
+     lua_pushnil ();
+     return;
+    }
+    s[n++] = c;
    }
+   s[n] = 0;
   }
   else if (c == '\'')
   {
-   if (fscanf (in, "%[^\']\'", s) != 1)
+   int c, n=0;
+   while((c = fgetc(in)) != '\'')
    {
-    lua_pushnil ();
-    return;
+    if (c == EOF)
+    {
+     lua_pushnil ();
+     return;
+    }
+    s[n++] = c;
    }
+   s[n] = 0;
   }
   else
   {
@@ -183,7 +248,16 @@ static void io_read (void)
    char f[80];
    char s[256];
    sprintf (f, "%%%ds", m);
-   fscanf (in, f, s);
+   if (fgets (s, m, in) == NULL)
+   {
+    lua_pushnil();
+    return;
+   }
+   else
+   {
+    if (s[strlen(s)-1] == '\n')
+     s[strlen(s)-1] = 0;
+   }
    switch (tolower(t))
    {
     case 'i':
@@ -212,22 +286,25 @@ static void io_read (void)
     case 'i':
     {
      long int l;
-     fscanf (in, "%ld", &l);
-     lua_pushnumber(l);
+     if (fscanf (in, "%ld", &l) == EOF)
+       lua_pushnil();
+       else lua_pushnumber(l);
     }
     break;
     case 'f': case 'g': case 'e':
     {
      float f;
-     fscanf (in, "%f", &f);
-     lua_pushnumber(f);
+     if (fscanf (in, "%f", &f) == EOF)
+       lua_pushnil();
+       else lua_pushnumber(f);
     }
     break;
     default: 
     {
      char s[256];
-     fscanf (in, "%s", s);
-     lua_pushstring(s);
+     if (fscanf (in, "%s", s) == EOF)
+       lua_pushnil();
+       else lua_pushstring(s);
     }
     break;
    }
@@ -346,8 +423,8 @@ static void io_write (void)
 }
 
 /*
-** Execute a executable program using "sustem".
-** On error put 0 on stack, otherwise put 1.
+** Execute a executable program using "system".
+** Return the result of execution.
 */
 void io_execute (void)
 {
@@ -359,8 +436,8 @@ void io_execute (void)
  }
  else
  {
-  system(lua_getstring(o));
-  lua_pushnumber (1);
+  int res = system(lua_getstring(o));
+  lua_pushnumber (res);
  }
  return;
 }
@@ -394,6 +471,7 @@ void iolib_open (void)
 {
  lua_register ("readfrom", io_readfrom);
  lua_register ("writeto",  io_writeto);
+ lua_register ("appendto", io_appendto);
  lua_register ("read",     io_read);
  lua_register ("write",    io_write);
  lua_register ("execute",  io_execute);
diff --git a/mathlib.c b/clients/lib/mathlib.c
index b07c8c47..c84af8cb 100644
--- a/mathlib.c
+++ b/clients/lib/mathlib.c
@@ -1,17 +1,18 @@
 /*
 ** mathlib.c
-** Mathematica library to LUA
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 19 May 93
+** Mathematics library to LUA
 */
 
+char *rcs_mathlib="$Id: mathlib.c,v 1.1 1993/12/17 18:41:19 celes Exp $";
+
 #include <stdio.h>		/* NULL */
 #include <math.h>
 
 #include "lua.h"
 
+#define TODEGREE(a) ((a)*180.0/3.14159)
+#define TORAD(a)    ((a)*3.14159/180.0)
+
 static void math_abs (void)
 {
  double d;
@@ -35,7 +36,7 @@ static void math_sin (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `sin'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (sin(d));
+ lua_pushnumber (sin(TORAD(d)));
 }
 
 
@@ -49,7 +50,7 @@ static void math_cos (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `cos'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (cos(d));
+ lua_pushnumber (cos(TORAD(d)));
 }
 
 
@@ -63,7 +64,7 @@ static void math_tan (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `tan'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (tan(d));
+ lua_pushnumber (tan(TORAD(d)));
 }
 
 
@@ -76,7 +77,7 @@ static void math_asin (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `asin'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (asin(d));
+ lua_pushnumber (TODEGREE(asin(d)));
 }
 
 
@@ -89,7 +90,7 @@ static void math_acos (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `acos'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (acos(d));
+ lua_pushnumber (TODEGREE(acos(d)));
 }
 
 
@@ -103,7 +104,7 @@ static void math_atan (void)
  if (!lua_isnumber(o))
  { lua_error ("incorrect arguments to function `atan'"); return; }
  d = lua_getnumber(o);
- lua_pushnumber (atan(d));
+ lua_pushnumber (TODEGREE(atan(d)));
 }
 
 
diff --git a/clients/lib/mathlib.h b/clients/lib/mathlib.h
new file mode 100644
index 00000000..bdf2b4b8
--- /dev/null
+++ b/clients/lib/mathlib.h
@@ -0,0 +1,13 @@
+/*
+** Math library to LUA
+** TeCGraf - PUC-Rio
+** $Id: mathlib.h,v 1.1 1993/12/17 18:41:19 celes Exp $
+*/
+
+
+#ifndef strlib_h
+
+void mathlib_open (void);
+
+#endif
+
diff --git a/strlib.c b/clients/lib/strlib.c
index efd01e9b..037b84be 100644
--- a/strlib.c
+++ b/clients/lib/strlib.c
@@ -1,16 +1,16 @@
 /*
 ** strlib.c
 ** String library to LUA
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 19 May 93
 */
 
+char *rcs_strlib="$Id: strlib.c,v 1.2 1994/03/28 15:14:02 celes Exp $";
+
 #include <stdlib.h>
 #include <string.h>
 #include <ctype.h>
 
+#include "mm.h"
+
 
 #include "lua.h"
 
@@ -21,16 +21,18 @@
 */
 static void str_find (void)
 {
- int n;
- char *s1, *s2;
+ char *s1, *s2, *f;
  lua_Object o1 = lua_getparam (1);
  lua_Object o2 = lua_getparam (2);
  if (!lua_isstring(o1) || !lua_isstring(o2))
  { lua_error ("incorrect arguments to function `strfind'"); return; }
  s1 = lua_getstring(o1);
  s2 = lua_getstring(o2);
- n = strstr(s1,s2) - s1 + 1;
- lua_pushnumber (n);
+ f = strstr(s1,s2);
+ if (f != NULL)
+  lua_pushnumber (f-s1+1);
+ else
+  lua_pushnil();
 }
 
 /*
@@ -59,13 +61,15 @@ static void str_sub (void)
  lua_Object o1 = lua_getparam (1);
  lua_Object o2 = lua_getparam (2);
  lua_Object o3 = lua_getparam (3);
- if (!lua_isstring(o1) || !lua_isnumber(o2) || !lua_isnumber(o3))
+ if (!lua_isstring(o1) || !lua_isnumber(o2))
  { lua_error ("incorrect arguments to function `strsub'"); return; }
- s = strdup (lua_getstring(o1));
+ if (o3 != NULL && !lua_isnumber(o3))
+ { lua_error ("incorrect third argument to function `strsub'"); return; }
+ s = lua_copystring(o1);
  start = lua_getnumber (o2);
- end = lua_getnumber (o3);
+ end = o3 == NULL ? strlen(s) : lua_getnumber (o3);
  if (end < start || start < 1 || end > strlen(s))
-  lua_pushstring ("");
+  lua_pushstring("");
  else
  {
   s[end] = 0;
diff --git a/clients/lib/strlib.h b/clients/lib/strlib.h
new file mode 100644
index 00000000..daa1f603
--- /dev/null
+++ b/clients/lib/strlib.h
@@ -0,0 +1,13 @@
+/*
+** String library to LUA
+** TeCGraf - PUC-Rio
+** $Id: strlib.h,v 1.1 1993/12/17 18:41:19 celes Exp $
+*/
+
+
+#ifndef strlib_h
+
+void strlib_open (void);
+
+#endif
+
diff --git a/clients/lua/Makefile b/clients/lua/Makefile
new file mode 100644
index 00000000..7bb74208
--- /dev/null
+++ b/clients/lua/Makefile
@@ -0,0 +1,17 @@
+# makefile for lua interpreter
+
+BIN= $(LUA)/bin
+INC= $(LUA)/include
+LIB= $(LUA)/lib
+
+CC= gcc
+CFLAGS= -g -Wall -O2 -I$(INC)
+
+OBJS= lua.o
+T=$(BIN)/lua
+
+$T: $(OBJS)
+	$(CC) -o $@ $(OBJS) -L$(LIB) -llua -llualib -lm
+
+clean:
+	rm -f $T $(OBJS)
diff --git a/clients/lua/README b/clients/lua/README
new file mode 100644
index 00000000..c529892a
--- /dev/null
+++ b/clients/lua/README
@@ -0,0 +1,5 @@
+This client is a simple lua interpreter.
+It either loads and executes the files named on the command line or reads
+and executes lines from stdin.
+Note that, in the second case, each line must contain a complete statement.
+For instance, functions cannot span several lines.
diff --git a/clients/lua/lua.c b/clients/lua/lua.c
new file mode 100644
index 00000000..c4b83cee
--- /dev/null
+++ b/clients/lua/lua.c
@@ -0,0 +1,28 @@
+/*
+** lua.c
+** Linguagem para Usuarios de Aplicacao
+*/
+
+char *rcs_lua="$Id: lua.c,v 1.1 1993/12/17 18:41:19 celes Exp $";
+
+#include <stdio.h>
+
+#include "lua.h"
+#include "lualib.h"
+
+void main (int argc, char *argv[])
+{
+ int i;
+ iolib_open ();
+ strlib_open ();
+ mathlib_open ();
+ if (argc < 2)
+ {
+   char buffer[2048];
+   while (gets(buffer) != 0)
+     lua_dostring(buffer);
+ }
+ else
+   for (i=1; i<argc; i++)
+    lua_dofile (argv[i]);
+}
diff --git a/doc/lua.dvi b/doc/lua.dvi
new file mode 100644
index 00000000..8aa7404f
--- /dev/null
+++ b/doc/lua.dvi
diff --git a/doc/lua.ps b/doc/lua.ps
new file mode 100644
index 00000000..373b082a
--- /dev/null
+++ b/doc/lua.ps
@@ -0,0 +1,1774 @@
+%!PS-Adobe-2.0
+%%Creator: dvips, version 5.4 (C) 1986-90 Radical Eye Software
+%%Title: lua.dvi
+%%Pages: 11 1
+%%BoundingBox: 0 0 612 792
+%%EndComments
+%%BeginProcSet: tex.pro
+/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
+load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
+isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+Resolution VResolution vsize neg mul TR}B /@letter{/vsize 10 N}B /@landscape{
+/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{/vsize 15.5531 N
+}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 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 /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 /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 /E{pop nn dup definefont setfont}B /ch-image{ch-data dup type /stringtype
+ne{ctr get /ctr ctr 1 add N}if}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 /ctr 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}B /eop{clear SI restore showpage userdict /eop-hook
+known{eop-hook}if}B /@start{userdict /start-hook known{start-hook}if
+/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}B /p /show load N /RMat[1 0 0 -1 0 0]N
+/BDot 8 string N /v{/ruley X /rulex X V}B /V{gsave TR -.1 -.1 TR rulex ruley
+scale 1 1 false RMat{BDot}imagemask 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 /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 /w{0 rmoveto}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B
+/eos{clear SS restore}B end
+%%EndProcSet
+TeXDict begin 1200 300 300 @start /Fa 8 58 df<00000C00001C00001C00003800003800
+00700000700000700000E00000E00001C00001C0000380000380000380000700000700000E0000
+0E00000E00001C00001C0000380000380000700000700000700000E00000E00001C00001C00001
+C0000380000380000700000700000700000E00000E00001C00001C000038000038000038000070
+0000700000E00000E00000C0000016317DA41D>47 D<00380000780003F800FFF800FDF80001F8
+0001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F8
+0001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F8007FFFF07FFF
+F014207C9F1D>49 D<03FC000FFF803C0FE07007F07C03F8FE01F8FE01FCFE01FCFE01FC7C01FC
+3801FC0001FC0001F80003F80003F00007E0000FC0000F80001E00003C0000780000E00C01C00C
+03801C0300180600180FFFF81FFFF83FFFF87FFFF0FFFFF0FFFFF016207D9F1D>I<00FF0007FF
+C00F03F01E01F83F01F83F01FC3F81FC3F01FC1F01FC0C01F80001F80003F00003E0000FC000FF
+0000FF000003E00001F80001FC0000FE0000FE0000FF7C00FF7C00FFFE00FFFE00FFFE00FE7C01
+FC7801FC3C03F00FFFE001FF0018207E9F1D>I<0000E00001E00003E00003E00007E0000FE000
+1FE0001BE00033E00073E000E3E001C3E00183E00303E00703E00E03E00C03E01803E03803E070
+03E0E003E0FFFFFFFFFFFF0007E00007E00007E00007E00007E00007E00007E001FFFF01FFFF18
+207E9F1D>I<1000301E00F01FFFE01FFFE01FFFC01FFF001FFE001FF800180000180000180000
+18000019FE001FFF801E07E01C03F01801F00001F80001F80001FC0001FC7801FCFC01FCFC01FC
+FC01FCFC01F8F801F86003F03003E01C0FC00FFF0003FC0016207D9F1D>I<001FC000FFF001F0
+3807C0780F80FC1F00FC1F00FC3F00FC7E00787E00007E0000FE0000FE3FC0FE7FF0FE80F8FF80
+7CFF007EFF007EFE007FFE007FFE007FFE007F7E007F7E007F7E007F3E007E3E007E1F007C0F00
+F807C1F003FFE000FF0018207E9F1D>I<00FF0007FFC00F83E01F00F03E00F87E007C7E007CFE
+007EFE007EFE007EFE007FFE007FFE007FFE007F7E00FF7E00FF3E01FF1F017F0FFE7F03FC7F00
+007F00007E00007E1E007E3F00FC3F00FC3F00F83F01F01E03E01C0FC00FFF0003F80018207E9F
+1D>57 D E /Fb 1 16 df<03F0000FFC001FFE003FFF007FFF807FFF80FFFFC0FFFFC0FFFFC0FF
+FFC0FFFFC0FFFFC0FFFFC0FFFFC07FFF807FFF803FFF001FFE000FFC0003F00012147D9519>15
+D E /Fc 21 115 df<00030003000700060006000E000C001C0018001800380030003000700060
+00E000C000C001C001800180038003000300070006000E000C000C001C00180018003800300070
+0060006000E000C000C00010287E9D15>47 D<07E00FF01FF83C3C781E700E700EE007E007E007
+E007E007E007E007E007E007E007E007E007700E700E781E3C3C1FF80FF007E0101A7E9915>I<
+008003803F80FF80C3800380038003800380038003800380038003800380038003800380038003
+8003800380038003807FFC7FFC0E1A7D9915>I<0FE01FF0387C701EE00EE00F400F4007000700
+0F000F000E001E001C0038007000E001C0038007000E001C0038007000FFFFFFFF101A7E9915>
+I<07E03FF8783CE01E601E400E001E001E003C007C07F807E007F8003C001E001E000F000F000F
+800F800FC01E601E383C1FF807E0101A7E9915>I<00780000F80000B80001B80001B800033800
+0338000738000638000E38001E38001C38003C3800383800783800703800F03800FFFFC0FFFFC0
+003800003800003800003800003800003800003800121A7F9915>I<7FFC7FFC70007000700070
+00700070007000700073E07FF87FFC7C3E781E000F000F000F000F000F400FC01E601C38781FF0
+0FC0101A7E9915>I<00F803FC0F041C0018003800700070007000E1F0E7F8EFFCFC1EF00EF00F
+E007E007E007600770077007300E380C1C3C0FF003E0101A7E9915>I<FFFFFFFF0007000E001C
+003C00380078007000F000E001E001C003C003C0038007800780078007800F000F000F000F000F
+000F00101A7E9915>I<07E01FF8381C700EE007E007E007E007700E781E3FFC0FF00FF03E7C78
+1E700EE007E007E007E007E007700E700E3C3C1FF807E0101A7E9915>I<07E00FF01C38381C70
+0CE00EE00EE007E007E007E007F00F700F783F3FF71FE70F870006000E000E001C001C203870F0
+3FE00F80101A7E9915>I<001C0000003E0000003E0000002E0000006700000067000000E78000
+00C7800000C3800001C3C0000183C0000381E0000381E0000301E0000700F0000700F0000600F0
+000E0078000FFFF8001FFFFC001C003C0018003C0038001E0038001E0030001E0070000F007000
+0F00E0000780191C7F9B1C>65 D<003FC001FFF003C0F00700300E00001E00003C000038000078
+0000780000F00000F00000F00000F00000F00000F00000F00000F000007800007800003800003C
+00001E00000E000807001803C07801FFF0003F80151C7D9B1B>67 D<FFFC00FFFF80F007C0F001
+F0F000F8F00078F0003CF0001CF0001EF0001EF0000FF0000FF0000FF0000FF0000FF0000FF000
+0FF0000FF0000EF0001EF0001EF0003CF00078F00078F001F0F007E0FFFF80FFFE00181C7C9B1F
+>I<003F8001FFF003C0F80700380E00181C00003C0000380000780000780000F00000F00000F0
+0000F00000F00000F007F8F007F8F000387800387800383800383C00381C00380E003807003803
+C0F801FFF0003F80151C7D9B1C>71 D<F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
+F0F0F0F0F0041C7C9B0C>73 D<FFFFFFFFFFFF003C00003C00003C00003C00003C00003C00003C
+00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C
+00003C00003C00003C00003C00003C00003C00181C7E9B1D>84 D<0FC03FF07FF87038401C001C
+001C001C07FC3FFC7C1CE01CE01CE01CF07C7FFC7FDC3F1C0E127E9114>97
+D<07C01FF03FF83C3C700C700EFFFEFFFEFFFEE000E000E000700070003C061FFE0FFE07F80F12
+7E9113>101 D<00FC03FC07FC07000E000E000E000E000E000E00FFE0FFE00E000E000E000E00
+0E000E000E000E000E000E000E000E000E000E000E000E000E1C809B0D>I<E380E780EF80FC00
+F800F000F000E000E000E000E000E000E000E000E000E000E000E00009127D910E>114
+D E /Fd 24 122 df<00001FE0000070380000E01C0001C03C0001803C00038038000380000007
+000000070000000700000007000000070000000E0000000E000000FFFFE000FFFFE0000E00E000
+1E01C0001C01C0001C01C0001C01C0001C0380001C038000380380003803800038070000380700
+003807080070070C00700E1800700E1800700E180070063000E0062000E003C000E0000000E000
+0001C0000001C0000001C0000071800000F3800000F3000000620000003C0000001E2D82A21C>
+12 D<0000FC060007FF0C001F839C003E00DC0078007C00F0007801E0007803C0007807800038
+0F8000301F0000301E0000303E0000303E0000607C0000007C0000007C000000F8000000F80000
+00F8000000F8000000F8000000F0000000F0000180F0000180F0000300F0000300F0000600F800
+060078000C00780018003C0030001E0060000F81C00007FF000001FC00001F2478A224>67
+D<00F180038B80070F800E07001E07001C07003C0700380E00780E00780E00780E00F01C00F01C
+00F01C20F01C30F03860F0386070786070D8C03198801E0F0014157B9419>97
+D<03C03F803F800380038007000700070007000E000E000E000E001C001CF81D8C1E0E3C063C07
+3807380F700F700F700F700FE01EE01EE01EE03CE038E038607060E031C01F0010237BA217>I<
+007C01C2030307070E0F1C0F3C003800780078007800F000F000F000F000F00170037006301C18
+380FC010157B9417>I<0000780007F00007F00000700000700000E00000E00000E00000E00001
+C00001C00001C00001C000038000F380038B80070F800E07001E07001C07003C0700380E00780E
+00780E00780E00F01C00F01C00F01C20F01C30F03860F0386070786070D8C03198801E0F001523
+7BA219>I<00F803840E061C063C063806780CF038FFE0F000F000E000E000E000E000E002E006
+600C703830700F800F157A9417>I<00007C0000CE00019E00039E00038C000300000700000700
+000700000700000E00000E00000E00000E0001FFF001FFF0001C00001C00001C00001C00001C00
+00380000380000380000380000380000700000700000700000700000700000E00000E00000E000
+00E00001C00001C00001C00001C000038000738000F30000F300006600003C0000172D82A20F>
+I<001F180031B800E0F801C0F001C0700380700780700700E00F00E00F00E00F00E01E01C01E01
+C01E01C01E01C01E03800E03800E0780060F80061F0001E700000700000700000E00000E00000E
+00701C00F01800F0300060E0003F8000151F7E9417>I<00F0000FE0000FE00000E00000E00001
+C00001C00001C00001C000038000038000038000038000070000071E0007638007C1800F81C00F
+01C00E01C00E01C01C03801C03801C03801C0380380700380700380E08380E0C700E18701C1870
+1C30700C20E00C6060078016237DA219>I<00E000E001E000C000000000000000000000000000
+00000000001E00330063806380C380C700C70007000E000E000E001C001C001C40386038C070C0
+7080318031001E000C227CA10F>I<0001C00003C00003C0000180000000000000000000000000
+000000000000000000000000000000003C00004600008700018700030700030700030700000E00
+000E00000E00000E00001C00001C00001C00001C00003800003800003800003800007000007000
+00700000700000E00000E00000E00071C000F18000F380006600003C0000122C82A10F>I<00F0
+000FE0000FE00000E00000E00001C00001C00001C00001C0000380000380000380000380000700
+000701E00706300708700E10F00E20F00E20600E40001D80001E00001FC0001CE0003870003830
+003838203838307070607070607070407030C0E01880600F0014237DA217>I<01E01FC01FC001
+C001C0038003800380038007000700070007000E000E000E000E001C001C001C001C0038003800
+380038007000700071007180E300E300E300620066003C000B237CA20D>I<1E07C07C00331861
+860063B033030063E03E0380C3C03C0380C3C03C0380C380380380078078070007007007000700
+70070007007007000E00E00E000E00E00E000E00E01C100E00E01C181C01C01C301C01C038301C
+01C038601C01C0184038038018C01801800F0026157C9429>I<1E0780003318E00063B0600063
+E07000C3C07000C3807000C38070000700E0000700E0000700E0000700E0000E01C0000E01C000
+0E0382000E0383001C0386001C0706001C070C001C030800380318001801E00019157C941C>I<
+007C0001C6000303000603800E03C01C03C03C03C03803C07803C07803C07803C0F00780F00780
+F00780F00F00F00E00701E00701C003038001860000F800012157B9419>I<03C1E00666300C7C
+380C781818781C18701C18701C00E03C00E03C00E03C00E03C01C07801C07801C07801C0700380
+E003C0E003C1C003C380076700073C000700000700000E00000E00000E00000E00001C00001C00
+00FFC000FFC000161F7F9419>I<1E1F0033318063E1C063C3C0C3C3C0C38180C3800007000007
+00000700000700000E00000E00000E00000E00001C00001C00001C00001C000038000018000013
+157C9415>114 D<007801840306020E061E061E0608070007F007F803FC007C001E000E700EF0
+0CF00CE008601030601F800F157D9414>I<006000E000E000E000E001C001C001C001C00380FF
+F8FFF8038007000700070007000E000E000E000E001C001C001C101C18383038303860186018C0
+0F000D1F7C9E11>I<0F003011807021C07061C0E0C1C0E0C380E0C380E00381C00701C00701C0
+0701C00E03800E03800E03840E03860E070C0C070C0E070C0E0B1806131003E1E018157C941B>
+I<0F01C01183C021C3E061C1E0C1C0E0C380E0C380E00380C00700C00700C00700C00E01800E01
+800E01800E03000E03000E02000E04000E0C0006180001E00014157C9417>I<0F003011807021
+C07061C0E0C1C0E0C380E0C380E00381C00701C00701C00701C00E03800E03800E03800E03800E
+07000C07000E07000E0F00061E0003EE00000E00000E00001C00301C0078380078300070600060
+C0002180001E0000151F7C9418>121 D E /Fe 33 122 df<00003C007E3C00FE3C01FE3C03C0
+00038000078000078000078000078000078000078000078000078000FFFE3CFFFE3CFFFE3C0780
+3C07803C07803C07803C07803C07803C07803C07803C07803C07803C07803C07803C07803C0780
+3C07803C07803C07803C07803C07803C162480A31B>12 D<787878781830306060E0050A7CA20E
+>39 D<000F0000001F8000001F8000001B8000003BC0000039C0000079E0000071E0000070E000
+00F0F00000F0F00000E0F00001E0780001E0780001C0780003C03C0003C03C0003803C0007801E
+0007801E0007001E000F000F000FFFFF001FFFFF801FFFFF801E0007803C0003C03C0003C03800
+03C0780001E0780001E0700001E0F00000F0F00000F0E00000F01D237EA221>65
+D<FFFF0000FFFFC000FFFFF000F001F800F0007C00F0003E00F0001F00F0000F00F0000780F000
+0780F00003C0F00003C0F00003C0F00001E0F00001E0F00001E0F00001E0F00001E0F00001E0F0
+0001E0F00001E0F00001E0F00001C0F00003C0F00003C0F00007C0F0000780F0000F80F0001F00
+F0003E00F0007C00F001F800FFFFF000FFFFE000FFFF00001B237BA224>68
+D<FFFFF8FFFFF8FFFFF8F00000F00000F00000F00000F00000F00000F00000F00000F00000F000
+00F00000F00000FFFFF0FFFFF0FFFFF0F00000F00000F00000F00000F00000F00000F00000F000
+00F00000F00000F00000F00000F00000F00000FFFFFCFFFFFCFFFFFC16237BA21E>I<F0F0F0F0
+F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F004237BA20E>73
+D<F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F000
+00F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F000
+00F00000F00000F00000F00000F00000F00000FFFFE0FFFFE0FFFFE013237BA21B>76
+D<FFFE00FFFFC0FFFFE0F003F0F00078F0003CF0003CF0001EF0001EF0001EF0001EF0001EF000
+1EF0003CF0003CF00078F003F0FFFFE0FFFFC0FFFE00F00000F00000F00000F00000F00000F000
+00F00000F00000F00000F00000F00000F00000F00000F00000F0000017237BA220>80
+D<00FF0003FFE007FFF00F81F01E00703C00003C00007800007800007800007800007800007C00
+003E00003F00001FE0000FFC0007FF8001FFC0003FE00003F00000F800007800007C00003C0000
+3C00003C00003C00003C00003CC00078E00078F800F07F03E01FFFC00FFF8001FE0016257EA31C
+>83 D<FFFFFFF8FFFFFFF8FFFFFFF8000780000007800000078000000780000007800000078000
+000780000007800000078000000780000007800000078000000780000007800000078000000780
+000007800000078000000780000007800000078000000780000007800000078000000780000007
+80000007800000078000000780000007800000078000000780001D237EA222>I<03F0001FFC00
+3FFE00381F00200F00000780000780000780000780000F8003FF801FFF803F0780780780F00780
+F00780F00780F007807C1F807FFF803FF7801F878011167E9518>97 D<F00000F00000F00000F0
+0000F00000F00000F00000F00000F00000F00000F00000F00000F00000F0F800F3FE00FFFF00FE
+1F80F80780F003C0F003C0F001E0F001E0F001E0F001E0F001E0F001E0F001E0F003E0F003C0F0
+07C0F80780FC1F00FFFE00F7FC00F1F00013237CA21A>I<01FC0007FF000FFF801F03803C0180
+780000780000780000F00000F00000F00000F00000F00000F000007800007800007800003C0040
+1F03C00FFFC007FF8001FC0012167E9516>I<0001E00001E00001E00001E00001E00001E00001
+E00001E00001E00001E00001E00001E00001E003F1E007FDE00FFFE01F07E03C03E07C01E07801
+E0F801E0F001E0F001E0F001E0F001E0F001E0F001E0F001E07801E07803E03C03E03F0FE01FFD
+E00FF9E003E1E013237EA21A>I<03F00007FC001FFE003E0F003C0780780380780380F001C0FF
+FFC0FFFFC0FFFFC0F00000F00000F000007000007800007800003C00801F07800FFF8007FF0001
+F80012167E9516>I<003F00FF01FF03C0038007800780078007800780078007800780FFF8FFF8
+FFF807800780078007800780078007800780078007800780078007800780078007800780078007
+80102380A20F>I<01F07C07FFFC0FFFFC1F1F001E0F003C07803C07803C07803C07803C07801E
+0F001F1F000FFE001FFC0019F0003800003800003C00001FFF001FFFE01FFFF03FFFF87C01F878
+007CF0003CF0003CF0003CF8007C7C00F83F03F01FFFE00FFFC001FE0016217F9519>I<F00000
+F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F0F800
+F3FE00F7FF00FE1F00FC0F80F80780F80780F00780F00780F00780F00780F00780F00780F00780
+F00780F00780F00780F00780F00780F00780F00780F0078011237CA21A>I<F0F0F0F000000000
+0000000000F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F004237DA20B>I<F00000F000
+00F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00780F00F
+00F01E00F03C00F07800F0F000F1E000F3C000F7C000FFC000FFE000FFE000FDF000F8F800F078
+00F07C00F03E00F01E00F01F00F00F00F00F80F007C012237CA218>107
+D<F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F004237D
+A20B>I<F0FC03F0F3FF0FFCF7FF9FFEFE0FB83EFC07F01FF803E00FF803E00FF003C00FF003C0
+0FF003C00FF003C00FF003C00FF003C00FF003C00FF003C00FF003C00FF003C00FF003C00FF003
+C00FF003C00FF003C00FF003C00F20167C9529>I<F0F800F3FE00F7FF00FE1F00FC0F80F80780
+F80780F00780F00780F00780F00780F00780F00780F00780F00780F00780F00780F00780F00780
+F00780F00780F0078011167C951A>I<00FC0007FF800FFFC01F03E03E01F03C00F07800787000
+38F0003CF0003CF0003CF0003CF0003CF0003C7800787800787C00F83E01F01F03E00FFFC007FF
+8000FC0016167F9519>I<F0F800F3FE00FFFF00FE1F80F80780F007C0F003C0F003E0F001E0F0
+01E0F001E0F001E0F001E0F001E0F003E0F003C0F007C0F80F80FC1F00FFFE00F7FC00F1F000F0
+0000F00000F00000F00000F00000F00000F00000F00000F00000F0000013207C951A>I<F0E0F3
+E0F7E0FF00FE00FC00F800F800F000F000F000F000F000F000F000F000F000F000F000F000F000
+F0000B167C9511>114 D<07F01FFC3FFE3C0E7806780078007C003F003FF01FF80FFC01FE001F
+000F000F000FC00FF81EFFFE3FFC0FF010167F9513>I<0F000F000F000F000F000F00FFF8FFF8
+FFF80F000F000F000F000F000F000F000F000F000F000F000F000F000F000F080F1C07FC07F803
+E00E1C7F9B12>I<F00780F00780F00780F00780F00780F00780F00780F00780F00780F00780F0
+0780F00780F00780F00780F00780F00780F00780F00F80F83F807FFF807FE7801F878011167C95
+1A>I<F000F0F000F07801E07801E07801E03C03C03C03C03C03C01E07801E07800E07000F0F00
+0F0F00070E00079E00079E00039C00039C0003DC0001D80001F80001F80014167F9517>I<F007
+C01EF00FC01EF00EE01E780EE03C781CE03C781CF03C381CF0383C1C70783C3870783C3878781C
+3878701E3838F01E3038F01E7038F00E703CE00E701CE00F601DE007601DC007600DC007400DC0
+07C00FC003C00F801F167F9522>I<7800F83C00F03E01E01E03C00F07C007878003CF0001FE00
+01FC0000FC0000780000F80000FC0001DE0003CF000787800F03800F03C01E01E03C00F07800F8
+F8007C1616809517>I<F000F0F800F07801E07801E03C01E03C03C03E03C01E03801E07800F07
+800F0700070F00078F00078E00038E00039C0001DC0001DC0001D80000D80000F8000070000070
+0000E00000E00000E00001C00001C0000380007F80007F00007E000014207F9517>I
+E /Ff 81 127 df<001FC1F00070270C00C07E1E0180FC3E0380FC3E0700F81C07007800070038
+00070038000700380007003800070038000700380007003800FFFFFFE0FFFFFFE0070038000700
+380007003800070038000700380007003800070038000700380007003800070038000700380007
+00380007003800070038000700380007003800070038007FE1FFC07FE1FFC01F2380A21D>11
+D<000FC0000078300000E0080001803C0003807C0007007C0007007C0007003800070000000700
+000007000000070000000700000007000000FFFFFC00FFFFFC0007003C0007001C0007001C0007
+001C0007001C0007001C0007001C0007001C0007001C0007001C0007001C0007001C0007001C00
+07001C0007001C0007001C0007001C007FF1FFC07FF1FFC01A2380A21C>I<000FEC0000701C00
+00E07C0001807C0003807C0007003C0007001C0007001C0007001C0007001C0007001C0007001C
+0007001C0007001C00FFFFFC00FFFFFC0007001C0007001C0007001C0007001C0007001C000700
+1C0007001C0007001C0007001C0007001C0007001C0007001C0007001C0007001C0007001C0007
+001C0007001C007FF1FFC07FF1FFC01A2380A21C>I<000FC03F00007031E0C000E00B80200180
+3E00F003807E01F007007C01F007007C01F007003C00E007001C000007001C000007001C000007
+001C000007001C000007001C0000FFFFFFFFF0FFFFFFFFF007001C00F007001C007007001C0070
+07001C007007001C007007001C007007001C007007001C007007001C007007001C007007001C00
+7007001C007007001C007007001C007007001C007007001C007007001C00707FF1FFC7FF7FF1FF
+C7FF282380A22A>I<07070F0E1C383060C0080976A219>19 D<0E000F8001C000E0007000E000
+E07FC080000C097A7E16>24 D<701CF83EFC3FFC3F741D04010401040104010802080210041004
+20084010100F7EA219>34 D<0000C00C000000C00C000000C00C000001C01C0000018018000001
+801800000180180000038038000003003000000300300000030030000007007000000600600000
+060060000006006000000E00E000000C00C000FFFFFFFFE0FFFFFFFFE000180180000018018000
+001801800000380380000030030000003003000000300300000030030000FFFFFFFFE0FFFFFFFF
+E0006006000000E00E000000C00C000000C00C000000C00C000001C01C00000180180000018018
+000001801800000380380000030030000003003000000300300000070070000006006000000600
+600000232D7DA22A>I<70F8FCFC7404040404080810102040060F7CA20E>39
+D<001000200040008001000300060004000C001800180018003000300030007000600060006000
+E000E000E000E000E000E000E000E000E000E000E000E000600060006000700030003000300018
+00180018000C00040006000300010000800040002000100C327DA413>I<800040002000100008
+000C0006000200030001800180018000C000C000C000E000600060006000700070007000700070
+007000700070007000700070007000600060006000E000C000C000C00180018001800300020006
+000C00080010002000400080000C327DA413>I<70F8FCFC7404040404080810102040060F7C84
+0E>44 D<FFF0FFF00C027F8B11>I<70F8F8F87005057C840E>I<01F800070E000E07001C038038
+01C03801C07801E07000E07000E07000E0F000F0F000F0F000F0F000F0F000F0F000F0F000F0F0
+00F0F000F0F000F0F000F0F000F0F000F0F000F07000E07000E07000E07801E03801C03801C01C
+03800E0700070E0001F80014227EA019>48 D<004001C007C0FFC0F9C001C001C001C001C001C0
+01C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001
+C001C07FFF7FFF10217CA019>I<03F8000FFE00181F802007C04003C04001E0F801E0FC01F0FC
+00F0FC00F07800F03001F00001E00001E00003E00003C0000780000700000E00001C0000380000
+700000E0000080000100000200100400100800101000302000207FFFE0FFFFE0FFFFE014217EA0
+19>I<01F8000FFE001C0F803003C03803C07C03E07C01E07C01E03C03E01803E00003C0000380
+000780000E00001C0003F800000E000007800003C00003E00001E00001F00001F03001F07801F0
+FC01F0FC01F0FC01E0F803E04003C02007801C0F000FFE0003F80014227EA019>I<0003000003
+00000700000F00000F0000170000370000270000470000C7000087000107000307000207000407
+000C0700080700100700300700200700400700C00700FFFFFCFFFFFC0007000007000007000007
+0000070000070000070000FFF800FFF816217FA019>I<1800401E03801FFF801FFF001FFC0013
+F00010000010000010000010000010000010000010FC001306001403801801801001C00000E000
+00E00000F00000F00000F07000F0F800F0F800F0F800F0F800E0C001E04001C06003C03003801C
+0F000FFE0003F00014227EA019>I<003E0000FF8003C0C00700E00E01E01C03E01C03E03801C0
+380000780000700000700000F0F800F30600F40300F40180F801C0F800E0F000E0F000F0F000F0
+F000F0F000F0F000F07000F07000F07800E03800E03801E01C01C01C03800F070003FE0001F800
+14227EA019>I<4000006000007FFFF07FFFF07FFFE0400020C000408000808001008001000002
+0000040000040000080000180000100000300000300000700000700000E00000E00000E00001E0
+0001E00001E00001E00003E00003E00003E00003E00003E00003E00003E00001C00014237DA119
+>I<01F80007FE000E07801801C03000C02000606000606000606000607000607800C03E00801F
+81001FC60007FC0003F80001FE00067F000C1F80100FC03003E06001E0600070C00070C00030C0
+0030C00030C000306000607000403800C01E07800FFE0001F80014227EA019>I<01F80007FE00
+0E0F001C03803803807801C07001C07001E0F000E0F000E0F000F0F000F0F000F0F000F0F000F0
+7000F07001F03801F01802F00C02F0060CF001F0F00000E00000E00001E00001C03801C07C0380
+7C0380780700300E00303C001FF80007E00014227EA019>I<70F8F8F870000000000000000000
+000070F8F8F87005157C940E>I<70F8F8F870000000000000000000000070F8F8F87808080808
+101010204040051F7C940E>I<0001800000018000000180000003C0000003C0000003C0000005
+E0000005E0000005E0000008F0000008F0000008F00000107800001078000010780000203C0000
+203C0000603E0000401E0000401E0000C01F0000800F0000FFFF0001FFFF800100078001000780
+020003C0020003C0020003C0040001E0040001E00C0001E01E0001F0FFC01FFFFFC01FFF20237E
+A225>65 D<FFFFF800FFFFFE0007800F80078007C0078003E0078001E0078001F0078001F00780
+01F0078001F0078001F0078001E0078003E0078007C007800F8007803E0007FFFE000780078007
+8003C0078001E0078001F0078000F0078000F8078000F8078000F8078000F8078000F8078000F8
+078001F0078003F0078007E007800FC0FFFFFF00FFFFFC001D227EA123>I<0007F008003FFC18
+00FC061801F0013803C000F8078000780F0000381E0000381E0000183C0000183C0000187C0000
+087C00000878000008F8000000F8000000F8000000F8000000F8000000F8000000F8000000F800
+0000780000007C0000087C0000083C0000083C0000081E0000101E0000100F0000200780002003
+C0004001F0018000FC0700003FFC000007F0001D247DA224>I<FFFFF800FFFFFE0007800F8007
+8003C0078001E0078000F007800078078000780780003C0780003C0780001E0780001E0780001E
+0780001F0780001F0780001F0780001F0780001F0780001F0780001F0780001F0780001F078000
+1E0780001E0780003E0780003C0780003C07800078078000F0078001E0078003C007800F80FFFF
+FF00FFFFF80020227EA126>I<FFFFFFE0FFFFFFE0078003E0078000E007800060078000200780
+0030078000300780001007802010078020100780201007802000078060000780E00007FFE00007
+FFE0000780E0000780600007802000078020000780200407802004078000040780000807800008
+0780000807800018078000180780003807800078078001F0FFFFFFF0FFFFFFF01E227EA122>I<
+FFFFFFE0FFFFFFE0078003E0078000E00780006007800020078000300780003007800010078000
+1007802010078020100780200007802000078060000780E00007FFE00007FFE0000780E0000780
+600007802000078020000780200007802000078000000780000007800000078000000780000007
+8000000780000007800000FFFE0000FFFE00001C227EA121>I<0007F008003FFC1800FC061801
+F0013803C000F8078000780F0000381E0000381E0000183C0000183C0000187C0000087C000008
+78000008F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8001FFF78001F
+FF7C0000787C0000783C0000783C0000781E0000781F0000780F0000780780007803C000B801F0
+01B800FC0718003FFC080007F00020247DA227>I<FFFC3FFFFFFC3FFF078001E0078001E00780
+01E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E007
+8001E007FFFFE007FFFFE0078001E0078001E0078001E0078001E0078001E0078001E0078001E0
+078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0FFFC3FFFFFFC3F
+FF20227EA125>I<FFFCFFFC078007800780078007800780078007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800780FFFCFFFC0E22
+7EA112>I<07FFF007FFF0000F00000F00000F00000F00000F00000F00000F00000F00000F0000
+0F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F0000
+0F00300F00780F00FC0F00FC0F00FC0E00F81E00401C0020380018700007C00014237EA11A>I<
+FFFC01FF80FFFC01FF800780007800078000600007800040000780008000078001000007800200
+00078004000007800800000780100000078020000007804000000780C000000781C000000783E0
+00000784F000000788F00000079078000007A03C000007C03C000007801E000007800F00000780
+0F00000780078000078003C000078003C000078001E000078000F000078000F000078000780007
+8000FC00FFFC03FFC0FFFC03FFC022227EA127>I<FFFE0000FFFE000007800000078000000780
+000007800000078000000780000007800000078000000780000007800000078000000780000007
+800000078000000780000007800000078000000780000007800000078000400780004007800040
+07800040078000C0078000C00780008007800180078003800780078007801F80FFFFFF80FFFFFF
+801A227EA11F>I<FF800001FF80FF800001FF8007800001F00005C00002F00005C00002F00004
+E00004F00004E00004F00004E00004F00004700008F00004700008F00004380010F00004380010
+F00004380010F000041C0020F000041C0020F000041C0020F000040E0040F000040E0040F00004
+070080F00004070080F00004070080F00004038100F00004038100F00004038100F0000401C200
+F0000401C200F0000400E400F0000400E400F0000400E400F00004007800F00004007800F0001F
+003000F000FFE0301FFF80FFE0301FFF8029227EA12E>I<FF8007FFFFC007FF07C000F805E000
+2004F0002004F0002004780020047C0020043C0020041E0020041E0020040F0020040780200407
+80200403C0200401E0200401E0200400F0200400F8200400782004003C2004003C2004001E2004
+000F2004000F20040007A0040003E0040003E0040001E0040001E0040000E01F000060FFE00060
+FFE0002020227EA125>I<000FF00000381C0000E0070001C00380078001E0070000E00E000070
+1E0000783C00003C3C00003C7C00003E7C00003E7800001E7800001EF800001FF800001FF80000
+1FF800001FF800001FF800001FF800001FF800001FF800001F7C00003E7C00003E7C00003E3C00
+003C3E00007C1E0000780F0000F00F0000F0078001E003C003C000E0070000381C00000FF00020
+247DA227>I<FFFFF800FFFFFE0007801F00078007C0078003C0078001E0078001E0078001F007
+8001F0078001F0078001F0078001F0078001E0078003E0078003C00780078007801F0007FFFC00
+078000000780000007800000078000000780000007800000078000000780000007800000078000
+0007800000078000000780000007800000FFFC0000FFFC00001C227EA122>I<FFFFE00000FFFF
+FC000007801F00000780078000078003C000078003E000078001E000078001F000078001F00007
+8001F000078001F000078001E000078003E000078003C000078007000007803E000007FFF00000
+078038000007801C000007800E000007800F000007800700000780078000078007800007800780
+000780078000078007C000078007C000078007C000078007C040078007E040078003E040FFFC01
+E080FFFC00F1000000003E0022237EA125>82 D<03F8100FFE301E07303801F07000F0700070E0
+0030E00030E00010E00010E00010F00000F000007C00007F00003FF0001FFE000FFF8003FFC000
+3FE00003F00000F0000070000078000038800038800038800038800038C00030C00070E00060F8
+00E0CF03C0C7FF0080FE0015247DA21C>I<7FFFFFFC7FFFFFFC7803C03C6003C00C4003C00440
+03C004C003C006C003C0068003C0028003C0028003C0028003C0020003C0000003C0000003C000
+0003C0000003C0000003C0000003C0000003C0000003C0000003C0000003C0000003C0000003C0
+000003C0000003C0000003C0000003C0000003C0000003C0000003C00001FFFF8001FFFF801F22
+7EA124>I<FFFC07FFFFFC07FF078000F807800020078000200780002007800020078000200780
+002007800020078000200780002007800020078000200780002007800020078000200780002007
+800020078000200780002007800020078000200780002007800020078000200380004003C00040
+03C0004001C0008000E0018000700300003C0E00001FF8000003F00020237EA125>I<FFF800FF
+C0FFF800FFC00F80001E000780000800078000080003C000100003C000100003C000100001E000
+200001E000200001F000200000F000400000F0004000007800800000780080000078008000003C
+010000003C010000003C010000001E020000001E020000001F060000000F040000000F04000000
+07880000000788000000078800000003D000000003D000000003F000000001E000000001E00000
+0000C000000000C000000000C0000022237FA125>I<FFF83FFE03FFFFF83FFE03FF0F8003E000
+780F0001E00030078001E00020078001E00020078001F0002003C001F0004003C001F0004003C0
+0278004001E00278008001E00278008001E0043C008000F0043C010000F0043C010000F0081E01
+0000F8081E03000078081E02000078181F02000078100F0200003C100F0400003C100F0400003C
+20078400001E20078800001E20078800001E4003C800000F4003D000000F4003D000000F8001F0
+0000078001E00000078001E00000070000E00000070000E00000030000C0000002000040003023
+7FA133>I<7FFC0FFF007FFC0FFF0003E001F00003E000C00001F000800000F001000000F80200
+000078020000003C040000003E080000001E080000000F100000000FB000000007A000000003C0
+00000003E000000001E000000001F000000003F80000000278000000047C0000000C3C00000008
+1E000000101F000000300F00000020078000004007C00000C003C000008001E000010001F00003
+0000F0000F8001F800FFE007FFC0FFE007FFC022227FA125>I<FFF8007FC0FFF8007FC00F8000
+1E0007C000180003C000100003E000100001E000200001F000600000F00040000078008000007C
+008000003C010000003E030000001E020000000F040000000F84000000078800000007D8000000
+03D000000003E000000001E000000001E000000001E000000001E000000001E000000001E00000
+0001E000000001E000000001E000000001E000000001E000000001E00000003FFF0000003FFF00
+0022227FA125>I<FEFEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
+C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0FEFE07317BA40E>91 D<08021004200820084010401080
+20802080208020B82EFC3FFC3F7C1F380E100F7AA219>I<FEFE06060606060606060606060606
+0606060606060606060606060606060606060606060606060606060606060606FEFE07317FA40E
+>I<1FF000381C007C06007C07007C0380380380000380000380007F8007C3801E03803C038078
+0380780380F00384F00384F00384F00784780B843C11C80FE0F016157E9419>97
+D<0E0000FE0000FE00001E00000E00000E00000E00000E00000E00000E00000E00000E00000E00
+000E00000E1F800E60E00E80300F00380E001C0E001E0E000E0E000F0E000F0E000F0E000F0E00
+0F0E000F0E000F0E000E0E001E0E001C0F00380C80700C60E0081F8018237FA21C>I<01FE0007
+07000C0F801C0F80380F80780700700000F00000F00000F00000F00000F00000F00000F0000070
+00007800403800401C00800C010007060001F80012157E9416>I<0000700007F00007F00000F0
+00007000007000007000007000007000007000007000007000007000007001F8700706700E0170
+1C00F0380070780070700070F00070F00070F00070F00070F00070F00070F00070700070780070
+3800701C00F00C017807067F01F87F18237EA21C>I<01FC000707000C03801C01C03801C07800
+E07000E0F000E0FFFFE0F00000F00000F00000F00000F000007000007800203800201C00400E00
+8007030000FC0013157F9416>I<003E0000E30001C780038F80030F8007070007000007000007
+0000070000070000070000070000070000FFF800FFF80007000007000007000007000007000007
+00000700000700000700000700000700000700000700000700000700000700000700007FF8007F
+F800112380A20F>I<00007801F08C071D1C0E0E1C1C07001C07003C07803C07803C07803C0780
+1C07001C07000E0E000F1C0019F0001000001000001800001C00001FFF000FFFE00FFFF03800F8
+60001840001CC0000CC0000CC0000C6000186000183800700E01C001FE0016217F9519>I<0E00
+0000FE000000FE0000001E0000000E0000000E0000000E0000000E0000000E0000000E0000000E
+0000000E0000000E0000000E0000000E1F80000E60E0000E8070000F0038000F0038000E003800
+0E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038
+000E0038000E0038000E003800FFE3FF80FFE3FF8019237FA21C>I<1C003E003E003E001C0000
+0000000000000000000000000000000E00FE00FE001E000E000E000E000E000E000E000E000E00
+0E000E000E000E000E000E000E00FFC0FFC00A227FA10E>I<00E001F001F001F000E000000000
+00000000000000000000000000F007F007F000F000700070007000700070007000700070007000
+70007000700070007000700070007000700070007000707070F870F8E0F8C071801F000C2C82A1
+0F>I<0E0000FE0000FE00001E00000E00000E00000E00000E00000E00000E00000E00000E0000
+0E00000E00000E03FC0E03FC0E01E00E01800E02000E04000E08000E10000E38000EF8000F1C00
+0E1E000E0E000E07000E07800E03C00E01C00E01E00E01F0FFE3FEFFE3FE17237FA21A>I<0E00
+FE00FE001E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E
+000E000E000E000E000E000E000E000E000E000E000E000E00FFE0FFE00B237FA20E>I<0E1FC0
+7F00FE60E18380FE807201C01F003C00E00F003C00E00E003800E00E003800E00E003800E00E00
+3800E00E003800E00E003800E00E003800E00E003800E00E003800E00E003800E00E003800E00E
+003800E00E003800E00E003800E0FFE3FF8FFEFFE3FF8FFE27157F942A>I<0E1F8000FE60E000
+FE8070001F0038000F0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038
+000E0038000E0038000E0038000E0038000E0038000E0038000E003800FFE3FF80FFE3FF801915
+7F941C>I<00FC000703800E01C01C00E0380070780078700038F0003CF0003CF0003CF0003CF0
+003CF0003CF0003C7000387800783800701C00E00E01C007038000FC0016157F9419>I<0E1F80
+FE60E0FE80700F00380E001C0E001E0E001E0E000F0E000F0E000F0E000F0E000F0E000F0E000F
+0E001E0E001E0E001C0F00380E80700E60E00E1F800E00000E00000E00000E00000E00000E0000
+0E00000E0000FFE000FFE000181F7F941C>I<01F8200704600E02601C01603801E07800E07800
+E0F000E0F000E0F000E0F000E0F000E0F000E0F000E07000E07800E03801E01C01E00C02E0070C
+E001F0E00000E00000E00000E00000E00000E00000E00000E00000E0000FFE000FFE171F7E941A
+>I<0E1E00FE6300FE87801E87800F03000F00000E00000E00000E00000E00000E00000E00000E
+00000E00000E00000E00000E00000E00000E0000FFF000FFF00011157F9414>I<0FC4303C600C
+C00CC004C004E004F0007F803FF00FF800FC001E800E8006C006C006C004E00CD81887E00F157E
+9414>I<020002000200020002000600060006000E001E003FF8FFF80E000E000E000E000E000E
+000E000E000E000E000E040E040E040E040E040E040708030801F00E1F7F9E13>I<0E003800FE
+03F800FE03F8001E0078000E0038000E0038000E0038000E0038000E0038000E0038000E003800
+0E0038000E0038000E0038000E0038000E0038000E0078000E0078000700BC0003833F8000FC3F
+8019157F941C>I<FFC1FEFFC1FE1E00700E00200E002007004007004003808003808003808001
+C10001C10000E20000E20000E20000740000740000380000380000380000100017157F941A>I<
+FF8FF87F80FF8FF87F801E01C01E000E00C00C000E00E008000E01E00800070160100007017010
+0007023030000382382000038238200001C418400001C41C400001C41C400000E80C800000E80E
+800000E80E8000007007000000700700000070070000002002000021157F9424>I<FF83FEFF83
+FE0F01E007008003810003830001C20000E400007800007000003800003C00004E00008E000187
+000103800201C00601C01E00E0FF03FEFF03FE17157F941A>I<FFC1FEFFC1FE1E00700E00200E
+002007004007004003808003808003808001C10001C10000E20000E20000E20000740000740000
+3800003800003800001000001000002000002000002000F84000F84000F88000B980006300003E
+0000171F7F941A>I<3FFFC0380380300780200700600E00401C00403C0040380000700000E000
+01E00001C0000380400700400F00400E00C01C0080380080780180700780FFFF8012157F9416>
+I<FFFFFF1801808C19>I<0E011F02318C40F8807010057CA019>126 D E
+/Fg 25 121 df<F8F8F8F8F805057B8410>46 D<0003F000000003F000000007F800000007F800
+000007780000000F3C0000000F3C0000000F3C0000001E3E0000001E1E0000001E1E0000003E1F
+0000003C1F0000007C0F8000007C0F800000780F800000F807C00000F807C00000F007C00001F0
+03E00001F003E00001E003E00003E001F00003E001F00003C001F00007C000F80007FFFFF80007
+FFFFF8000FFFFFFC000F80007C000F00007C001F00003E001F00003E001E00003E003E00001F00
+3E00001F003C00001F007C00000F807C00000F80F800000FC0F8000007C0F8000007C0222A7EA9
+27>65 D<0003FE00000FFFC0003FFFF000FFFFF001FE03F003F8006007E0002007C000000F8000
+001F8000001F0000003E0000003E0000007C0000007C0000007C0000007C000000F8000000F800
+0000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F80000007C0000007C
+0000007C0000007C0000003E0000003E0000001F0000001F8000000F80000007C0000007E00008
+03F8003801FE01F800FFFFF8003FFFF0000FFFC00003FE001D2C7CAA25>67
+D<FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0F8000000F8000000F8000000F8000000F8000000F800
+0000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000FFFFFF00FF
+FFFF00FFFFFF00FFFFFF00F8000000F8000000F8000000F8000000F8000000F8000000F8000000
+F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000F8000000FFFFFF
+E0FFFFFFE0FFFFFFE0FFFFFFE01B2A7BA923>69 D<F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8
+F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8052A7BA910>73
+D<F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F800
+00F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F800
+00F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000FFFF
+FFFFFFFFFFFFFFFFFFFF182A7BA920>76 D<FFFFE000FFFFFC00FFFFFF00F8003F80F8000FC0F8
+0003E0F80001F0F80001F0F80000F8F80000F8F80000F8F80000F8F80000F8F80000F8F80001F0
+F80001F0F80003E0F8000FE0F8003FC0FFFFFF80FFFFFE00FFFFF800FFFFE000F801F000F801F0
+00F800F800F800F800F8007C00F8003C00F8003E00F8001E00F8001F00F8000F80F8000F80F800
+07C0F80007C0F80003E0F80001E0F80001F0F80000F8F80000F8F800007C1E2A7BA926>82
+D<01FC000FFF003FFF803FFFC03C07E03003E00001F00001F00001F00001F00001F00003F001FF
+F007FFF01FFFF03FC1F07E01F0FC01F0F801F0F801F0F801F0FC03F07E0FF07FFFF03FFFF01FF9
+F00FE1F0141B7E9A1C>97 D<F80000F80000F80000F80000F80000F80000F80000F80000F80000
+F80000F80000F80000F80000F80000F80000F87E00F9FF80FFFFC0FFFFE0FF07E0FC03F0F801F8
+F800F8F800F8F8007CF8007CF8007CF8007CF8007CF8007CF8007CF8007CF800FCF800F8F800F8
+F801F0FC03F0FE0FE0FFFFC0FFFF80FBFF00F8FC00162A7BA91E>I<007F8001FFE007FFF80FFF
+F81FC0783F00103E00007C00007C00007C0000F80000F80000F80000F80000F80000F80000F800
+007C00007C00007C00003E00003F00181FC0780FFFF807FFF801FFE0007F80151B7E9A1A>I<00
+007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00
+007C00007C00FC7C03FF7C07FFFC0FFFFC1FC1FC3F00FC3E007C7C007C7C007CFC007CF8007CF8
+007CF8007CF8007CF8007CF8007CF8007CF8007C7C007C7C007C7E00FC3F00FC1F83FC1FFFFC0F
+FF7C03FE7C01F87C162A7EA91E>I<00FC0003FF0007FF800FFFC01F87E03F01E03E00F07C00F0
+7C0070F80078FFFFF8FFFFF8FFFFF8FFFFF8F80000F80000F800007800007C00007C00003E0000
+3F00181FC0F80FFFF807FFF801FFE0007F00151B7E9A1A>I<001FC0007FC000FFC001FFC003F0
+0003E00007C00007C00007C00007C00007C00007C00007C00007C00007C000FFFE00FFFE00FFFE
+0007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C0
+0007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C000122A7FA912
+>I<00F80F0003FE7F800FFFFF801FFFFF801F07C0003E03E0003E03E0007C01F0007C01F0007C
+01F0007C01F0007C01F0003E03E0003E03E0001F07C0001FFFC0003FFF80003BFE000038F80000
+78000000780000007C0000003FFF80003FFFF0001FFFF8001FFFFC003FFFFE007C00FE007C003F
+00F8001F00F8001F00F8001F00F8001F00FC003F007E007E003F81FC001FFFF8000FFFF00007FF
+E00000FF000019287E9A1D>I<F8F8F8F8F800000000000000000000F8F8F8F8F8F8F8F8F8F8F8
+F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8052A7CA90E>105 D<F8F8F8F8F8F8F8F8F8F8F8F8F8F8
+F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8052A7CA90E>108
+D<F83F007E00F9FF83FF00FBFFC7FF80FFFFEFFFC0FF07FE0FC0FE03FC07E0FC01F803E0FC01F8
+03E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801
+F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F801F003E0F8
+01F003E0F801F003E0F801F003E0F801F003E0231B7B9A2E>I<F87E00F9FF00FBFF80FFFFC0FF
+0FC0FE07E0FC03E0FC03E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F8
+03E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0131B7B9A1E>I<007E00
+01FF8007FFE00FFFF01F81F83F00FC3E007C7C003E7C003E78001EF8001FF8001FF8001FF8001F
+F8001FF8001FF8001F7C003E7C003E7C003E3E007C3F00FC1FC3F80FFFF007FFE003FFC0007E00
+181B7E9A1D>I<F87E00F9FF80FFFFC0FFFFE0FF0FE0FC03F0F801F8F800F8F800F8F800FCF800
+7CF8007CF8007CF8007CF8007CF8007CF8007CF800FCF800F8F801F8F801F0FC03F0FE0FE0FFFF
+C0FFFF80FBFF00F8FC00F80000F80000F80000F80000F80000F80000F80000F80000F80000F800
+00F80000F8000016277B9A1E>I<F838F8F8F9F8FBF8FFC0FF00FE00FE00FC00FC00F800F800F8
+00F800F800F800F800F800F800F800F800F800F800F800F800F800F8000D1B7B9A14>114
+D<07F8001FFF003FFF807FFF807C0780F80100F80000F80000F80000FC00007F00007FF0003FFC
+001FFE0007FF0000FF80001FC0000FC00007C00007C04007C0E007C0FC1F80FFFF807FFF001FFE
+0007F800121B7E9A16>I<07C00007C00007C00007C00007C00007C00007C000FFFF80FFFF80FF
+FF8007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007
+C00007C00007C00007C00007C00007C00007C08007E38003FFC003FFC001FF0000FC0012227FA1
+15>I<F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0
+F803E0F803E0F803E0F803E0F803E0F803E0F803E0F803E0F807E0F807E0FC1FE0FFFFE07FFBE0
+3FF3E01F83E0131B7B9A1E>I<7C001F803E003F003F003E001F807C000F80FC0007C0F80007E1
+F00003F3E00001F7E00000FFC000007F8000007F0000003E0000003E0000003F0000007F800000
+FFC00001F3E00003E1E00003E1F00007C0F8000F807C001F807C001F003E003E001F007C001F80
+FC000FC01A1B809A1B>120 D E /Fh 69 126 df<701CF01EF01EF01EF01EF01EF01EF01EF01E
+701C701C701C701C600C0F0E7B9D1A>34 D<01818003C3C003C3C003C3C003C3C003C3C003C3C0
+7FFFF0FFFFF8FFFFF8FFFFF80787800787800787800F8F800F0F000F0F000F0F000F0F00FFFFF8
+FFFFF8FFFFF87FFFF01E1E001E1E001E1E001E1E001E1E001E1E000C0C00151E7E9D1A>I<1C3E
+3E3F1F070707070E0E1C3C78F0600810789D1A>39 D<0038007800F001E003C007800F000E001C
+001C0038003800700070007000E000E000E000E000E000E000E000E000E000E000700070007000
+380038001C001C000E000F00078003C001E000F8007800380D2878A21A>I<6000F00078003C00
+1E000F000780038001C001C000E000E00070007000700038003800380038003800380038003800
+38003800700070007000E000E001C001C0038007800F001E003C007800F00060000D287CA21A>
+I<00E00000E00000E00000E00040E040F0E1E0F8E3E07EEFC01FFF0007FC0003F80007FC001FFF
+007EEFC0F8E3E0F0E1E040E04000E00000E00000E00000E00013157D991A>I<00300000780000
+78000078000078000078000078000078000078007FFFF0FFFFF8FFFFF87FFFF000780000780000
+780000780000780000780000780000780000300015167E991A>I<183E7E7F3F1F070E0E1CFCF8
+E0080D77851A>I<7FFFC0FFFFE0FFFFE07FFFC013047D901A>I<3078FCFC7830060676851A>I<
+0000C00001E00001E00003E00003C00007C0000780000F80000F00000F00001F00001E00003E00
+003C00007C0000780000780000F80000F00001F00001E00003E00003C00003C00007C000078000
+0F80000F00001F00001E00001E00003E00003C00007C0000780000F80000F00000F00000600000
+13277DA21A>I<01F00007FC000FFE001F1F001C07003803803803807001C07001C07001C0E000
+E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0F001E07001C07001C07803C03803
+803C07801C07001F1F000FFE0007FC0001F000131E7D9D1A>I<00C001C001C003C007C00FC07F
+C0FDC071C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C0
+01C07FFFFFFF7FFF101E7B9D1A>I<03F0000FFC001FFF003C0F807803C07001C0E000E0F000E0
+F000E06000E00000E00000E00001C00001C0000380000780000F00000E00003C00007C0000F000
+01E00003C0000780000F00001E00E03C00E07FFFE0FFFFE07FFFE0131E7D9D1A>I<01FC0007FF
+001FFF801E03C03C01C03C00E03C00E00000E00000E00001C00003C000078001FF0001FF0001FF
+C00003E00000F0000070000038000038000038600038F00038F00038E000707000F07E03E03FFF
+C00FFF0001FC00151E7E9D1A>I<000F80001F80003F80003B80007B8000F38000E38001E38003
+C3800383800783800F03800E03801E03803C0380380380780380F00380FFFFFEFFFFFEFFFFFE00
+0380000380000380000380000380000380007FFC007FFC007FFC171E7F9D1A>I<3078FCFC7830
+0000000000000000003078FCFC7830061576941A>58 D<183C7E7E3C1800000000000000000018
+3C7E7E3E1E0E0E1C3CF8F0C0071C77941A>I<7FFFF0FFFFF8FFFFF87FFFF00000000000000000
+000000007FFFF0FFFFF8FFFFF87FFFF0150C7E941A>61 D<003E0001FF0003FF8007C3C00F01C0
+1E0EE03C3FE0387FE07071F070E0F070E0F0E1C070E1C070E1C070E1C070E1C070E1C070E1C070
+E1C07070E0E070E0E07071C0387FC03C3F801E0E000F007007C1F003FFE001FFC0003F00141E7E
+9D1A>64 D<003800007C00007C00006C0000EE0000EE0000EE0000EE0000C60001C70001C70001
+C70001C7000383800383800383800383800783C00701C007FFC007FFC007FFC00E00E00E00E00E
+00E00E00E01C00707F83FCFF83FE7F83FC171E7F9D1A>I<FFFE00FFFF80FFFFC01C03E01C00E0
+1C00F01C00701C00701C00701C00701C00E01C01E01C07C01FFF801FFF801FFFC01C01E01C00F0
+1C00701C00381C00381C00381C00381C00381C00781C00F01C01F0FFFFE0FFFFC0FFFF00151E7E
+9D1A>I<007C3801FF3807FFF80F83F81E00F81C0078380078380038700038700038700000E000
+00E00000E00000E00000E00000E00000E00000E000007000007000387000383800383800381C00
+701E00F00F83E007FFC001FF80007C00151E7E9D1A>I<FFFE00FFFF00FFFF801C07C01C01E01C
+00F01C00701C00781C00381C00381C003C1C001C1C001C1C001C1C001C1C001C1C001C1C001C1C
+001C1C003C1C00381C00381C00781C00701C00F01C01E01C07C0FFFFC0FFFF00FFFE00161E7F9D
+1A>I<7FFFFCFFFFFC7FFFFC0E001C0E001C0E001C0E001C0E001C0E00000E00000E07000E0700
+0E07000FFF000FFF000FFF000E07000E07000E07000E00000E00000E00000E000E0E000E0E000E
+0E000E0E000E7FFFFEFFFFFE7FFFFE171E7F9D1A>I<7FFFFCFFFFFC7FFFFC0E001C0E001C0E00
+1C0E001C0E001C0E00000E00000E07000E07000E07000FFF000FFF000FFF000E07000E07000E07
+000E00000E00000E00000E00000E00000E00000E00000E00007FE000FFF0007FE000161E7F9D1A
+>I<00F8E003FEE007FFE00F07E01E03E03C01E03800E07000E07000E07000E0E00000E00000E0
+0000E00000E00000E00000E00FF8E00FF8E00FF8E000E07000E07000E07001E03801E03C03E01E
+03E00F07E007FFE003FEE000F8E0151E7E9D1A>I<FF8FF8FF8FF8FF8FF81C01C01C01C01C01C0
+1C01C01C01C01C01C01C01C01C01C01C01C01C01C01FFFC01FFFC01FFFC01C01C01C01C01C01C0
+1C01C01C01C01C01C01C01C01C01C01C01C01C01C01C01C0FF8FF8FF8FF8FF8FF8151E7E9D1A>
+I<FFFF80FFFF80FFFF8001C00001C00001C00001C00001C00001C00001C00001C00001C00001C0
+0001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C0
+0001C000FFFF80FFFF80FFFF80111E7C9D1A>I<03FFC003FFE003FFC0000E00000E00000E0000
+0E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E0000
+0E00000E00000E00000E00600E00F00E00F01E00F03C007FF8003FF0000FC000131E7C9D1A>I<
+FF83F8FF87FCFF83F81C01E01C03C01C03801C07001C0F001C1E001C1C001C38001C78001CF000
+1CF8001DF8001FDC001F9C001F0E001E0F001E07001C07801C03801C01C01C01C01C00E01C00E0
+1C0070FF81FCFF81FEFF81FC171E7F9D1A>I<7FE000FFF0007FE0000E00000E00000E00000E00
+000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00
+000E00000E00000E00380E00380E00380E00380E00387FFFF8FFFFF87FFFF8151E7E9D1A>I<7E
+003F00FF007F807F007F001D80DC001D80DC001D80DC001DC1DC001DC1DC001CC19C001CC19C00
+1CE39C001CE39C001C631C001C771C001C771C001C361C001C361C001C3E1C001C1C1C001C1C1C
+001C001C001C001C001C001C001C001C001C001C001C001C001C001C007F007F00FF80FF807F00
+7F00191E809D1A>I<FE0FF8FF0FF8FF0FF81D81C01D81C01D81C01D81C01DC1C01CC1C01CC1C0
+1CE1C01CE1C01C61C01C61C01C71C01C71C01C31C01C31C01C39C01C39C01C19C01C19C01C1DC0
+1C0DC01C0DC01C0DC01C0DC0FF87C0FF87C0FF83C0151E7E9D1A>I<0FFE003FFF807FFFC07C07
+C07001C0F001E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000
+E0E000E0E000E0E000E0E000E0E000E0E000E0F001E0F001E07001C07C07C07FFFC03FFF800FFE
+00131E7D9D1A>I<7FFF00FFFFC07FFFE00E01F00E00780E00380E003C0E001C0E001C0E001C0E
+001C0E003C0E00380E00780E01F00FFFE00FFFC00FFF000E00000E00000E00000E00000E00000E
+00000E00000E00000E00007FC000FFE0007FC000161E7F9D1A>I<FFF000FFFC00FFFF001C0F80
+1C07801C03C01C01C01C01C01C01C01C01C01C03C01C07801C0F801FFF001FFC001FFE001C0F00
+1C07001C03801C03801C03801C03801C03801C03841C038E1C038E1C038EFF81FCFF81FCFF8070
+171E7E9D1A>82 D<03F1C00FFDC03FFFC07C0FC07003C0E003C0E001C0E001C0E001C0E0000070
+00007800003F00001FF00007FE0000FF00000F800003C00001C00000E00000E06000E0E000E0E0
+00E0E001C0F001C0FC0780FFFF80EFFE00E3F800131E7D9D1A>I<7FFFFEFFFFFEFFFFFEE0380E
+E0380EE0380EE0380EE0380E003800003800003800003800003800003800003800003800003800
+00380000380000380000380000380000380000380000380000380000380003FF8007FFC003FF80
+171E7F9D1A>I<7FC1FF00FFE3FF807FC1FF000E0038000E0038000E0038000E0038000E003800
+0E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038000E0038
+000E0038000E0038000E0038000E0038000E00380007007000070070000380E00003C1E00001FF
+C00000FF8000003E0000191E809D1A>I<3FFFF87FFFF87FFFF87000707000E07001E07001C070
+0380000780000700000E00001E00001C0000380000780000F00000E00001C00003C00003800007
+00000F00380E00381C00383C0038380038700038FFFFF8FFFFF8FFFFF8151E7E9D1A>90
+D<FFF8FFF8FFF8E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000
+E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000FFF8FFF8FF
+F80D2776A21A>I<FFF8FFF8FFF800380038003800380038003800380038003800380038003800
+380038003800380038003800380038003800380038003800380038003800380038003800380038
+0038FFF8FFF8FFF80D277EA21A>93 D<7FFFC0FFFFE0FFFFE07FFFC013047D7E1A>95
+D<1FF0003FFC007FFE00780F00300700000380000380007F8007FF801FFF803F83807803807003
+80E00380E00380E00380700780780F803FFFFC1FFDFC07F0FC16157D941A>97
+D<FE0000FE0000FE00000E00000E00000E00000E00000E00000E00000E3E000EFF800FFFE00FC1
+F00F80700F00380E00380E001C0E001C0E001C0E001C0E001C0E001C0E001C0F00380F00780F80
+F00FC1E00FFFC00EFF80063E00161E7F9D1A>I<00FF8003FFC00FFFE01F01E03C00C078000070
+0000700000E00000E00000E00000E00000E000007000007000007800703C00701F01F00FFFE003
+FFC000FE0014157D941A>I<001FC0001FC0001FC00001C00001C00001C00001C00001C00001C0
+01F1C007FDC00FFFC01E0FC03C07C07803C07001C0E001C0E001C0E001C0E001C0E001C0E001C0
+E001C07003C07003C03807C03E0FC01FFFFC07FDFC01F1FC161E7E9D1A>I<01F80007FF000FFF
+801E07C03C01C07800E07000E0E00070E00070FFFFF0FFFFF0FFFFF0E000007000007000007800
+703C00701F01F00FFFE003FFC000FE0014157D941A>I<0007E0001FF0003FF800787800F03000
+E00000E00000E00000E0007FFFF0FFFFF0FFFFF000E00000E00000E00000E00000E00000E00000
+E00000E00000E00000E00000E00000E00000E00000E00000E0007FFFC07FFFC07FFFC0151E7F9D
+1A>I<00F87C03FFFE07FFFE0F078C0E03801C01C01C01C01C01C01C01C01C01C00E03800F0780
+0FFF000FFE001CF8001C00001C00000E00000FFF800FFFE03FFFF87C007C70001CE0000EE0000E
+E0000EE0000E70001C78003C3E00F81FFFF007FFC001FF0017217F941A>I<FE0000FE0000FE00
+000E00000E00000E00000E00000E00000E00000E3E000EFF800FFFC00FC1C00F80E00F00E00E00
+E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E0FFE3FEFFE3
+FEFFE3FE171E7F9D1A>I<01C00003E00003E00003E00001C00000000000000000000000000000
+00007FE000FFE0007FE00000E00000E00000E00000E00000E00000E00000E00000E00000E00000
+E00000E00000E00000E00000E00000E000FFFFC0FFFFC0FFFFC0121F7C9E1A>I<001C003E003E
+003E001C000000000000000000000FFE0FFE0FFE000E000E000E000E000E000E000E000E000E00
+0E000E000E000E000E000E000E000E000E000E000E000E000E000E001C601CF038FFF87FF01FC0
+0F2A7E9E1A>I<FFE000FFE000FFE00000E00000E00000E00000E00000E00000E00000E00000E0
+0000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E0
+0000E00000E00000E000FFFFE0FFFFE0FFFFE0131E7D9D1A>108 D<7CE0E000FFFBF8007FFFF8
+001F1F1C001E1E1C001E1E1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C
+1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C007F1F1F00FF9F9F807F1F1F00191580941A
+>I<FE3E00FEFF80FFFFC00FC1C00F80E00F00E00E00E00E00E00E00E00E00E00E00E00E00E00E
+00E00E00E00E00E00E00E00E00E00E00E0FFE3FEFFE3FEFFE3FE17157F941A>I<01F00007FC00
+1FFF003E0F803C07807803C07001C0E000E0E000E0E000E0E000E0E000E0E000E0F001E07001C0
+7803C03C07803E0F801FFF0007FC0001F00013157D941A>I<FE3E00FEFF80FFFFE00FC1F00F80
+700F00380E00380E001C0E001C0E001C0E001C0E001C0E001C0E001C0F00380F00780F80F00FC1
+E00FFFC00EFF800E3E000E00000E00000E00000E00000E00000E00000E00000E0000FFE000FFE0
+00FFE00016207F941A>I<FF83F0FF8FF8FFBFFC03FC3C03F01803E00003C00003C00003800003
+8000038000038000038000038000038000038000038000038000FFFF00FFFF80FFFF0016157E94
+1A>114 D<07FB801FFF807FFF80780780E00380E00380E003807800007FC0003FFC0007FF0000
+3F800003806001C0E001C0E001C0F003C0FC0780FFFF00EFFE00E3F80012157C941A>I<00C000
+01C00001C00001C00001C00001C00001C0007FFFE0FFFFE0FFFFE001C00001C00001C00001C000
+01C00001C00001C00001C00001C00001C00001C07001C07001C07001C07000E0E000FFE0007FC0
+001F00141C7F9B1A>I<FE0FE0FE0FE0FE0FE00E00E00E00E00E00E00E00E00E00E00E00E00E00
+E00E00E00E00E00E00E00E00E00E00E00E00E00E01E00F03E007FFFE03FFFE00FCFE17157F941A
+>I<7FC7FCFFC7FE7FC7FC0E00E00E00E00F01E00701C00701C00783C003838003838003838001
+C70001C70001C70000EE0000EE0000EE00007C00007C0000380017157F941A>I<FF83FEFFC7FE
+FF83FE3800381C00701C00701C00701C00701C38701C7C700C7C600E6CE00E6CE00EEEE00EEEE0
+0EEEE006C6C006C6C007C7C007C7C003838017157F941A>I<7FC7F87FCFFC7FC7F80703C00387
+8003C70001EE0000FE00007C00007800003800007C0000EE0001EE0001C7000383800783C00701
+C07FC7FCFFC7FE7FC7FC17157F941A>I<7FC7FCFFC7FE7FC7FC0E00E00F00E00701E00701C007
+81C00381C003838001C38001C38001C70000E70000E70000E600006600006E00003C00003C0000
+3C00003C0000380000380000780000700030700078E00079E0007FC0003F80001E000017207F94
+1A>I<0007E0001FE0003FE000780000F00000E00000E00000E00000E00000E00000E00000E000
+00E00000E00000E00000E00001E00003C000FF8000FF0000FF800003C00001E00000E00000E000
+00E00000E00000E00000E00000E00000E00000E00000E00000E00000F000007800003FE0001FE0
+0007E013277DA21A>123 D<7C0000FF0000FF800003C00001E00000E00000E00000E00000E000
+00E00000E00000E00000E00000E00000E00000E00000F000007800003FE0001FE0003FE0007800
+00F00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00001E000
+03C000FF8000FF00007C000013277DA21A>125 D E /Fi 62 127 df<0000FE0000038100000E
+0080001C03C0003807C0007007C0007007800070030000E0000000E0000000E0000000E0000000
+E0000000E000003FFFFF003FFFFF0001C00F0001C0070001C0070001C0070003800E0003800E00
+03800E0003800E0003800E0003800E0007001C0007001C0007001C0007001C0007001C0007001C
+000F003C00FFE3FF80FFE3FF801A237FA21C>12 D<0380078007000E001C003800700040008000
+0A0971A219>19 D<0700078001E000F0007000E001E0FF800C087B7E16>24
+D<0001E000000003100000000C080000000C080000001808000000380800000038080000003008
+00000030100000007010000000702000000070400000007080000000710000000072000000003C
+003FF00038003FF00038000F800038000600007C000800009C000800011C001000061E0020000C
+0E004000180F004000380700800078078100007003820000F003C40000F001C80000F001F00080
+F800F00180F800F001007801B803003E0F1E0E001FFC0FFC0007E003F00024257DA327>38
+D<1C3E7E7E3A02020404080810204080070F78A20E>I<1C3E7E7E3A0202040408081020408007
+0F7D840E>44 D<FFF0FFF00C027D8B11>I<3078F8787005057C840E>I<001F0000E1C001C06003
+80700700300E00380E00381E00381C00381C00383C00383C003838007878007878007878007878
+0078780078F000F0F000F0F000F0F000F0F000E0F001E0F001E0F001C0F001C0F0038070038070
+0700700600380C001C380007E00015227CA019>48 D<000FC0007FF000E0FC01003E02001E0400
+1F07800F0FC00F0FC00F0FC00F0F801F03001E00001E00003C00003C0000780000F00001E00003
+C0000700000E00001C0000300000600000C0000180080200080400080800103000107FFFF0FFFF
+E0FFFFE018217EA019>50 D<001FC0007FE001C0F803007C07803C07C03C0FC03C0FC03C07803C
+03007C0000780000F00000E00001C000070000FE000003800001C00001E00000F00000F00000F0
+0000F81000F87C01F0FC01F0FC01F0FC01E0F803E0C007C0600780381F001FFC0007F00016227D
+A019>I<0000200000600000E00001E00001E00002E00005C00009C00011C00031C00061C00041
+C00083800103800203800403800C0380080380100700200700400700800700FFFFFCFFFFFC000E
+00000E00000E00000E00000E00000E00001E0003FFE003FFE016217DA019>I<00800400E03C01
+FFF801FFF001FFC0017F00010000010000020000020000020000020000023F0002C1C00500E006
+00600400700000700000780000780000780000783800787C0078FC00F0F800F0F800E08001E040
+01C0400380200700381E000FFC0007E00016227DA019>I<001FC0007FE000E07801801802000C
+06000C04000C0C000C0C000C0E000C0F00180F803007E06003F0C001FF0000FE00007F00019FC0
+060FE00C03E01801F03000F0600070600030C00030C00030C00030C00020E000606000C0300180
+3C0F000FFC0003F00016227DA019>56 D<003F0000FFC001E0E00380700700700E00381E00381C
+00383C00383C00383C00383C00787800787800787800783800F83800F83801781C01F00C02F006
+0CF001F0E00001E00001E00001C00003C0700380F80700F80600F00E00803C00E070007FE0001F
+800015227CA019>I<060F1F1F0E00000000000000000000003078F8787008157C940E>I<000004
+0000000006000000000E000000000E000000001E000000001E000000003F000000006F00000000
+4F00000000CF000000008F000000018F000000010F800000020780000002078000000407800000
+040780000008078000000803C000001003C000001003C000002003C000003FFFC000007FFFC000
+004001E000008001E000008001E000010001E000010001E000020001F000020000F000060000F0
+001F0001F000FFC01FFF80FFC01FFF0021237EA225>65 D<07FFFFE007FFFFF8003C007C003C00
+3E003C001F003C001F003C000F0078000F0078000F0078001F0078001F0078003E0078003C00F0
+007800F001F000F007C000FFFFC000F001F000F000F801E0007C01E0007C01E0003C01E0003E01
+E0003E01E0003E03C0003C03C0007C03C0007C03C000F803C001F003C003E007C00FC0FFFFFF80
+FFFFFC0020227EA123>I<0000FE010007FF83001F81C6007C006E00F0003E01E0001E03C0001E
+0780000E0F00000C1F00000C1E0000043E0000043C0000047C0000047C000000F8000000F80000
+00F8000000F8000000F8000000F8000000F0000000F0000000F0000010F8000010F8000020F800
+0020780000207C0000403C0000801E0001800F0003000780060003E0380001FFF000003F800020
+247AA224>I<07FFFFE00007FFFFF800003C007C00003C001E00003C000F00003C000780003C00
+078000780003C000780003C000780003E000780003E000780003E000780003E000F00003E000F0
+0003E000F00003E000F00003E000F00003E000F00003E001E00003C001E00007C001E00007C001
+E000078001E0000F8001E0000F0003C0001F0003C0001E0003C0003C0003C000780003C000F000
+03C003E00007C00FC000FFFFFF0000FFFFF8000023227EA126>I<07FFFFFF8007FFFFFF80003C
+001F00003C000700003C000300003C000300003C00010000780001000078000100007802010000
+780201000078020100007806000000F004000000F01C000000FFFC000000FFFC000000F01C0000
+00F00C000001E008000001E008000001E008010001E008010001E000020001E000020003C00002
+0003C000040003C000040003C0000C0003C000180003C000380007C001F800FFFFFFF000FFFFFF
+F00021227EA122>I<0000FE010007FF83001F81C6007C006E00F0003E01E0001E03C0001E0780
+000E0F00000C1F00000C1E0000043E0000043C0000047C0000047C000000F8000000F8000000F8
+000000F8000000F8000000F8000000F0003FFFF0003FFFF00000F0F80000F0F80000F0F80001E0
+780001E07C0001E03C0001E01E0003E00F0003E0078004C003F038C001FFF040003F800020247A
+A227>71 D<07FFF007FFF0003E00003C00003C00003C00003C0000780000780000780000780000
+780000780000F00000F00000F00000F00000F00000F00001E00001E00001E00001E00001E00001
+E00003C00003C00003C00003C00003C00003C00007C000FFFE00FFFC0014227EA112>73
+D<003FFF003FFF0000F00000F00000F00000F00000F00001E00001E00001E00001E00001E00001
+E00003C00003C00003C00003C00003C00003C0000780000780000780000780000780000780300F
+007C0F00FC0F00FC0F00FC1E00F81E00803C0040380030E0000F800018237DA11A>I<07FFF00F
+FE07FFF00FFC003E0003E0003C000300003C000200003C000400003C0018000078002000007800
+4000007800800000780100000078020000007808000000F018000000F03C000000F07C000000F0
+9E000000F31E000000F40F000001E80F000001F00F800001E007800001E007C00001E003C00001
+E003E00003C001E00003C001F00003C000F00003C000F80003C000780003C0007C0007C0007E00
+FFFC03FFC0FFFC03FFC027227EA127>I<07FFF80007FFF800003E0000003C0000003C0000003C
+0000003C000000780000007800000078000000780000007800000078000000F0000000F0000000
+F0000000F0000000F0000000F0000001E0000001E0000001E0001001E0001001E0003001E00020
+03C0002003C0006003C0006003C000C003C001C003C003C007C00FC0FFFFFF80FFFFFF801C227E
+A11F>I<07FC000007FE07FC00000FFE002E00000FC0002E00001780002E00001780002E000027
+80002700002780004700004F00004700008F00004700008F00004700010F00004380010F000043
+80020F00008380021E00008380041E000081C0041E000081C0081E000081C0081E000081C0101E
+000101C0203C000100E0203C000100E0403C000100E0403C000100E0803C000100E0803C000200
+7100780002007100780002007200780002007200780002003C0078000600380078000F003800F8
+00FFE0301FFF80FFE0301FFF802F227EA12E>I<07FFFFC007FFFFF0003C00FC003C003E003C00
+1E003C001F003C001F0078001F0078001F0078001F0078001F0078001E0078003E00F0003C00F0
+007800F000F000F003E000FFFF8000F0000001E0000001E0000001E0000001E0000001E0000001
+E0000003C0000003C0000003C0000003C0000003C0000003C0000007C00000FFFC0000FFFC0000
+20227EA122>80 D<07FFFF800007FFFFF000003C00F800003C003C00003C001E00003C001F0000
+3C001F000078001F000078001F000078001F000078001F000078003E000078003C0000F0007800
+00F000F00000F007C00000FFFE000000F00E000000F003000001E003800001E001C00001E001C0
+0001E001E00001E001E00001E001E00003C003E00003C003E00003C003E00003C003E00003C003
+E02003C003E04007C003E040FFFC01F080FFFC00F1800000003E0023237EA125>82
+D<000FC040003FF0C000F0398001C00F80018003800300038007000180070001800E0001000E00
+01000E0001000F0000000F0000000F80000007E0000007FE000003FFC00001FFF000007FF80000
+07FC0000007C0000003C0000001E0000001E0000001E0020001E0040001C0040001C0060001C00
+600018006000380070007000F800E000EF03C000C7FF800080FE00001A247DA21C>I<1FFFFFFF
+3FFFFFFF3C01E01E3001E0062001E0026001E0024001E0024003C0024003C0028003C0028003C0
+028003C0020003C000000780000007800000078000000780000007800000078000000F0000000F
+0000000F0000000F0000000F0000000F0000001E0000001E0000001E0000001E0000001E000000
+1E0000003E00001FFFF8001FFFF80020227AA124>I<FFFE07FF80FFFE07FF8007C00078000780
+0020000780002000078000200007800020000F000040000F000040000F000040000F000040000F
+000040000F000040001E000080001E000080001E000080001E000080001E000080001E00008000
+3C000100003C000100003C000100003C000100003C000100003C000200003C000200003C000200
+003C000400003C000C00001C000800001E001000000E006000000781C0000003FF800000007E00
+0000212379A125>I<FFFC007FE0FFF8007FE00F80001E000780000C0007800008000780001000
+03C000100003C000200003C000200003C000400003C000C00001E000800001E001000001E00100
+0001E002000001E002000000F004000000F004000000F008000000F008000000F0100000007810
+00000078200000007860000000784000000078800000003C800000003D000000003D000000003E
+000000003E000000001C000000001C0000000018000000001800000023237AA125>I<FFF81FFF
+03FF80FFF81FFE03FF800F8003E00078000F8001E0003000078001E0002000078001E000200007
+8001E0004000078003F0004000078002F0008000078004F000800007C004F001000003C008F001
+000003C008F002000003C010F002000003C010F804000003C0307804000003C0207808000001E0
+207808000001E0407810000001E0407810000001E0807830000001E0803C20000001E1003C2000
+0001E1003C40000000F2003C40000000F2003C80000000F4003C80000000F4003D00000000F800
+1F00000000F8001E00000000F0001E0000000070001C0000000060001C00000000600018000000
+0040001800000031237AA133>I<03FFF03FF803FFE03FF8001F800F80000F000600000F000C00
+000780080000078010000007C020000003C040000003E0C0000001E080000001F100000000F200
+000000FC0000000078000000007C000000003C000000003E000000005E000000009F000000018F
+000000030F800000020780000004078000000803C000001003C000003003E000002001E0000040
+01F000008000F000018000F80007C000F800FFF007FFC0FFF007FFC025227FA125>I<FFF8007F
+E0FFF8007FE007C0001E0007C000180003C000100003C000200003E000200001E000400001F000
+800000F001000000F801000000780200000078040000007C080000003C180000003E100000001E
+200000001F400000001FC00000000F800000000F000000000F000000000F000000000F00000000
+0E000000001E000000001E000000001E000000001E000000001E000000001C000000003E000000
+07FFE0000007FFE0000023227AA125>I<0100038007C00CC018603030601080080D0876A219>
+94 D<03FC000E07001F01801F01C01E00C00C00E00001C00001C0003FC003E1C00F01C01E01C0
+380380780380F00384F00384F00784F00784F00B887833D01FC1E016157D9419>97
+D<0780003F80003F00000700000700000700000700000700000E00000E00000E00000E00000E00
+000E00001C3F001CC1C01D00601E00701C00381C003838003C38003C38003C38003C38003C3800
+3C7000787000787000707000F07000E06801C0E80380C60E0081F80016237BA21C>I<00FF0003
+83800607C00C07C01C0780380300780000700000F00000F00000F00000F00000F00000E00000F0
+0000F000807001007001003806001C180007E00012157C9416>I<00000F00007F00007E00000E
+00000E00000E00000E00000E00001C00001C00001C00001C00001C00001C007E3803C1380700B8
+0E00781C0038380038780070700070F00070F00070F00070F00070E000E0E000E0E000E0F000E0
+7001E07003E03805E01C19FC07E1FC18237CA21C>I<007E000383800701C00C00E01C00E03800
+E07800E07000E0FFFFE0F00000F00000F00000F00000E00000E00000F000407000803000801803
+000E0C0003F00013157D9416>I<0001E0000630001C780018F80038F800707000700000700000
+E00000E00000E00000E00000E00000E0003FFE003FFE0001C00001C00001C00001C00003800003
+80000380000380000380000380000700000700000700000700000700000700000F0000FFF000FF
+F00015237FA20F>I<00000380001F8CC00070D1C000E0E1C001C0700003C0700003C070000780
+F0000780F0000780F0000780E0000381E0000181C00002C30000027E0000040000000400000004
+0000000600000007FFC00007FFF00007FFF8001C007C0030000C0060000C0060000C00C0000C00
+C0000C004000180060003000300060000C03800003FE00001A21809519>I<0078000003F80000
+03F00000007000000070000000700000007000000070000000E0000000E0000000E0000000E000
+0000E0000000E0000001C1F80001C60C0001D80E0001E0070001E0070001C0070003C00E000380
+0E0003800E0003800E0003800E0003800E0007001C0007001C0007001C0007001C0007001C0007
+001C000F003C00FFE3FF80FFE3FF8019237FA21C>I<007000F001F000F000E000000000000000
+00000000000000000001C00FC01FC003C001C001C0038003800380038003800380070007000700
+0700070007000F00FFE0FFE00C227FA10E>I<0078000003F8000003F000000070000000700000
+00700000007000000070000000E0000000E0000000E0000000E0000000E0000000E0000001C07F
+C001C07FC001C03C0001C0300001C0400001C080000383000003840000038E000003BE000003CF
+00000387000007078000070380000701C0000701C0000700E0000700F0000F00F800FFE3FF00FF
+E3FE001A237FA21A>107 D<007803F803F00070007000700070007000E000E000E000E000E000
+E001C001C001C001C001C001C00380038003800380038003800700070007000700070007000F00
+FFE0FFE00D237FA20E>I<01C1F807E01FC60C18301FD80E603803E007801C01E007801C01C007
+001C03C00F003803800E003803800E003803800E003803800E003803800E003807001C00700700
+1C007007001C007007001C007007001C007007001C00700F003C00F0FFE3FF8FFEFFE3FF8FFE27
+157F942A>I<01C1F8001FC60C001FD80E0003E0070001E0070001C0070003C00E0003800E0003
+800E0003800E0003800E0003800E0007001C0007001C0007001C0007001C0007001C0007001C00
+0F003C00FFE3FF80FFE3FF8019157F941C>I<007F0001C1C00700E00E00701C00383800387800
+3C70003CF0003CF0003CF0003CF0003CE00078E00078E00070F000F07000E07001C03803800E0E
+0003F00016157D9419>I<00E1F8000FE60E000FE8070000F0038000E003C000E001C001C001E0
+01C001E001C001E001C001E001C001E001C001E0038003C0038003C0038007800380078003800F
+0003C00E0007403C0007307000070FC0000700000007000000070000000E0000000E0000000E00
+00000E0000000E000000FFC00000FFC000001B1F80941C>I<00FC100382100701300E00F01C00
+F03800F07800E07800E0F000E0F000E0F000E0F000E0F001C0F001C0F001C0F001C07003C07005
+C0380B801C338007C380000380000380000380000700000700000700000700000700007FE0007F
+E0141F7C941A>I<01C3E01FC4701FD8F003D0F001E06001C00003C00003800003800003800003
+80000380000700000700000700000700000700000700000F0000FFF000FFF00014157F9414>I<
+01FC800603800C01801801801801801800801801001E00001FE0000FFC0003FE00007E00000700
+400700400300400300600200600600F00400C8180087E00011157E9414>I<0080008000800180
+010001000300030007000F001FF8FFF80E000E000E000E001C001C001C001C001C001C00381038
+10381038103810382038201C4007800D1F7C9E13>I<0E0038FE03F8FE03F81E00780E00380E00
+381C00701C00701C00701C00701C00701C00703800E03800E03800E03800E03801E03802E01805
+E01C19FC07E1FC16157C941C>I<FFCFFC3FC0FFCFF87F801E01E01E000E00C008000E00C00800
+0E01E010000E03E010000E02E02000070660200007046040000708704000070870800007107180
+00079031000003A033000003A03A000003C03C000003C03C000003801800000180180000010010
+000022157C9424>119 D<1FF83FC01FF87FC001E03C0000E0100000E020000070400000388000
+00390000001E0000001C0000000E0000001F0000003700000063800000C380000181C0000101C0
+000600E0001E00F000FF03FF00FF03FF001A157F941A>I<0FFC0FE00FFC0FE000E0078000E002
+0000E0040000E00400007008000070080000701000007030000038200000384000003840000038
+8000003C8000001D0000001D0000001E0000001C0000000C000000080000000800000010000000
+1000000020000078400000F8400000F8800000F1000000420000003C0000001B1F80941A>I<FF
+FFFF18017E8C19>123 D<0E011F03318440F88070100577A019>126 D E
+/Fj 27 123 df<70F8FCFC7404040404080810102040060F7A8410>44 D<0003F802001FFF0600
+7E038601F000CE03E0003E0780001E0F00001E1F00000E1E0000063E0000063C0000067C000002
+7C00000278000002F8000000F8000000F8000000F8000000F8000000F8000000F8000000F80000
+00780000007C0000027C0000023C0000023E0000021E0000041F0000040F0000080780001803E0
+003001F00060007E03C0001FFF000003FC001F247CA227>67 D<FFFFFFE0FFFFFFE0078003E007
+8000E0078000600780002007800030078000300780001007800010078020100780201007802000
+07802000078060000780E00007FFE00007FFE0000780E000078060000780200007802000078020
+00078020000780000007800000078000000780000007800000078000000780000007800000FFFE
+0000FFFE00001C227CA123>70 D<FFFC1FFF80FFFC1FFF80078000F000078000F000078000F000
+078000F000078000F000078000F000078000F000078000F000078000F000078000F000078000F0
+00078000F000078000F00007FFFFF00007FFFFF000078000F000078000F000078000F000078000
+F000078000F000078000F000078000F000078000F000078000F000078000F000078000F0000780
+00F000078000F000078000F000078000F000FFFC1FFF80FFFC1FFF8021227CA129>72
+D<FFFCFFFC07800780078007800780078007800780078007800780078007800780078007800780
+0780078007800780078007800780078007800780078007800780FFFCFFFC0E227DA114>I<FFFE
+0000FFFE0000078000000780000007800000078000000780000007800000078000000780000007
+800000078000000780000007800000078000000780000007800000078000000780000007800000
+0780000007800020078000200780002007800020078000600780006007800040078000C0078001
+C0078003C007800FC0FFFFFFC0FFFFFFC01B227CA122>76 D<FFFFE00000FFFFFC000007801F00
+000780078000078003C000078003E000078001E000078001F000078001F000078001F000078001
+F000078001E000078003E000078003C000078007000007803E000007FFF0000007807800000780
+1C000007800E000007800F00000780070000078007800007800780000780078000078007800007
+8007C000078007C000078007C000078007C020078003E020078003E020FFFC01E040FFFC00F080
+0000003F0023237CA128>82 D<FFF80FFF807FE0FFF80FFF807FE00F8000F8000F000F80007800
+0600078000780004000780007C00040007C000BC000C0003C000BC00080003C000BE00080003E0
+011E00080001E0011E00100001E0011E00100001E0020F00100000F0020F00200000F0020F0020
+0000F00407802000007804078040000078040780400000780803C04000003C0803C08000003C08
+03C08000003C1001E08000001E1001E10000001E1001E10000001E2000F10000000F2000F20000
+000F2000F20000000F40007A00000007C0007C00000007C0007C0000000780003C000000038000
+38000000038000380000000300001800000001000010000033237EA137>87
+D<00040000000E0000000E0000000E0000001F0000001F0000003F800000278000002780000043
+C0000043C0000043C0000081E0000081E0000101F0000100F0000100F00003FFF8000200780006
+007C0004003C0004003C000C001E000C001E003C003F00FF00FFE01B1A7F991F>97
+D<FFFF800F00E00F00700F00380F003C0F003C0F003C0F003C0F003C0F00780F00700F01E00FFF
+C00F00F00F00380F003C0F001C0F001E0F001E0F001E0F001E0F001C0F003C0F00780F00F0FFFF
+C0171A7E991D>I<003F0201C0C603002E0E001E1C000E1C0006380006780002700002700002F0
+0000F00000F00000F00000F00000F000007000027000027800023800041C00041C00080E000803
+003001C0C0003F00171A7E991D>I<FFFF80000F01E0000F0070000F0038000F001C000F000E00
+0F000E000F0007000F0007000F0007800F0007800F0007800F0007800F0007800F0007800F0007
+800F0007800F0007000F0007000F000F000F000E000F001C000F0038000F0070000F01E000FFFF
+8000191A7E991F>I<FFFFF80F00380F00180F00080F000C0F00040F00040F00040F02000F0200
+0F02000F06000FFE000F06000F02000F02000F02000F00020F00020F00020F00060F00040F0004
+0F000C0F003CFFFFFC171A7E991C>I<003F810001E063000380170006000F000C0007001C0003
+0038000300780001007800010070000100F0000000F0000000F0000000F0000000F0000000F001
+FFE070001F0078000F0078000F0038000F001C000F000C000F0006000F000380170001E0630000
+3F81001B1A7E9920>103 D<FFE3FF800F0078000F0078000F0078000F0078000F0078000F0078
+000F0078000F0078000F0078000F0078000F0078000FFFF8000F0078000F0078000F0078000F00
+78000F0078000F0078000F0078000F0078000F0078000F0078000F0078000F007800FFE3FF8019
+1A7E991F>I<FFF00F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F
+000F000F000F000F000F000F000F000F00FFF00C1A7F990F>I<FFF0000F80000F00000F00000F
+00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F
+00100F00100F00100F00300F00200F00600F00600F01E0FFFFE0141A7E991A>108
+D<FF0003FE0F0003E00F0003E00B8005E00B8005E00B8005E009C009E009C009E009C009E008E0
+11E008E011E008E011E0087021E0087021E0083841E0083841E0083841E0081C81E0081C81E008
+1C81E0080F01E0080F01E0080F01E0080601E01C0601E0FF861FFE1F1A7E9925>I<FF00FF800F
+801C000F8008000BC0080009E0080009E0080008F0080008F8080008780800083C0800083C0800
+081E0800080F0800080F0800080788000803C8000803C8000801E8000800F8000800F800080078
+000800780008003800080018001C001800FF800800191A7E991F>I<007F800001C0E000070038
+000E001C001C000E003C000F0038000700780007807000038070000380F00003C0F00003C0F000
+03C0F00003C0F00003C0F00003C0F00003C07800078078000780380007003C000F001C000E000E
+001C000700380001C0E000007F80001A1A7E9920>I<007F800001C0E000070038000E001C001C
+000E003C000F0038000700780007807800078070000380F00003C0F00003C0F00003C0F00003C0
+F00003C0F00003C0F00003C07000038078000780380007003C1E0F001C310E000E209C000720B8
+0001E0E000007FC0400000404000006040000070C000007F8000003F8000003F0000001E001A21
+7E9920>113 D<FFFE00000F03C0000F00E0000F00F0000F0078000F0078000F0078000F007800
+0F0078000F00F0000F00E0000F03C0000FFE00000F0380000F01E0000F00E0000F00F0000F00F0
+000F00F0000F00F0000F00F0000F00F0000F00F0400F0070400F003880FFF01F001A1A7E991E>
+I<07E100181B00300700600300600300E00100E00100E00100F00000F800007F80003FF8001FFC
+000FFE0000FF00000F00000780000780800380800380800380C00300C00700E00600DC0C0083F0
+00111A7E9917>I<7FFFFF00701E0700601E0100401E0100C01E0180801E0080801E0080801E00
+80001E0000001E0000001E0000001E0000001E0000001E0000001E0000001E0000001E0000001E
+0000001E0000001E0000001E0000001E0000001E0000001E0000003F000003FFF000191A7F991D
+>I<FFF0FF800F001C000F0008000F0008000F0008000F0008000F0008000F0008000F0008000F
+0008000F0008000F0008000F0008000F0008000F0008000F0008000F0008000F0008000F000800
+0F00080007001000078010000380200001C0600000E08000003F0000191A7E991F>I<FFC00FF0
+1F0007801F0003000F8002000780040007C0040003E0080001E0080001F0100000F83000007820
+00007C4000003E4000001E8000001F8000000F0000000F0000000F0000000F0000000F0000000F
+0000000F0000000F0000000F0000000F000000FFE0001C1A7F991F>121
+D<7FFFE07803C07003C0600780400780400F00401E00401E00003C00003C0000780000F00000F0
+0001E00001E00003C0000780200780200F00200F00201E00603C00403C00C07801C07803C0FFFF
+C0131A7E9919>I E /Fk 19 121 df<FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFF000007F00000000007F00000000007F00000000007F000000000
+07F00000000007F00000000007F00000000007F00000000007F00000000007F00000000007F000
+00000007F00000000007F00000000007F00000000007F00000000007F00000000007F000000000
+07F00000000007F00000000007F00000000007F00000000007F00000000007F00000000007F000
+00000007F00000000007F00000000007F00000000007F00000000007F00000000007F000000000
+07F00000000007F00000000007F00000000007F00000000007F00000000007F00000000007F000
+00000007F00000000007F00000000007F00000000007F00000000007F00000000007F000000000
+07F00000000007F00000000007F00000000007F00000000007F00000000007F00000000007F000
+00000007F00000000007F00000000007F00000000007F00000303C7DBB37>84
+D<003FF00001FFFC0007FFFF001FFFFF801FFFFFC01FC01FE01E000FE0180007F0100007F00000
+03F8000003F8000003F8000003F8000003F8000003F8000003F80007FFF8007FFFF801FFFFF807
+FFFFF81FFF03F83FF003F87FC003F87F0003F8FF0003F8FE0003F8FE0003F8FE0003F8FE0003F8
+FF0007F87F800FF87FE07FF83FFFFFF83FFFFFF81FFFFBF807FFE3F803FE03F81D257DA427>97
+D<0007FE00003FFFC000FFFFF001FFFFF803FFFFF807FC03F80FF000701FE000301FC000003F80
+00003F8000007F0000007F0000007F000000FE000000FE000000FE000000FE000000FE000000FE
+000000FE000000FE000000FE0000007F0000007F0000007F0000003F8000003F8000001FC00004
+1FE0001C0FF0007C07FC03FC03FFFFFC01FFFFFC00FFFFF0003FFFC00007FC001E257DA424>99
+D<0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000
+007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00
+00007F0000007F0000007F0000007F001FE07F007FF87F01FFFE7F03FFFFFF07FFFFFF0FFE07FF
+0FF001FF1FE000FF3FC0007F3F80007F7F80007F7F00007F7F00007F7F00007FFE00007FFE0000
+7FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007F7F00007F7F00007F7F00
+007F7F80007F3F80007F3FC000FF1FE001FF1FF003FF0FFC0FFF07FFFFFF03FFFF7F01FFFC7F00
+7FF87F001FC07F203C7DBB2A>I<0007F800003FFE0000FFFF8001FFFFC003FFFFE007FC1FF00F
+F007F01FE003F81FC001F83F8000FC3F8000FC7F0000FC7F00007E7FFFFFFEFFFFFFFEFFFFFFFE
+FFFFFFFEFFFFFFFEFE000000FE000000FE000000FE000000FE0000007E0000007F0000007F0000
+003F8000003F8000001FC000041FE0001C0FF8007C07FE03FC03FFFFFC01FFFFF8007FFFE0001F
+FF800003FC001F257EA424>I<0000FFC00003FFC00007FFC0001FFFC0003FFFC0003F8040007F
+000000FE000000FC000000FC000001FC000001FC000001FC000001FC000001FC000001FC000001
+FC000001FC000001FC000001FC000001FC000001FC000001FC0000FFFFFC00FFFFFC00FFFFFC00
+FFFFFC00FFFFFC0001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC00
+0001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC
+000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001
+FC000001FC000001FC000001FC000001FC00001A3C7FBB19>I<001FE007E0007FF83FE001FFFF
+FFF003FFFFFFF007FFFFFFF00FF87FE0000FE01FC0001FC00FE0001FC00FE0003F8007F0003F80
+07F0003F8007F0003F8007F0003F8007F0003F8007F0003F8007F0001F8007E0001FC00FE0001F
+C00FE0000FE01FC0000FF87FC00007FFFF80000FFFFF00001FFFFE00001E7FF800001E1FE00000
+3E000000003E000000003E000000003F000000001F800000001FFFFF00001FFFFFF0000FFFFFFC
+000FFFFFFE000FFFFFFF001FFFFFFF803FFFFFFFC03F8000FFC07E00001FC07E00000FE0FC0000
+07E0FC000007E0FC000007E0FC000007E0FC000007E07E00000FC07F00001FC03FC0007F801FF8
+03FF000FFFFFFE0007FFFFFC0001FFFFF000007FFFC000000FFE000024377EA428>I<FE000000
+FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0000
+00FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE00
+0000FE000000FE000000FE03FC00FE0FFF00FE3FFFC0FE7FFFE0FEFFFFE0FFF01FF0FFE00FF0FF
+C007F8FF8007F8FF0003F8FF0003F8FF0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8
+FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003
+F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE00
+03F81D3C7ABB2A>I<FEFEFEFEFEFEFE0000000000000000000000000000FEFEFEFEFEFEFEFEFE
+FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE073A7AB914>I<FEFEFEFE
+FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
+FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE073C7ABB14>108 D<FE03FC000FF000FE0FFF003FFC
+00FE3FFFC0FFFF00FE7FFFE1FFFF80FEFFFFE3FFFF80FFF01FF7C07FC0FFE00FFF803FC0FFC007
+FF001FE0FF8007FE001FE0FF0003FC000FE0FF0003FC000FE0FF0003FC000FE0FE0003F8000FE0
+FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8
+000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE
+0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F800
+0FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE0003F8000FE0FE00
+03F8000FE0FE0003F8000FE033257AA440>I<FE03FC00FE0FFF00FE3FFFC0FE7FFFE0FEFFFFE0
+FFF01FF0FFE00FF0FFC007F8FF8007F8FF0003F8FF0003F8FF0003F8FE0003F8FE0003F8FE0003
+F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE00
+03F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE
+0003F8FE0003F8FE0003F81D257AA42A>I<0007FC0000001FFF0000007FFFC00001FFFFF00003
+FFFFF80007FC07FC000FF001FE001FE000FF001FC0007F003F80003F803F80003F807F00001FC0
+7F00001FC07E00000FC0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000F
+E0FE00000FE0FE00000FE0FE00000FE07F00001FC07F00001FC07F00001FC03F80003F803F8000
+3F801FC0007F001FE000FF000FF001FE0007FE0FFC0003FFFFF80001FFFFF000007FFFC000001F
+FF00000007FC000023257EA428>I<FE03FC00FE1FFF00FE7FFF80FEFFFFC0FFFFFFE0FFF03FF0
+FFC00FF8FF0007F8FE0003FCFE0001FCFE0001FEFE0000FEFE0000FEFE0000FFFE00007FFE0000
+7FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE0000FEFE0000FEFE00
+01FEFE0001FCFE0003FCFF0003FCFF0007F8FF801FF0FFE07FE0FFFFFFC0FEFFFF80FE7FFF00FE
+1FFE00FE07F000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000
+FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE00000020367A
+A42A>I<FE00F0FE07F0FE1FF0FE3FF0FE7FF0FEFFF0FFFF00FFF800FFF000FFE000FFC000FF80
+00FF8000FF0000FF0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE00
+00FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE00001425
+7AA41C>114 D<007FC00003FFFC0007FFFF000FFFFF801FFFFF803F803F803F000F007E000300
+7E0000007E0000007E0000007E0000007F0000007FC000003FFC00003FFFC0001FFFF0000FFFFC
+0007FFFE0001FFFF00007FFF000007FF8000007F8000001FC000001FC000000FC000000FC04000
+0FC060000FC078001F80FC001F80FF807F80FFFFFF007FFFFE001FFFFC0007FFF000007FC0001A
+257EA41F>I<01FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001
+FC000001FC000001FC0000FFFFFE00FFFFFE00FFFFFE00FFFFFE00FFFFFE0001FC000001FC0000
+01FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC00
+0001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC000001FC
+000001FC000001FC000001FC010001FE030001FE0F8000FFFF8000FFFF80007FFE00003FF80000
+1FC00019307FAF1D>I<FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE
+0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8
+FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003F8FE0003
+F8FE0007F8FE0007F8FE000FF8FF001FF8FF807FF87FFFFFF87FFFFBF83FFFE3F81FFF83F807FC
+03F81D257AA42A>I<7F80003FC03FC0003FC03FC0007F801FE000FF000FF001FE0007F801FC00
+03F803FC0003FC07F80001FE07F00000FF0FE000007F1FE000003FBFC000003FFF8000001FFF00
+00000FFF00000007FE00000007FC00000003F800000003F800000007FC00000007FE0000000FFF
+0000001FFF8000003F9F8000003F1FC000007F0FE00000FE07F00001FC07F80003FC03F80003F8
+01FC0007F001FE000FF000FF001FE0007F001FC0003F803FC0003FC07F80001FE0FF00000FF024
+2580A425>120 D E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300
+TeXDict begin @letter /letter where {pop letter} if
+%%EndSetup
+%%Page: 1 1
+bop -5 173 a Fk(The)27 b(design)f(and)g(implementation)e(of)-5
+255 y(a)j(language)f(fo)n(r)h(extending)e(applications)-5 370
+y Fj(Luiz)18 b(Henrique)e(de)i(Figueiredo,)f(R)o(ober)m(to)f(Ier)o
+(usalimschy,)g(W)-6 b(aldemar)17 b(Celes)g(Filho)-5 454 y Fi(T)l(eCGraf{Grup)
+q(o)f(de)g(T)l(ecnologia)g(em)g(Computa\030)-22 b(c~)d(ao)16
+b(Gr\023)-25 b(a\014ca,)15 b(ITS,)h(PUC-Rio)-5 514 y(Pr)o(\023)-24
+b(edio)16 b(do)g(ITS,)g(Rua)g(Marqu)o(^)-24 b(es)15 b(de)i(S~)-25
+b(ao)16 b(Vicen)o(te)h(225,)f(22453-900)f(Rio)h(de)h(Janeiro,)e(RJ,)h(Brasil)
+-5 574 y Fh({lhf,roberto,celes}@ic)q(ad.puc)q(-rio.br)-5 779
+y Fg(Abstract.)26 b Ff(W)l(e)16 b(describ)q(e)g(the)h(design)e(and)h(the)h
+(implemen)o(tation)d(of)j Fe(Lua)p Ff(,)f(a)g(simple,)f(y)o(et)i(p)q(o)o(w)o
+(erful,)-5 839 y(language)i(for)g(extending)g(applications.)29
+b(Although)19 b Fe(Lua)g Ff(is)g(a)h(pro)q(cedural)d(language,)i(it)h(has)f
+(data)-5 899 y(description)11 b(facilities,)h(and)g(has)f(b)q(een)h(extensiv)
+o(ely)g(used)f(in)h(pro)q(duction)f(for)g(sev)o(eral)h(tasks)f(including)-5
+959 y(user)i(con\014guration,)g(general-purp)q(ose)e(data-en)o(try)l(,)i
+(description)g(of)h(user)f(in)o(terfaces,)g(description)g(of)-5
+1019 y(application)j(ob)s(jects,)g(and)g(storage)g(of)h(structured)e
+(graphical)g(meta\014les.)-5 1133 y Fg(Resumo.)26 b Ff(Descrev)o(emos)11
+b(o)g(pro)s(jeto)h(e)f(a)h(implemen)o(ta\030)-22 b(c~)d(ao)10
+b(de)i Fe(Lua)p Ff(,)g(uma)f(linguagem)f(simples,)h(p)q(or)o(\023)-24
+b(em)-5 1193 y(p)q(o)q(derosa,)17 b(para)f(extens~)-25 b(ao)18
+b(de)f(aplica\030)-22 b(c~)d(oes.)24 b(Em)o(b)q(ora)16 b(pro)q(cedural,)f
+Fe(Lua)j Ff(con)o(t)o(\023)-24 b(em)16 b(mecanismos)g(para)-5
+1253 y(descri\030)-22 b(c~)d(ao)20 b(de)g(dados)f(e)i(tem)g(sido)e(largamen)o
+(te)g(utilizada)h(em)g(pro)q(du\030)-22 b(c~)d(ao)19 b(para)h
+(con\014gura\030)-22 b(c~)d(ao)19 b(p)q(elo)-5 1313 y(usu\023)-25
+b(ario,)24 b(en)o(trada)e(de)i(dados,)g(descri\030)-22 b(c~)d(ao)23
+b(de)h(in)o(terfaces,)g(descri\030)-22 b(c~)d(ao)23 b(de)h(ob)s(jetos)f(da)h
+(aplica\030)-22 b(c~)d(ao)23 b(e)-5 1373 y(armazenagem)15 b(de)i
+Fd(meta\014les)f Ff(gr\023)-25 b(a\014cos)15 b(estruturados.)-5
+1553 y Fg(Intro)r(duction)-5 1638 y Ff(There)k(is)h(increasing)e(demand)g
+(for)i(customizable)e(applications.)30 b(As)20 b(applications)e(b)q(ecame)i
+(more)-5 1698 y(complex,)k(customization)e(with)g(simple)g(parameters)f(b)q
+(ecame)i(imp)q(ossible:)32 b(users)22 b(no)o(w)f(w)o(an)o(t)h(to)-5
+1758 y(mak)o(e)14 b(con\014guration)e(decisions)g(at)i(execution)g(time;)h
+(users)d(also)h(w)o(an)o(t)g(to)i(write)e(macros)g(and)g(scripts)-5
+1817 y(to)18 b(increase)d(pro)q(ductivit)o(y)i(\(Ry)o(an)f(1990\).)24
+b(Therefore,)16 b(no)o(w)o(ada)o(ys,)e(larger)i(applications)f(almost)i(in-)
+-5 1877 y(v)m(ariably)j(carry)g(their)h(o)o(wn)f(con\014guration)e(or)i
+(scripting)g(languages)f(for)h(end-user)f(programming.)-5 1937
+y(These)g(languages)f(are)h(usually)f(simple,)g(but)h(eac)o(h)g(has)f(its)h
+(o)o(wn)g(particular)f(syn)o(tax.)29 b(As)19 b(a)h(conse-)-5
+1997 y(quence,)e(users)f(ha)o(v)o(e)g(to)h(learn)f(\(and)h(dev)o(elop)q(ers)f
+(ha)o(v)o(e)g(to)h(design,)f(implemen)o(t)g(and)g(debug\))g(a)h(new)-5
+2056 y(language)e(for)g(eac)o(h)g(application.)-5 2141 y(Our)c(\014rst)g(exp)
+q(erience)h(with)g(a)g(proprietary)e(scripting)g(language)h(arose)g(in)g(a)h
+(data-en)o(try)f(application,)-5 2201 y(for)23 b(whic)o(h)f(a)h(v)o(ery)g
+(simple)f(declarativ)o(e)h(language)f(w)o(as)g(designed)g
+(\(Figueiredo{Souza{Gattass{)-5 2261 y(Co)q(elho)h(1992\).)41
+b(\(Data-en)o(try)23 b(is)f(an)h(area)f(where)h(user)f(de\014ned)g(actions)g
+(are)g(esp)q(ecially)h(needed)-5 2320 y(b)q(ecause)13 b(pre-co)q(ded)e(v)m
+(alidation)i(tests)g(can)f(hardly)g(b)q(e)h(adequate)f(for)h(all)f
+(applications.\))20 b(When)12 b(users)-5 2380 y(b)q(egan)i(to)g(demand)f
+(increasingly)f(more)h(p)q(o)o(w)o(er)g(in)g(this)g(language,)h(w)o(e)f
+(decided)h(that)g(a)g(more)f(general)-5 2440 y(approac)o(h)i(w)o(as)h(needed)
+h(and)f(started)g(the)h(design)f(of)h(a)g(general-purp)q(ose)d(em)o(b)q
+(edded)i(language.)21 b(A)o(t)-5 2500 y(the)16 b(same)f(time,)g(another)g
+(declarativ)o(e)g(language)f(w)o(as)h(b)q(eing)g(added)g(to)h(a)f(di\013eren)
+o(t)g(application)f(for)-5 2560 y(data)h(description.)k(Therefore,)14
+b(w)o(e)h(decided)e(to)i(merge)f(the)h(t)o(w)o(o)f(languages)f(in)o(to)h
+(one,)g(and)g(designed)-5 2619 y Fe(Lua)19 b Ff(to)g(b)q(e)g(a)g(pro)q
+(cedural)f(language)g(with)h(data)f(description)g(facilities.)29
+b Fe(Lua)18 b Ff(has)h(since)f(outgro)o(wn)-5 2679 y(its)f(original)e(ro)q
+(ots)h(and)g(is)g(b)q(eing)g(used)g(in)g(sev)o(eral)g(other)g(industrial)f
+(pro)s(jects.)-5 2764 y(This)h(pap)q(er)g(describ)q(es)f(the)i(design)f
+(decisions)f(and)h(the)g(details)g(of)h(our)f(implemen)o(tation)e(of)j
+Fe(Lua)p Ff(.)-5 2883 y Fc(T)l(eCGraf/ICAD)1674 b(1)p eop
+%%Page: 2 2
+bop -5 163 a Fg(Extension)20 b(languages)-5 248 y Ff(The)d(use)g(of)g
+(languages)f(for)g(extending)h(applications)f(is)g(no)o(w)h(recognized)f(as)g
+(an)h(imp)q(ortan)o(t)f(design)-5 308 y(tec)o(hnique:)k(it)13
+b(allo)o(ws)f(a)h(cleaner)f(design)g(for)h(the)g(application)f(and)g(it)h
+(pro)o(vides)f(con\014guration)f(b)o(y)i(the)-5 367 y(user.)26
+b(Because)18 b(most)f(extension)h(languages)f(are)g(simple,)g(sp)q(ecialized)
+h(to)g(a)g(task,)h(they)f(ha)o(v)o(e)g(b)q(een)-5 427 y(called)d(\\little)h
+(languages")d(\(Ben)o(tley)j(1986;)f(V)l(ald)o(\023)-24 b(es)15
+b(1991\),)g(in)g(con)o(trast)f(to)i(the)f(\\big",)g(mainstream)-5
+487 y(languages,)k(in)h(whic)o(h)e(applications)h(are)g(written.)32
+b(This)19 b(distinction)f(is)i(not)f(so)h(sharp)e(no)o(w)o(ada)o(ys,)-5
+547 y(since)f(a)g(ma)s(jor)f(part)g(of)h(sev)o(eral)g(applications)e(is)i
+(actually)g(written)g(using)f(an)g(extension)h(language.)-5
+607 y(Extension)f(languages)g(come)g(in)g(sev)o(eral)g(\015a)o(v)o(ors:)-5
+741 y Fb(\017)25 b Fi(con\014guration)d(languages)r Ff(:)34
+b(for)23 b(selecting)g(preferences,)g(usually)g(implemen)o(ted)e(as)i
+(parameter)45 801 y(lists)13 b(in)f(command)g(lines)g(or)g(as)h(v)m
+(ariable-v)m(alue)f(pairs)g(read)g(from)g(con\014guration)g(\014les)g
+(\(e.g.,)i(DOS's)45 861 y Fh(config.sys)p Ff(,)k(MS-Windo)o(ws')c
+Fh(.ini)j Ff(\014les,)f(X11)h(resource)e(\014les,)h(Motif)t('s)g(UIL)h
+(\014les\);)-5 930 y Fb(\017)25 b Fi(scripting)19 b(languages)r
+Ff(:)29 b(for)20 b(automating)f(tasks,)i(with)g(limited)e(\015o)o(w)h(con)o
+(trol,)g(suc)o(h)g(as)g(the)g(ones)45 990 y(used)c(in)g(DOS's)g(batc)o(h)f
+(\014les)h(or)g(in)h(the)f(v)m(arious)g(Unix)h(shells;)-5 1060
+y Fb(\017)25 b Fi(macro)15 b(languages)r Ff(:)21 b(also)15
+b(for)h(automating)g(tasks,)g(but)g(usually)f(only)h(as)f(a)i(sequence)f(of)g
+(primitiv)o(e)45 1120 y(op)q(erations,)f(with)i(no)f(\015o)o(w)g(con)o(trol;)
+-5 1190 y Fb(\017)25 b Fi(em)o(b)q(edded)20 b(languages)r Ff(:)29
+b(for)21 b(extending)f(applications)f(with)i(user)f(de\014ned)g(functions)g
+(based)g(on)45 1249 y(primitiv)o(es)h(pro)o(vided)g(b)o(y)h(the)g
+(applications.)38 b(These)22 b(languages)f(are)h(usually)g(quite)g(p)q(o)o(w)
+o(erful,)45 1309 y(b)q(eing)16 b(simpli\014ed)f(v)m(arian)o(ts)g(of)i
+(mainstream)e(programming)e(languages)i(suc)o(h)h(as)g(LISP)g(and)g(C.)-5
+1459 y(What)21 b(mak)o(es)f(em)o(b)q(edded)f(languages)g(di\013eren)o(t)h
+(from)g(standalone)f(languages)g(is)h(that)h(em)o(b)q(edded)-5
+1518 y(languages)c(only)i(w)o(ork)e Fd(emb)m(e)m(dde)m(d)k
+Ff(in)d(a)h(host)f(clien)o(t,)g(called)g(the)h Fd(emb)m(e)m(dding)h
+Ff(program.)26 b(Moreo)o(v)o(er,)-5 1578 y(the)e(host)e(program)f(can)i
+(usually)f(pro)o(vide)g(domain-sp)q(eci\014c)f(extensions)h(to)i(the)f(em)o
+(b)q(edded)f(lan-)-5 1638 y(guage,)16 b(th)o(us)f(creating)h(a)g(v)o(ersion)f
+(of)i(the)f(em)o(b)q(edded)f(language)h(customized)f(for)h(its)g(o)o(wn)g
+(purp)q(oses,)-5 1698 y(p)q(ossibly)g(b)o(y)h(pro)o(viding)f(higher)g(lev)o
+(el)h(abstractions.)22 b(F)l(or)16 b(this,)h(an)g(em)o(b)q(edded)f(language)g
+(has)h(b)q(oth)-5 1758 y(a)h(syn)o(tax)f(for)h(its)f(o)o(wn)g(programs)e(and)
+i(an)h(application)e(program)g(in)o(terface)h(\(API\))i(for)e(in)o(terfacing)
+-5 1817 y(with)i(hosts.)30 b(Th)o(us,)18 b(unlik)o(e)g(simpler)g(extension)h
+(languages,)f(whic)o(h)h(are)f(used)h(to)g(supply)f(parame-)-5
+1877 y(ter)i(v)m(alues)g(and)f(sequences)h(of)g(actions)f(to)i(hosts,)f
+(there)f(is)h(a)g(t)o(w)o(o-w)o(a)o(y)e(comm)o(unication)g(b)q(et)o(w)o(een)
+-5 1937 y(em)o(b)q(edded)d(languages)f(and)i(host)f(programs.)20
+b(Note)c(that)h(the)f(application)e(programmer)g(in)o(terfaces)-5
+1997 y(with)j(an)g(em)o(b)q(edded)f(language)g(in)h(the)g(mainstream)f
+(language)g(used)g(for)h(host)g(programs,)e(whereas)-5 2056
+y(the)i(user)f(in)o(terfaces)f(with)i(the)g(application)e(using)g(solely)i
+(the)f(em)o(b)q(edded)g(language.)-5 2141 y(LISP)e(has)f(alw)o(a)o(ys)f(b)q
+(een)i(a)g(p)q(opular)e(c)o(hoice)h(for)h(extension)f(languages,)g(for)g(its)
+h(simple,)f(easily)g(parsed)-5 2201 y(syn)o(tax)j(and)g(built-in)f
+(extensibilit)o(y)h(\(Bec)o(kman)g(1991;)g(Nahab)q(o)q(o\).)22
+b(F)l(or)16 b(instance,)f(a)i(ma)s(jor)e(part)h(of)-5 2261
+y(Emacs)h(is)g(actually)g(written)h(in)f(its)g(o)o(wn)g(v)m(arian)o(t)g(of)h
+(LISP;)f(sev)o(eral)f(other)h(text)i(editors)e(follo)o(w)g(the)-5
+2320 y(same)e(path.)22 b(Ho)o(w)o(ev)o(er,)15 b(LISP)h(cannot)f(b)q(e)h
+(called)g(user-friendly)e(when)h(it)h(comes)g(to)g(customization.)-5
+2380 y(Neither)f(can)f(C)g(and)g(the)g(shell)g(languages;)f(the)i(latter)f
+(ev)o(en)h(ha)o(v)o(e)e(a)i(more)e(complicated,)h(unfamiliar)-5
+2440 y(syn)o(tax.)-5 2525 y(One)g(of)g(the)h(fundamen)o(tal)d(decisions)h
+(made)g(in)h(the)g(design)f(of)h Fe(Lua)g Ff(w)o(as)f(that)i(it)f(should)f
+(ha)o(v)o(e)g(a)h(clean)-5 2584 y(but)d(familiar)f(syn)o(tax:)20
+b(w)o(e)11 b(quic)o(kly)g(settled)h(for)f(a)g(simpli\014ed)f(P)o(ascal-lik)o
+(e)f(syn)o(tax.)20 b(W)l(e)12 b(a)o(v)o(oided)e(a)i(syn-)-5
+2644 y(tax)j(based)f(on)g(LISP)g(or)g(C)h(b)q(ecause)f(it)h(could)f(b)q(e)g
+(discouraging)f(to)h(outsiders)f(or)h(non-programmer)o(s.)-5
+2704 y(Th)o(us,)22 b Fe(Lua)f Ff(is)h(primarily)d(a)j(pro)q(cedural)e
+(language.)37 b(Nev)o(ertheless,)22 b(as)g(already)f(men)o(tioned,)g
+Fe(Lua)-5 2764 y Ff(acquired)16 b(data)h(description)e(facilities)h(to)h
+(increase)e(its)i(expression)e(p)q(o)o(w)o(er.)-5 2883 y Fc(T)l(eCGraf/ICAD)
+1674 b(2)p eop
+%%Page: 3 3
+bop -5 163 a Fg(Lua)19 b(concepts)-5 248 y Fe(Lua)c Ff(is)g(a)g(general)g
+(purp)q(ose)f(em)o(b)q(edded)g(programming)e(language)i(designed)h(to)g(supp)
+q(ort)f(pro)q(cedural)-5 308 y(programming)k(with)i(data)h(description)e
+(facilities.)34 b(Being)21 b(an)f(em)o(b)q(edded)f(language,)i
+Fe(Lua)f Ff(has)g(no)-5 367 y(notion)e(of)g(a)h(\\main")e(program;)g(it)h
+(only)g(w)o(orks)f(em)o(b)q(edded)g(in)h(a)h(host)e(clien)o(t)h(\()p
+Fe(Lua)h Ff(is)f(pro)o(vided)e(as)-5 427 y(a)i(library)e(of)i(C)f(functions)g
+(to)h(b)q(e)g(link)o(ed)f(to)h(host)f(applications\).)24 b(The)17
+b(host)h(can)f(in)o(v)o(ok)o(e)g(functions)-5 487 y(to)k(execute)h(a)f(piece)
+g(of)g(co)q(de)g(in)g Fe(Lua)p Ff(,)g(can)g(write)f(and)g(read)h
+Fe(Lua)f Ff(v)m(ariables,)h(and)f(can)h(register)f(C)-5 547
+y(functions)f(to)h(b)q(e)g(called)g(b)o(y)f Fe(Lua)g Ff(co)q(de.)32
+b(With)20 b(registered)f(C)h(functions,)f Fe(Lua)h Ff(can)f(b)q(e)h(augmen)o
+(ted)-5 607 y(to)h(cop)q(e)f(with)g(rather)g(di\013eren)o(t)f(domains,)g(th)o
+(us)g(creating)h(customized)f(programming)e(languages)-5 666
+y(sharing)e(a)i(syn)o(tactical)f(framew)o(ork)f(\(Bec)o(kman)i(1991\).)-5
+751 y(This)23 b(section)g(con)o(tains)f(a)h(brief)g(description)f(of)h(the)h
+(main)e(concepts)h(in)g Fe(Lua)p Ff(.)42 b(Some)23 b(examples)-5
+811 y(of)e(actual)f(co)q(de)g(are)g(included,)f(to)i(giv)o(e)f(a)g(\015a)o(v)
+o(or)f(of)h(the)h(language.)31 b(A)21 b(precise)e(de\014nition)g(of)i(the)-5
+871 y(language)16 b(can)g(b)q(e)h(found)f(in)g(its)g(reference)h(man)o(ual)d
+(\(Ierusalimsc)o(h)o(y{Figu)o(eiredo{Celes)f(1994\).)-5 990
+y Fe(Syntax)-5 1075 y Ff(As)g(men)o(tioned)d(b)q(efore,)j(w)o(e)f(explicitly)
+h(designed)e Fe(Lua)h Ff(to)g(ha)o(v)o(e)g(a)g(simple,)g(familiar)f(syn)o
+(tax.)20 b(As)12 b(a)g(con-)-5 1135 y(sequence,)17 b Fe(Lua)f
+Ff(supp)q(orts)g(an)g(almost)g(con)o(v)o(en)o(tional)f(set)i(of)g(statemen)o
+(ts,)f(with)h(implicit,)f(but)g(expli-)-5 1194 y(citly)g(terminated,)f(blo)q
+(c)o(k)h(structure.)21 b(The)15 b(con)o(v)o(en)o(tional)f(statemen)o(ts)h
+(include)g(simple)f(assignmen)o(t;)-5 1254 y(con)o(trol)f(structures)g(suc)o
+(h)g(as)h Fh(while-do-end)p Ff(,)i Fh(repeat-until)p Ff(,)g
+Fh(if-then-elseif-else-en)q(d)p Ff(;)h(and)-5 1314 y(function)22
+b(calls.)40 b(Non-con)o(v)o(en)o(tional)20 b(statemen)o(ts)i(include)g(m)o
+(ultiple)f(assignmen)o(t;)j(lo)q(cal)e(v)m(ariable)-5 1374
+y(declarations,)17 b(whic)o(h)g(can)h(b)q(e)g(placed)f(an)o(ywhere)g(inside)g
+(a)h(blo)q(c)o(k;)g(and)f(table)h(constructors,)f(whic)o(h)-5
+1434 y(ma)o(y)f(con)o(tain)g(user)f(de\014ned)h(v)m(alidation)g(functions)g
+(\(see)g(b)q(elo)o(w\).)22 b(Moreo)o(v)o(er,)15 b(functions)h(in)g
+Fe(Lua)g Ff(can)-5 1493 y(tak)o(e)j(a)g(v)m(ariable)f(n)o(um)o(b)q(er)e(of)j
+(parameters)e(and)h(can)g(return)g(man)o(y)f(v)m(alues.)28
+b(This)18 b(a)o(v)o(oids)f(the)i(need)-5 1553 y(for)e(passing)d(parameters)h
+(b)o(y)i(reference)f(when)g(more)f(than)i(one)f(result)g(need)g(to)h(b)q(e)g
+(returned.)-5 1673 y Fe(Environment)e(and)h(mo)q(dules)-5 1757
+y Ff(All)e(statemen)o(ts)e(in)h Fe(Lua)g Ff(are)g(executed)h(in)f(a)g(global)
+g(en)o(vironmen)o(t.)19 b(This)12 b(en)o(vironmen)o(t,)g(whic)o(h)g(k)o(eeps)
+-5 1817 y(all)j(global)f(v)m(ariables)g(and)g(functions,)g(is)h(initialized)f
+(at)h(the)h(b)q(eginning)d(of)i(the)h(em)o(b)q(edding)d(program)-5
+1877 y(and)k(p)q(ersists)f(un)o(til)g(its)h(end.)23 b(The)17
+b(global)f(en)o(vironmen)o(t)f(can)i(b)q(e)g(manipulated)f(b)o(y)g
+Fe(Lua)h Ff(co)q(de)h(or)e(b)o(y)-5 1937 y(the)i(em)o(b)q(edding)e(program,)g
+(whic)o(h)g(can)i(read)e(and)h(write)h(global)f(v)m(ariables)f(using)h
+(functions)f(in)i(the)-5 1997 y(library)d(that)i(implemen)o(ts)e
+Fe(Lua)p Ff(.)-5 2081 y(The)20 b(unit)f(of)h(execution)g(of)g
+Fe(Lua)f Ff(is)h(called)f(a)h Fd(mo)m(dule)t Ff(.)31 b(A)20
+b(mo)q(dule)f(ma)o(y)g(con)o(tain)g(statemen)o(ts)g(and)-5
+2141 y(function)f(de\014nitions,)f(and)g(ma)o(y)h(b)q(e)g(in)g(a)g(\014le)g
+(or)f(in)h(a)g(string)f(inside)g(the)i(host)e(program.)25 b(When)18
+b(a)-5 2201 y(mo)q(dule)g(is)f(executed,)i(\014rst)f(all)f(its)h(functions)g
+(and)f(statemen)o(ts)h(are)g(compiled,)f(and)g(the)i(functions)-5
+2261 y(added)14 b(to)g(the)h(global)f(en)o(vironmen)o(t;)f(then)h(the)g
+(statemen)o(ts)g(are)g(executed)h(in)f(sequen)o(tial)g(order.)20
+b(All)-5 2320 y(mo)q(di\014cations)10 b(a)h(mo)q(dule)g(e\013ects)g(on)g(the)
+h(global)e(en)o(vironmen)o(t)f(p)q(ersist)i(after)g(its)g(end.)20
+b(Those)11 b(include)-5 2380 y(mo)q(di\014cations)17 b(to)h(global)f(v)m
+(ariables)g(and)g(de\014nitions)g(of)h(new)g(functions)f(\(a)h(function)f
+(de\014nition)g(is)-5 2440 y(actually)g(an)f(assignmen)o(t)f(to)h(a)h(global)
+f(v)m(ariable;)f(see)i(b)q(elo)o(w\).)-5 2560 y Fe(Data)g(t)o(yp)q(es)f(and)g
+(va)o(riables)-5 2644 y(Lua)22 b Ff(is)f(a)h(dynamically)f(t)o(yp)q(ed)h
+(language:)31 b(v)m(ariables)21 b(do)h(not)f(ha)o(v)o(e)h(t)o(yp)q(es;)i
+(only)e(v)m(alues)f(do.)38 b(All)-5 2704 y(v)m(alues)16 b(carry)g(their)g(o)o
+(wn)g(t)o(yp)q(e.)22 b(Therefore,)16 b(there)g(are)g(no)g(t)o(yp)q(e)h
+(de\014nitions)e(in)h(the)h(language.)k(The)-5 2764 y(absence)d(of)h(v)m
+(ariable)f(t)o(yp)q(e)g(declarations,)g(apparen)o(tly)f(a)h(minor)f(p)q(oin)o
+(t,)h(is)g(actually)h(an)f(imp)q(ortan)o(t)-5 2883 y Fc(T)l(eCGraf/ICAD)1674
+b(3)p eop
+%%Page: 4 4
+bop -5 163 a Ff(factor)20 b(in)f(simplifying)f(the)i(language;)g(it)g(is)f
+(frequen)o(tly)h(presen)o(ted)e(as)i(a)f(ma)s(jor)g(feature)g(in)h(man)o(y)-5
+223 y(v)m(arian)o(ts)14 b(of)g(t)o(yp)q(ed)h(languages)e(mo)q(di\014ed)h(to)h
+(b)q(e)f(used)g(as)g(extension)g(languages.)20 b(Moreo)o(v)o(er,)13
+b Fe(Lua)h Ff(has)-5 283 y(garbage)g(collection:)20 b(it)15
+b(k)o(eeps)f(trac)o(k)g(of)g(whic)o(h)g(v)m(alues)g(are)g(b)q(eing)g(used)f
+(and)h(discards)e(the)j(ones)e(that)-5 343 y(are)k(not.)23
+b(This)17 b(a)o(v)o(oids)e(the)j(need)e(for)h(explicit)g(managing)f(memory)g
+(allo)q(cation,)h(a)g(ma)s(jor)e(source)i(of)-5 402 y(programming)d(errors.)
+20 b(There)c(are)g(sev)o(en)g(basic)g(data)h(t)o(yp)q(es)f(in)g
+Fe(Lua)p Ff(:)-5 492 y Fb(\017)25 b Fi(nil)r Ff(:)c(the)c(t)o(yp)q(e)g(of)g
+(a)f(single)g(v)m(alue)h(called)f Fh(nil)p Ff(;)-5 552 y Fb(\017)25
+b Fi(n)o(um)o(b)q(er)t Ff(:)19 b(\015oating)d(p)q(oin)o(t)g(n)o(um)o(b)q
+(ers;)-5 612 y Fb(\017)25 b Fi(string)t Ff(:)c(arra)o(ys)15
+b(of)i(c)o(haracters;)-5 671 y Fb(\017)25 b Fi(function)p Ff(:)d(user)15
+b(de\014ned)h(functions;)-5 731 y Fb(\017)25 b Fi(Cfunction)p
+Ff(:)d(functions)15 b(pro)o(vided)g(b)o(y)h(the)h(host)f(program;)-5
+791 y Fb(\017)25 b Fi(userdata)p Ff(:)c(p)q(oin)o(ters)15 b(to)i(host)f
+(data;)-5 851 y Fb(\017)25 b Fi(table)s Ff(:)d(asso)q(ciativ)o(e)16
+b(arra)o(ys.)-5 966 y Fe(Lua)24 b Ff(pro)o(vides)f(some)g(automatic)h(t)o(yp)
+q(e)h(con)o(v)o(ersions.)42 b(A)25 b(string)e(taking)h(part)g(in)g(an)f
+(arithmetic)-5 1025 y(op)q(eration)d(is)g(con)o(v)o(erted)g(to)g(a)h(n)o(um)o
+(b)q(er,)e(if)h(p)q(ossible.)33 b(Con)o(v)o(ersely)l(,)19 b(whenev)o(er)h(a)g
+(n)o(um)o(b)q(er)f(is)h(used)-5 1085 y(when)g(a)g(string)f(is)h(exp)q(ected,)
+i(that)e(n)o(um)o(b)q(er)e(is)i(con)o(v)o(erted)f(to)h(a)g(string.)32
+b(This)19 b(co)q(ercion)h(is)g(useful)-5 1145 y(b)q(ecause)d(it)f
+(simpli\014es)f(programs)f(and)i(a)o(v)o(oids)f(the)i(need)f(for)g(explicit)h
+(con)o(v)o(ersion)e(functions.)-5 1230 y(Global)h(v)m(ariables)f(do)h(not)h
+(need)f(declaration;)f(only)h(lo)q(cal)h(v)m(ariables)e(do.)21
+b(An)o(y)c(v)m(ariable)f(is)g(assumed)-5 1289 y(to)24 b(b)q(e)f(global)f
+(unless)g(explicitly)h(declared)f(lo)q(cal.)42 b(Lo)q(cal)23
+b(v)m(ariable)g(declarations)e(can)i(b)q(e)g(placed)-5 1349
+y(an)o(ywhere)c(inside)f(a)i(blo)q(c)o(k.)31 b(Therefore,)20
+b(b)q(ecause)f(only)h(lo)q(cal)f(v)m(ariables)g(are)g(declared,)h(and)f
+(these)-5 1409 y(declarations)h(can)h(b)q(e)g(made)f(close)h(to)g(the)h(use)e
+(of)i(the)f(v)m(ariable,)g(it)g(is)g(usually)f(simple)g(to)h(decide)-5
+1469 y(whether)16 b(a)h(giv)o(en)f(v)m(ariable)g(is)g(lo)q(cal)h(or)f
+(global.)-5 1553 y(Before)j(the)g(\014rst)e(assignmen)o(t,)g(the)i(v)m(alue)g
+(of)f(a)h(v)m(ariable)f(is)g Fh(nil)p Ff(.)28 b(Therefore,)18
+b(there)g(are)g(no)g(unini-)-5 1613 y(tialized)h(v)m(ariables)g(in)g
+Fe(Lua)p Ff(,)g(another)g(ma)s(jor)f(source)g(of)i(programming)c(errors.)28
+b(Nev)o(ertheless,)20 b(the)-5 1673 y(only)f(v)m(alid)f(op)q(erations)g(on)h
+Fh(nil)g Ff(are)f(assignmen)o(t)f(and)h(equalit)o(y)h(test)g(\(the)h(main)d
+(prop)q(ert)o(y)h(of)h Fh(nil)-5 1733 y Ff(is)f(to)h(b)q(e)g(di\013eren)o(t)e
+(from)h(an)o(y)g(other)g(v)m(alue\).)28 b(Therefore,)18 b(using)f(an)h
+(\\uninitialized")f(v)m(ariable)h(in)g(a)-5 1792 y(con)o(text)k(where)f(an)g
+(\\actual")g(v)m(alue)g(is)g(needed)f(\(e.g.,)j(an)e(arithmetic)f
+(expression\))g(results)g(in)h(an)-5 1852 y(execution)h(error,)g(alerting)f
+(the)h(programmer)c(that)k(the)g(v)m(ariable)g(w)o(as)e(not)i(prop)q(erly)f
+(initialized.)-5 1912 y(Th)o(us,)c(the)g(purp)q(ose)f(of)i(automatically)f
+(initializing)g(v)m(ariables)f(with)h Fh(nil)i Ff(is)e(not)g(to)h(encourage)f
+(the)-5 1972 y(programmer)h(to)i(a)o(v)o(oid)g(initializing)f(v)m(ariables,)h
+(but)g(rather)f(to)i(enable)e Fe(Lua)h Ff(to)h(signal)e(the)i(use)f(of)-5
+2032 y(actually)d(uninitialized)e(v)m(ariables.)-5 2116 y(F)l(unctions)d(are)
+i(considered)e(\014rst-class)g(v)m(alues)h(in)h Fe(Lua)p Ff(:)20
+b(they)14 b(can)g(b)q(e)g(stored)f(in)g(v)m(ariables,)h(passed)e(as)-5
+2176 y(argumen)o(ts)k(to)i(other)g(functions)f(and)g(returned)g(as)g
+(results.)25 b(When)17 b(a)h(function)g(in)f Fe(Lua)h Ff(is)f(de\014ned,)-5
+2236 y(its)e(b)q(o)q(dy)g(is)f(compiled)f(and)h(stored)g(in)g(a)g(global)g(v)
+m(ariable)g(with)g(the)h(giv)o(en)f(name.)20 b Fe(Lua)15 b
+Ff(can)f(call)g(\(and)-5 2296 y(manipulate\))i(functions)g(written)g(in)g(b)q
+(oth)h Fe(Lua)f Ff(and)g(C;)g(the)h(latter)g(ha)o(v)o(e)f(t)o(yp)q(e)h
+Fd(Cfunction)t Ff(.)-5 2380 y(The)j(t)o(yp)q(e)g Fd(user)m(data)h
+Ff(is)e(pro)o(vided)f(to)i(allo)o(w)f(arbitrary)f(\()p Fh(void*)p
+Ff(\))k(C)d(p)q(oin)o(ters)g(to)h(b)q(e)g(stored)f(in)g Fe(Lua)-5
+2440 y Ff(v)m(ariables;)d(its)g(only)g(v)m(alid)h(op)q(erations)e(in)i
+Fe(Lua)f Ff(are)g(assignmen)o(t)e(and)i(equalit)o(y)h(test.)-5
+2525 y(The)d(t)o(yp)q(e)g Fd(table)g Ff(implemen)o(ts)e(asso)q(ciativ)o(e)h
+(arra)o(ys,)g(that)h(is,)g(arra)o(ys)e(that)j(can)e(b)q(e)i(indexed)e(with)h
+(b)q(oth)-5 2584 y(n)o(um)o(b)q(ers)20 b(and)h(strings.)37
+b(Therefore,)23 b(this)f(t)o(yp)q(e)g(ma)o(y)g(b)q(e)g(used)f(not)i(only)e
+(to)i(represen)o(t)d(ordinary)-5 2644 y(arra)o(ys,)j(but)g(also)g(sym)o(b)q
+(ol)f(tables,)i(sets,)h(records,)e(etc.)43 b(T)l(o)23 b(represen)o(t)e(a)j
+(record,)f Fe(Lua)g Ff(uses)g(the)-5 2704 y(\014eld)15 b(name)g(as)h(an)f
+(index.)21 b(The)16 b(language)e(supp)q(orts)h(this)g(represen)o(tation)f(b)o
+(y)h(pro)o(viding)f Fh(a.name)i Ff(as)-5 2764 y(syn)o(tactic)h(sugar)e(for)h
+Fh(a["name"])p Ff(.)-5 2883 y Fc(T)l(eCGraf/ICAD)1674 b(4)p
+eop
+%%Page: 5 5
+bop -5 163 a Ff(Asso)q(ciativ)o(e)21 b(arra)o(ys)e(are)h(a)h(p)q(o)o(w)o
+(erful)e(language)h(construct;)i(man)o(y)e(algorithms)f(are)h(simpli\014ed)e
+(to)-5 223 y(the)j(p)q(oin)o(t)f(of)h(trivialit)o(y)f(b)q(ecause)g(the)h
+(required)e(data)i(structures)e(and)h(algorithms)e(for)j(searc)o(hing)-5
+283 y(them)13 b(are)f(pro)o(vided)f(b)o(y)h(the)h(language)f
+(\(Aho{Kerninghan{W)l(ein)o(b)q(erg)o(er)e(1988;)j(Ben)o(tley)g(1988\).)21
+b(F)l(or)-5 343 y(example,)c(the)g(core)f(of)h(a)g(program)e(that)i(coun)o
+(ts)f(the)h(o)q(ccurrences)f(of)h(eac)o(h)g(w)o(ord)e(in)i(a)g(text)h(can)f
+(b)q(e)-5 402 y(written)195 499 y Fh(table[word])27 b(=)g(table[word])g(+)g
+(1)-5 583 y Ff(without)22 b(ha)o(ving)f(to)h(searc)o(h)e(the)i(list)g(of)g(w)
+o(ords.)36 b(\(Ho)o(w)o(ev)o(er,)22 b(an)g(alphab)q(etically)f(ordered)f(rep)
+q(ort)-5 643 y(requires)c(some)f(real)h(w)o(ork,)g(b)q(ecause)g(the)h
+(indices)f(in)g(a)g(table)h(are)f(ordered)f(arbitrarily)g(inside)h
+Fe(Lua)p Ff(.\))-5 728 y(T)l(ables)g(can)g(b)q(e)h(created)g(in)f(man)o(y)f
+(w)o(a)o(ys.)21 b(The)c(simplest)e(w)o(a)o(y)h(corresp)q(onds)e(to)j
+(ordinary)e(arra)o(ys:)195 824 y Fh(t)26 b(=)g(@\(100\))-5
+909 y Ff(Suc)o(h)12 b(an)g(expression)f(results)g(in)h(a)h(new)f(empt)o(y)g
+(table.)21 b(The)12 b(dimension)e(\(100)j(in)f(the)h(example)f(ab)q(o)o(v)o
+(e\))-5 969 y(is)j(optional)g(and)g(ma)o(y)f(b)q(e)i(giv)o(en)f(as)g(a)g(hin)
+o(t)g(to)h(the)f(initial)g(table)g(size.)22 b(Indep)q(enden)o(tly)14
+b(of)i(the)f(initial)-5 1028 y(dimension,)i(all)i(tables)f(in)g
+Fe(Lua)h Ff(expand)f(dynamically)f(as)i(needed.)28 b(Th)o(us,)17
+b(it)i(is)f(p)q(erfectly)i(v)m(alid)e(to)-5 1088 y(refer)e(to)h
+Fh(t[200])h Ff(or)e(ev)o(en)g(to)h Fh(t["day"])p Ff(.)-5 1173
+y(There)f(are)g(t)o(w)o(o)g(alternativ)o(e)g(syn)o(taxes)g(for)g(creating)g
+(tables)g(without)g(explicitly)g(\014lling)f(eac)o(h)h(en)o(try:)-5
+1233 y(one)f(for)h(lists)e(\()p Fh(@[])p Ff(\))j(and)e(one)g(for)g(records)f
+(\()p Fh(@{})p Ff(\).)23 b(F)l(or)14 b(instance,)h(it)h(is)f(m)o(uc)o(h)f
+(easier)g(to)i(create)g(a)f(list)-5 1293 y(b)o(y)h(pro)o(viding)f(its)h
+(elemen)o(ts,)g(as)g(in)195 1389 y Fh(t)26 b(=)g(@["red",)i("green",)f
+("blue",)g(3])-5 1474 y Ff(than)17 b(with)f(the)h(equiv)m(alen)o(t)f
+(explicit)h(co)q(de)195 1559 y Fh(t)26 b(=)g(@\(\))195 1619
+y(t[1])g(=)h("red")195 1679 y(t[2])f(=)h("green")195 1739 y(t[3])f(=)h
+("blue")195 1799 y(t[4])f(=)h(3)-5 1883 y Ff(Moreo)o(v)o(er,)15
+b(it)i(is)f(p)q(ossible)f(to)i(pro)o(vide)e(user)h(functions)g(when)g
+(creating)g(lists)g(and)g(records,)f(as)h(in)195 1969 y Fh(t)26
+b(=)g(@colors["red",)i("green",)g("blue",)f("yellow"])195 2029
+y(t)f(=)g(@employee{name="john)j(smith",)f(age=34})-5 2114
+y Ff(Here,)15 b Fh(colors)g Ff(and)f Fh(employee)h Ff(are)f(user)f(functions)
+h(that)g(are)g(automatically)g(called)g(after)g(the)h(table)-5
+2173 y(is)i(created.)22 b(Suc)o(h)16 b(functions)g(can)h(b)q(e)g(used)f(to)h
+(c)o(hec)o(k)f(\014eld)h(v)m(alues,)f(to)h(create)g(default)g(\014elds,)f(or)
+g(for)-5 2233 y(an)o(y)g(other)h(side-e\013ect.)k(Th)o(us,)15
+b(the)i(co)q(de)g(for)f(the)h Fh(employee)h Ff(record)d(is)h(equiv)m(alen)o
+(t)h(to:)195 2320 y Fh(t)26 b(=)g(@\(\))195 2380 y(t.name)h(=)f("john)h
+(smith")195 2440 y(t.age)53 b(=)26 b(34)195 2500 y(employee\(t\))-5
+2584 y Ff(Note)17 b(that,)g(ev)o(en)f(though)f Fe(Lua)h Ff(do)q(es)g(not)g
+(ha)o(v)o(e)f(t)o(yp)q(e)i(declarations,)d(the)j(p)q(ossibilit)o(y)d(of)j(ha)
+o(ving)e(user)-5 2644 y(functions)c(called)g(automatically)g(after)g(table)h
+(creation)e(actually)i(pro)o(vides)d Fe(Lua)i Ff(with)h(user)e(con)o(trolled)
+-5 2704 y Fd(typ)m(e)21 b(c)m(onstructors)p Ff(.)30 b(This)19
+b(non-con)o(v)o(en)o(tional)d(construct)j(is)f(a)h(v)o(ery)g(p)q(o)o(w)o
+(erful)f(feature,)h(and)g(is)g(the)-5 2764 y(expression)c(of)i(declarativ)o
+(e)f(programming)e(using)h Fe(Lua)p Ff(.)-5 2883 y Fc(T)l(eCGraf/ICAD)1674
+b(5)p eop
+%%Page: 6 6
+bop -5 163 a Fe(The)17 b(application)h(p)o(rogram)c(interface)-5
+248 y Ff(The)24 b(library)e(that)i(implemen)o(ts)e Fe(Lua)h
+Ff(has)g(an)g(API,)h(i.e.,)h(a)e(set)h(of)g(C)g(functions)f(for)g(in)o
+(terfacing)-5 308 y Fe(Lua)h Ff(with)f(host)h(programs)d(\(there)j(are)f
+(appro)o(ximately)f(30)i(suc)o(h)e(functions\).)43 b(These)24
+b(functions)-5 367 y(c)o(haracterize)16 b Fe(Lua)h Ff(as)f(an)h(em)o(b)q
+(edded)f(language,)f(and)i(handle)f(the)h(follo)o(wing)e(tasks:)23
+b(executing)17 b Fe(Lua)-5 427 y Ff(co)q(de)25 b(con)o(tained)e(in)h(a)g
+(\014le)g(or)g(in)g(a)g(string;)j(con)o(v)o(erting)c(v)m(alues)h(b)q(et)o(w)o
+(een)g(C)g(and)f Fe(Lua)p Ff(;)28 b(reading)-5 487 y(and)17
+b(writing)g Fe(Lua)h Ff(ob)s(jects)g(con)o(tained)f(in)g(global)g(v)m
+(ariables;)g(calling)g Fe(Lua)h Ff(functions;)f(registering)g(C)-5
+547 y(functions)i(to)h(b)q(e)g(called)f(b)o(y)g Fe(Lua)p Ff(,)h(including)e
+(error)g(handlers.)29 b(A)20 b(simple)e Fe(Lua)h Ff(in)o(terpreter)f(can)i(b)
+q(e)-5 607 y(written)d(as)f(follo)o(ws:)195 668 y Fh(#include)27
+b("lua.h")195 728 y(int)f(main\(void\))195 787 y({)221 847
+y(char)g(s[1000];)221 907 y(while)h(\(gets\(s\)\))273 967 y
+(lua_dostring\(s\);)221 1026 y(return)g(0;)195 1086 y(})-5
+1171 y Ff(This)15 b(simple)f(in)o(terpreter)g(can)h(b)q(e)h(augmen)o(ted)e
+(with)i(domain)e(sp)q(eci\014c)h(functions)g(written)g(in)g(C)g(and)-5
+1231 y(made)h(a)o(v)m(ailable)g(to)h Fe(Lua)g Ff(with)f(the)h(API)g(function)
+f Fh(lua_register)p Ff(.)25 b(Extension)16 b(functions)g(follo)o(w)g(a)-5
+1290 y(proto)q(col)h(to)f(receiv)o(e)h(and)f(return)f(v)m(alues)h(to)h
+Fe(Lua)p Ff(.)-5 1402 y Fe(Prede\014ned)f(functions)h(and)f(lib)o(ra)o(ries)
+-5 1486 y Ff(The)e(set)g(of)h(prede\014ned)d(functions)h(in)h
+Fe(Lua)g Ff(is)f(small)g(but)h(p)q(o)o(w)o(erful.)20 b(Most)13
+b(of)i(them)e(pro)o(vide)g(features)-5 1546 y(that)20 b(allo)o(w)e(some)g
+(degree)g(of)h(re\015exivit)o(y)g(in)g(the)g(language.)28 b(Suc)o(h)17
+b(features)i(cannot)f(b)q(e)i(sim)o(ulated)-5 1606 y(with)c(the)h(rest)f(of)g
+(the)h(language)e(nor)g(with)h(the)h(standard)d(API.)j(The)f(prede\014ned)e
+(functions)i(handle)-5 1666 y(the)j(follo)o(wing)d(tasks:)25
+b(executing)19 b(a)f Fe(Lua)f Ff(mo)q(dule)h(con)o(tained)f(in)g(a)h(\014le)g
+(or)f(string;)h(en)o(umerating)e(all)-5 1726 y(\014elds)g(of)h(a)f(table;)g
+(en)o(umerating)f(all)h(global)g(v)m(ariables;)f(t)o(yp)q(e)i(querying)f(and)
+g(con)o(v)o(ersion.)-5 1810 y(The)j(libraries,)f(on)g(the)i(other)e(hand,)h
+(pro)o(vide)f(useful)g(routines)g(whic)o(h)g(are)h(implemen)o(ted)e(directly)
+-5 1870 y(through)22 b(the)h(standard)e(API.)h(Therefore,)i(they)f(are)f(not)
+h(necessary)e(to)i(the)g(language,)g(and)f(are)-5 1930 y(pro)o(vided)14
+b(as)g(separate)h(C)g(mo)q(dules,)f(whic)o(h)g(can)h(b)q(e)g(link)o(ed)f(to)h
+(applications)f(as)h(needed.)20 b(Curren)o(tly)l(,)-5 1990
+y(there)c(are)g(libraries)d(for)j(string)f(manipulation,)f(mathematical)h
+(functions,)g(and)g(input)g(and)g(output.)-5 2101 y Fe(P)o(ersistence)-5
+2186 y Ff(The)k(en)o(umeration)e(functions)h(can)g(b)q(e)i(used)e(to)h(pro)o
+(vide)e(p)q(ersistency)i(of)g(the)g(global)f(en)o(vironmen)o(t)-5
+2245 y(within)e Fe(Lua)p Ff(,)h(i.e.,)f(it)h(is)f(p)q(ossible)f(to)i(write)g
+Fe(Lua)f Ff(co)q(de)h(that)g(writes)f Fe(Lua)g Ff(co)q(de)h(that,)g(when)f
+(executed,)-5 2305 y(restores)i(the)h(v)m(alues)g(of)g(all)g(global)f(v)m
+(ariables.)28 b(W)l(e)20 b(no)o(w)e(sho)o(w)g(some)g(w)o(a)o(ys)g(to)h(store)
+g(and)f(retriev)o(e)-5 2365 y(v)m(alues)k(in)g Fe(Lua)p Ff(,)h(using)e(a)h
+(text)h(\014le)f(written)g(in)g(the)g(language)f(itself)i(as)e(the)i(storage)
+e(media.)38 b(T)l(o)-5 2425 y(restore)16 b(v)m(alues)g(sa)o(v)o(ed)g(in)g
+(this)g(w)o(a)o(y)l(,)g(it)h(is)f(enough)f(to)i(execute)h(the)f(output)f
+(\014le.)-5 2509 y(T)l(o)h(store)f(a)g(single)g(v)m(alue)h(with)f(a)h(name,)e
+(the)i(follo)o(wing)e(co)q(de)i(is)f(enough:)195 2584 y Fh(function)27
+b(store\(name,)h(value\))247 2644 y(write\(name)g(..)e('='\))247
+2704 y(write_value\(value\))195 2764 y(end)-5 2883 y Fc(T)l(eCGraf/ICAD)1674
+b(6)p eop
+%%Page: 7 7
+bop -5 163 a Ff(Here,)15 b(\\)p Fh(..)p Ff(")22 b(is)15 b(the)g(string)e
+(concatenation)i(op)q(erator)f(and)g Fh(write)i Ff(is)e(a)h(library)e
+(function)i(for)f(output.)-5 223 y(The)j(function)g Fh(write_value)i
+Ff(outputs)e(a)g(suitable)f(represen)o(tation)f(of)j(a)f(v)m(alue)g(based)f
+(on)h(its)g(t)o(yp)q(e,)-5 283 y(using)f(a)g(string)g(returned)f(b)o(y)h(the)
+h(prede\014ned)e(function)h Fh(type)p Ff(:)195 359 y Fh(function)27
+b(write_value\(value\))247 419 y(local)g(t)f(=)g(type\(value\))351
+478 y(if)h(t)f(=)h('nil')105 b(then)27 b(write\('nil'\))247
+538 y(elseif)g(t)f(=)h('number')g(then)g(write\(value\))247
+598 y(elseif)g(t)f(=)h('string')g(then)g(write\('"')g(..)g(value)g(..)f
+('"'\))247 658 y(end)195 718 y(end)-5 802 y Ff(Storing)16 b(tables)g(is)g(a)h
+(little)g(more)e(complex.)22 b(First,)15 b Fh(write_value)j
+Ff(is)e(augmen)o(ted)g(with)247 888 y Fh(elseif)27 b(t)f(=)h('table')g(then)f
+(write_record\(value\))-5 972 y Ff(Assuming)13 b(that)h(tables)g(are)f(b)q
+(eing)h(used)f(as)h(records)e(\(i.e.,)j(there)f(are)f(no)h(circular)f
+(references)g(and)g(all)-5 1032 y(indices)h(are)h(iden)o(ti\014ers\),)f(the)h
+(v)m(alue)h(of)f(a)g(table)g(can)g(b)q(e)g(written)g(directly)g(with)g(table)
+g(constructors:)195 1110 y Fh(function)27 b(write_record\(t\))247
+1169 y(local)g(i,)f(v)h(=)f(next\(t,)h(nil\))79 b(--)27 b("next")g
+(enumerates)g(the)g(fields)g(of)f(t)247 1229 y(write\('@{'\))446
+b(--)27 b(starts)g(constructor)247 1289 y(while)g(i)f(do)299
+1349 y(store\(i,v\))299 1408 y(i,)h(v)f(=)g(next\(t,)h(i\))299
+1468 y(if)g(i)f(then)h(write\(',)g('\))f(end)247 1528 y(end)247
+1588 y(write\('}'\))472 b(--)27 b(closes)g(constructor)195
+1648 y(end)-5 1810 y Fg(Implementation)-5 1894 y Ff(Extension)22
+b(languages)f(are)g(alw)o(a)o(ys)g(in)o(terpreted,)i(in)e(one)h(w)o(a)o(y)g
+(or)f(another,)i(b)o(y)f(the)g(application.)-5 1954 y(Simple)e(extension)h
+(languages)f(can)h(b)q(e)g(in)o(terpreted)f(directly)h(from)g(source)f(co)q
+(de.)36 b(On)21 b(the)g(other)-5 2014 y(hand,)j(em)o(b)q(edded)e(languages)f
+(are)i(usually)f(p)q(o)o(w)o(erful)g(programming)e(languages,)j(with)g
+(complex)-5 2074 y(syn)o(tax)11 b(and)g(seman)o(tics.)18 b(A)12
+b(more)e(e\016cien)o(t)g(implemen)o(tation)f(tec)o(hnique)i(for)g(em)o(b)q
+(edded)f(languages)f(is)-5 2133 y(to)k(design)f(a)h Fd(virtual)h(machine)g
+Ff(suited)e(to)i(the)f(needs)f(of)h(the)g(language,)g(compile)f(extension)g
+(programs)-5 2193 y(in)o(to)23 b Fd(byte)m(c)m(o)m(des)j Ff(for)d(this)h(mac)
+o(hine,)f(and)g(then)h(sim)o(ulate)e(the)i(virtual)f(mac)o(hine)f(b)o(y)h(in)
+o(terpreting)-5 2253 y(b)o(yteco)q(des)e(\(Betz)i(1988,)f(1991;)h(F)l(ranks)c
+(1991\).)36 b(W)l(e)21 b(ha)o(v)o(e)g(c)o(hosen)f(this)g(h)o(ybrid)g(arc)o
+(hitecture)g(for)-5 2313 y(implemen)o(ting)12 b Fe(Lua)p Ff(;)i(it)f(has)g
+(the)h(follo)o(wing)e(adv)m(an)o(tages)h(o)o(v)o(er)g(direct)g(in)o
+(terpretation)f(of)i(source)f(co)q(de:)-5 2395 y Fb(\017)25
+b Ff(b)q(ecause)19 b(lexical)g(and)g(syn)o(tactical)g(analysis)f(are)h(done)f
+(only)h(once,)h(p)q(ossibly)e(using)g(an)h(external)45 2455
+y(parser)j(b)q(efore)i(the)g(actual)g(em)o(b)q(edding,)g(simple)e(errors)g
+(are)i(iden)o(ti\014ed)e(early)l(,)j(resulting)d(in)i(a)45
+2515 y(shorter)15 b(dev)o(elopmen)o(t)h(cycle)h(and)f(faster)g(execution;)-5
+2584 y Fb(\017)25 b Ff(if)18 b(an)g(external)g(compiler)f(is)h(used,)f(there)
+h(is)g(the)g(p)q(ossibilit)o(y)f(of)h(pro)o(viding)e(extension)i(programs)45
+2644 y(in)f(b)o(yteco)q(de)g(form)f(only)l(,)h(i.e.,)f(pre-compiled,)f
+(resulting)h(in)g(faster)h(loading,)f(safer)g(en)o(vironmen)o(ts)45
+2704 y(and)e(smaller)e(run-time)h(supp)q(ort)g(\(ho)o(w)o(ev)o(er,)h(linking)
+f(sev)o(eral)g(pre-compiled)f(extension)i(programs)45 2764
+y(can)i(b)q(e)h(a)g(di\016cult)e(task\).)-5 2883 y Fc(T)l(eCGraf/ICAD)1674
+b(7)p eop
+%%Page: 8 8
+bop -5 163 a Ff(This)18 b(arc)o(hitecture)g(w)o(as)g(pioneered)g(in)h
+(Smalltalk)f(\(Goldb)q(erg{Robson)e(1983;)k(Budd)e(1987\))h(\(from)-5
+223 y(whic)o(h)k(the)h(term)f Fd(byte)m(c)m(o)m(des)j Ff(w)o(as)d(b)q(orro)o
+(w)o(ed\))f(and)h(also)g(used)f(in)i(the)g(successful)e(UCSD)i(P)o(ascal)-5
+283 y(system)e(based)g(on)f(P-co)q(de)h(\(Clark{Ko)q(ehler)g(1982\).)39
+b(In)22 b(these)g(systems,)h(b)o(yteco)q(des)f(for)g(virtual)-5
+343 y(mac)o(hines)14 b(w)o(ere)g(used)h(b)q(oth)g(for)g(reducing)e(complexit)
+o(y)i(and)g(for)g(increasing)e(p)q(ortabilit)o(y)l(.)21 b(This)14
+b(path)-5 402 y(w)o(as)i(also)g(used)g(in)g(p)q(orting)g(the)g(BCPL)h
+(compiler)f(\(Ric)o(hards{Whitb)o(y-S)o(trev)o(ens)d(1980\).)-5
+487 y(Co)q(de)19 b(for)e(compilation)g(of)h(extension)g(programs)e(can)i(b)q
+(e)g(built)g(with)g(standard)f(to)q(ols,)h(suc)o(h)f(as)h Fe(lex)-5
+547 y Ff(and)e Fe(y)o(acc)g Ff(\(Levine{Mason{Bro)o(wn)e(1992\).)22
+b(The)16 b(existence)h(of)f(go)q(o)q(d)g(to)q(ols)g(for)g(compiler)f
+(construc-)-5 607 y(tion,)25 b(whic)o(h)c(b)q(ecame)i(widely)g(a)o(v)m
+(ailable)f(in)h(the)g(late)g(sev)o(en)o(ties,)h(w)o(as)e(the)h(main)f(reason)
+g(for)h(the)-5 666 y(sprouting)16 b(of)h(sev)o(eral)f(little)i(languages,)e
+(sp)q(ecially)h(in)g(Unix)g(en)o(vironmen)o(ts.)22 b(Our)16
+b(implemen)o(tation)-5 726 y(of)i Fe(Lua)f Ff(uses)g Fe(y)o(acc)h
+Ff(for)f(syn)o(tactical)g(analysis.)24 b(Initially)l(,)17 b(w)o(e)g(wrote)h
+(the)g(lexical)f(analyzer)h(using)e Fe(lex)p Ff(.)-5 786 y(After)21
+b(p)q(erformance)e(pro\014les)f(with)i(pro)q(duction)f(programs,)g(w)o(e)g
+(detected)i(that)g(this)e(mo)q(dule)h(w)o(as)-5 846 y(resp)q(onsible)e(for)h
+(almost)g(half)g(of)g(the)h(time)f(required)f(for)h(loading)g(and)f
+(executing)i(extension)f(pro-)-5 905 y(grams.)24 b(W)l(e)18
+b(then)g(rewrote)f(this)h(mo)q(dule)f(directly)g(in)h(C;)f(the)h(new)g
+(lexical)g(analyzer)f(is)g(more)g(than)-5 965 y(t)o(wice)g(as)f(fast)h(as)f
+(the)h(old)f(one.)-5 1135 y Fe(Lua's)g(virtual)j(machine)-5
+1219 y Ff(The)h(virtual)f(mac)o(hine)f(used)h(in)g(our)g(implemen)o(tation)f
+(of)i Fe(Lua)f Ff(is)g(a)h Fd(stack)h(machine)p Ff(.)32 b(This)19
+b(means)-5 1279 y(that)e(it)f(do)q(es)g(not)g(ha)o(v)o(e)g(random)e(access)i
+(memory:)21 b(all)16 b(temp)q(orary)f(v)m(alues)h(and)g(lo)q(cal)g(v)m
+(ariables)f(are)-5 1339 y(k)o(ept)j(in)e(a)i(stac)o(k.)24 b(Moreo)o(v)o(er,)
+15 b(it)j(do)q(es)f(not)g(ha)o(v)o(e)g(general)f(purp)q(ose)g(registers,)g
+(only)h(sp)q(ecial)g(con)o(trol)-5 1399 y(registers,)f(whic)o(h)g(con)o(trol)
+h(the)g(stac)o(k)g(and)g(the)g(execution)h(of)f(programs.)22
+b(These)17 b(registers)f(are)h Fd(b)m(ase)-5 1458 y(of)i(stack)p
+Ff(,)d Fd(top)j(of)f(stack)f Ff(and)f Fd(pr)m(o)m(gr)m(am)k(c)m(ounter)p
+Ff(.)-5 1543 y(Programs)j(for)h(the)g(virtual)g(mac)o(hine)f(are)h(sequences)
+g(of)h(instructions,)f(called)g Fd(byte)m(c)m(o)m(des)p Ff(.)48
+b(The)-5 1603 y(execution)24 b(of)g(programs)d(is)i(ac)o(hiev)o(ed)g(b)o(y)g
+(in)o(terpreting)f(b)o(yteco)q(des,)k(eac)o(h)d(corresp)q(onding)e(to)j(an)-5
+1663 y(instruction)16 b(that)g(op)q(erates)h(on)f(the)h(top)f(p)q(ortion)g
+(of)h(the)g(stac)o(k.)22 b(F)l(or)15 b(example,)h(the)h(statemen)o(t)195
+1777 y Fh(a)26 b(=)g(b)g(+)h(f\(c\))-5 1862 y Ff(is)16 b(compiled)g(in)o(to)
+195 1962 y Fh(PUSHGLOBAL)80 b("b")195 2022 y(PUSHGLOBAL)g("f")195
+2081 y(PUSHMARK)195 2141 y(PUSHGLOBAL)g("c")195 2201 y(CALLFUNC)195
+2261 y(ADJUST)210 b(2)195 2320 y(ADD)195 2380 y(STOREGLOBAL)54
+b("a")-5 2465 y Fe(Lua)p Ff('s)13 b(virtual)f(mac)o(hine)g(has)g(ab)q(out)h
+(60)g(instructions;)g(accordingly)l(,)f(it)i(is)e(p)q(ossible)g(to)i(use)e
+(8-bit)h(b)o(yte-)-5 2525 y(co)q(des.)22 b(Man)o(y)15 b(instructions)f
+(\(e.g.,)h Fh(ADD)p Ff(\))i(do)e(not)h(need)f(additional)g(parameters;)f
+(these)h(instructions)-5 2584 y(op)q(erate)d(directly)g(on)f(the)h(stac)o(k)g
+(and)f(tak)o(e)h(exactly)h(one)f(b)o(yte)g(in)f(compiled)g(co)q(de.)20
+b(Other)11 b(instructions)-5 2644 y(\(e.g.,)16 b Fh(PUSHGLOBAL)i
+Ff(and)d Fh(STOREGLOBAL)p Ff(\))j(need)d(additional)g(parameters,)f(and)h
+(tak)o(e)h(more)f(than)h(one)-5 2704 y(b)o(yte.)22 b(Since)16
+b(parameters)e(tak)o(e)i(either)g(one,)f(t)o(w)o(o)h(or)f(four)g(b)o(ytes,)h
+(this)g(creates)f(alignmen)o(t)g(problems)-5 2764 y(in)h(some)g(arc)o
+(hitectures,)f(whic)o(h)h(are)g(solv)o(ed)g(b)o(y)g(padding)f(with)h
+Fh(NOP)p Ff(s)h(to)g(the)g(alignmen)o(t)e(b)q(oundary)l(.)-5
+2883 y Fc(T)l(eCGraf/ICAD)1674 b(8)p eop
+%%Page: 9 9
+bop -5 163 a Ff(Man)o(y)15 b(of)i(the)f(instructions)e(exist)i(for)g
+(optimization)f(only)l(.)21 b(F)l(or)15 b(instance,)g(there)h(is)g(a)g
+Fh(PUSH)g Ff(instruc-)-5 223 y(tion,)f(whic)o(h)g(tak)o(es)g(a)g(n)o(um)o(b)q
+(er)e(as)i(a)g(parameter)f(and)g(pushes)g(it)h(on)o(to)g(the)g(stac)o(k,)h
+(but)f(there)g(are)f(also)-5 283 y(single-b)o(yte)i(optimized)f(v)o(ersions)g
+(for)h(pushing)f(common)g(v)m(alues)h(suc)o(h)f(as)h(zero)h(and)e(one.)22
+b(Th)o(us,)15 b(w)o(e)-5 343 y(ha)o(v)o(e)k Fh(PUSHNIL)p Ff(,)h
+Fh(PUSH0)p Ff(,)h Fh(PUSH1)p Ff(,)g Fh(PUSH2)p Ff(.)31 b(Suc)o(h)18
+b(optimizations)g(reduce)h(b)q(oth)g(the)h(space)f(required)-5
+402 y(for)e(compiled)e(b)o(yteco)q(des)h(and)g(the)h(time)g(required)e(for)h
+(in)o(terpreting)f(instructions.)-5 487 y(Recall)k(that)h Fe(Lua)f
+Ff(supp)q(orts)f(m)o(ultiple)f(assignmen)o(t)h(and)g(m)o(ultiple)g(return)g
+(v)m(alues)h(from)g(functions.)-5 547 y(Therefore,)e(sometimes,)g(a)g(list)h
+(of)g(v)m(alues)f(m)o(ust)g(b)q(e)g Fd(adjuste)m(d)5 b Ff(,)20
+b(at)e(run)f(time,)g(to)h(a)g(giv)o(en)f(length:)24 b(if)-5
+607 y(there)c(are)g(more)f(v)m(alues)h(than)g(are)f(needed,)h(then)g(the)h
+(excess)f(v)m(alues)f(are)h(thro)o(wn)f(a)o(w)o(a)o(y;)i(if)f(more)-5
+666 y(v)m(alues)15 b(are)f(needed)g(than)g(are)g(presen)o(t,)g(then)g(the)h
+(list)f(is)g(extended)h(with)f(as)g(man)o(y)g Fh(nil)p Ff('s)g(as)g(needed.)
+-5 726 y(Adjustmen)o(t)i(is)g(done)g(on)g(the)h(stac)o(k)g(with)f(the)h
+Fh(ADJUST)h Ff(instruction.)-5 811 y(Although)g(m)o(ultiple)f(assignmen)o(t)f
+(and)i(returns)e(are)i(a)g(p)q(o)o(w)o(erful)f(feature)i(of)f
+Fe(Lua)p Ff(,)g(they)h(are)f(an)g(im-)-5 871 y(p)q(ortan)o(t)g(source)e(of)i
+(complexit)o(y)g(in)f(b)q(oth)h(the)g(compiler)e(and)i(the)g(in)o(terpreter.)
+24 b(Because)17 b(there)h(are)-5 930 y(no)c(t)o(yp)q(e)h(declarations)e(for)h
+(functions,)g(the)h(compiler)d(do)q(es)j(not)f(kno)o(w)g(ho)o(w)f(man)o(y)h
+(v)m(alues)g(a)g(function)-5 990 y(will)j(return.)k(Th)o(us,)15
+b(adjustmen)o(t)h(m)o(ust)g(b)q(e)h(done)f(at)h(run)f(time.)22
+b(Similarly)l(,)15 b(the)i(compiler)e(do)q(es)i(not)-5 1050
+y(kno)o(w)f(ho)o(w)g(man)o(y)f(parameters)g(a)h(function)g(tak)o(es.)22
+b(Because)16 b(this)g(n)o(um)o(b)q(er)f(ma)o(y)g(v)m(ary)i(at)g(run)e(time,)
+-5 1110 y(the)i(list)f(of)h(parameters)e(is)h(brac)o(k)o(eted)g(b)q(et)o(w)o
+(een)g(a)h Fh(PUSHMARK)g Ff(and)f(a)h Fh(CALLFUNC)h Ff(instruction.)-5
+1194 y(One)e(w)o(a)o(y)f(to)h(extend)g Fe(Lua)f Ff(with)h(functions)f(pro)o
+(vided)f(b)o(y)h(the)h(host)f(w)o(ould)g(b)q(e)g(to)h(assign)f(a)g(b)o(yteco)
+q(de)-5 1254 y(to)j(eac)o(h)f(suc)o(h)g(function)g(\(Betz)i(1988\).)25
+b(Although)17 b(this)g(strategy)h(w)o(ould)e(simplify)h(the)g(in)o
+(terpreter,)-5 1314 y(it)k(has)g(the)g(disadv)m(an)o(tage)e(that)i(few)o(er)g
+(than)g(200)f(external)h(functions)f(could)g(b)q(e)h(added,)g(b)q(ecause)-5
+1374 y Fe(Lua)e Ff(has)f(8-bit)g(b)o(yteco)q(des)h(and)f(already)g(uses)g(ab)
+q(out)g(60)h(of)g(them)f(for)h(its)f(primitiv)o(e)g(instructions.)-5
+1433 y(W)l(e)f(ha)o(v)o(e)f(c)o(hosen)g(to)h(ha)o(v)o(e)f(the)h(host)f
+(explicitly)h(register)f(external)h(functions,)f(and)g(handling)f(these)-5
+1493 y(functions)24 b(lik)o(e)g(nativ)o(e)h Fe(Lua)f Ff(functions.)45
+b(Th)o(us,)25 b(there)f(is)h(a)f(single)g Fh(CALLFUNC)h Ff(instruction;)j
+(the)-5 1553 y(in)o(terpreter)15 b(decides)h(what)h(to)g(do)f(based)f(on)i
+(the)f(t)o(yp)q(e)i(of)e(the)h(function)f(b)q(eing)g(called.)-5
+1638 y(A)21 b(rather)e(di\013eren)o(t)g(strategy)h(w)o(as)f(prop)q(osed)g(b)o
+(y)g(F)l(ranks)f(\(1991\):)30 b Fd(al)s(l)19 b Ff(external)h(functions)f(in)h
+(the)-5 1697 y(host)f(can)g(b)q(e)h(called)f(b)o(y)g(the)g(em)o(b)q(edded)f
+(language;)i(no)f(explicit)g(registration)f(is)h(needed.)30
+b(This)18 b(is)-5 1757 y(done)h(b)o(y)g(reading)f(and)g(in)o(terpreting)g
+(the)h(map)g(generated)f(b)o(y)h(the)h(link)o(er.)29 b(This)18
+b(solution)g(is)h(v)o(ery)-5 1817 y(con)o(v)o(enien)o(t)g(for)h(the)g
+(application)e(programmer,)g(but)i(is)f(not)h(p)q(ortable,)g(b)q(eing)g(dep)q
+(enden)o(t)f(on)h(the)-5 1877 y(format)14 b(of)g(the)h(map)e(\014le)h(and)g
+(on)g(the)g(relo)q(cation)g(strategy)h(used)e(b)o(y)h(the)g(op)q(erating)g
+(system)g(\(F)l(ranks)-5 1937 y(used)i(a)h(sp)q(eci\014c)f(compiler)f(for)h
+(DOS\).)-5 2091 y Fe(Internal)h(data)f(structures)-5 2176 y
+Ff(As)22 b(men)o(tioned)e(b)q(efore,)i(v)m(ariables)f(in)f
+Fe(Lua)i Ff(are)f(not)g(t)o(yp)q(ed;)j(only)d(v)m(alues)g(are.)36
+b(Th)o(us,)21 b(v)m(alues)g(are)-5 2236 y(implemen)o(ted)15
+b(in)g(a)h Fh(struct)i Ff(with)e(t)o(w)o(o)f(\014elds:)21 b(a)16
+b(t)o(yp)q(e)h(and)e(a)i Fh(union)g Ff(con)o(taining)d(the)j(actual)f(v)m
+(alue.)-5 2296 y(These)g Fh(struct)p Ff(s)g(o)q(ccur)g(in)g(the)g(stac)o(k)g
+(and)f(in)g(the)h(sym)o(b)q(ol)f(table,)h(whic)o(h)f(holds)g(all)g(global)g
+(sym)o(b)q(ols.)-5 2380 y(Num)o(b)q(ers)j(are)h(stored)f(directly)h(in)o(to)g
+(the)g Fh(union)p Ff(.)31 b(Strings)18 b(are)g(k)o(ept)i(in)e(a)h(single)g
+(arra)o(y;)g(v)m(alues)g(of)-5 2440 y(t)o(yp)q(e)i Fd(string)g
+Ff(con)o(tain)e(p)q(oin)o(ters)h(to)g(this)g(arra)o(y)l(.)32
+b(V)l(alues)20 b(of)h(t)o(yp)q(e)g Fd(function)f Ff(con)o(tain)g(p)q(oin)o
+(ters)f(to)i(a)-5 2500 y(b)o(yteco)q(de)d(arra)o(y)l(.)23 b(V)l(alues)17
+b(of)g(t)o(yp)q(e)h Fd(Cfunction)f Ff(con)o(tain)g(the)g(actual)g(p)q(oin)o
+(ter)g(to)g(the)h(C)f(function,)g(as)-5 2560 y(pro)o(vided)e(b)o(y)h(the)h
+(host)f(program;)f(the)i(same)e(happ)q(ens)h(for)g(v)m(alues)g(of)h(t)o(yp)q
+(e)g Fd(user)m(data)p Ff(.)-5 2644 y(T)l(ables)g(are)g(implemen)o(ted)f(as)h
+(hash)g(tables,)g(with)h(collisions)d(handled)i(b)o(y)g(separate)g(c)o
+(haining)f(\(this)-5 2704 y(explains)23 b(wh)o(y)g(indices)g(in)g(a)g(table)h
+(are)f(ordered)f(arbitrarily\).)41 b(If)24 b(a)g(dimension)d(is)i(giv)o(en)g
+(when)-5 2764 y(a)f(table)g(is)g(created,)h(then)f(this)g(dimension)e(is)i
+(used)f(as)h(the)g(size)g(of)g(the)h(hash)e(table.)38 b(Th)o(us,)22
+b(b)o(y)-5 2883 y Fc(T)l(eCGraf/ICAD)1674 b(9)p eop
+%%Page: 10 10
+bop -5 163 a Ff(pro)o(viding)13 b(a)i(dimension)e(appro)o(ximately)h(equal)h
+(to)g(the)g(exp)q(ected)h(n)o(um)o(b)q(er)d(of)i(indices)f(in)h(the)g(table,)
+-5 223 y(few)i(collisions)d(will)i(o)q(ccur,)g(resulting)e(in)i(v)o(ery)g
+(e\016cien)o(t)g(index)f(lo)q(cation.)22 b(Moreo)o(v)o(er,)15
+b(if)h(the)g(table)g(is)-5 283 y(used)g(as)g(an)g(arra)o(y)l(,)e(with)j(n)o
+(umeric)d(indices)h(only)l(,)h(then)g(c)o(ho)q(osing)g(the)g(righ)o(t)f
+(dimension)g(at)h(creation)-5 343 y(time)h(guaran)o(tees)e(that)i(no)f
+(collisions)f(will)h(o)q(ccur.)-5 427 y(All)k(in)o(ternal)e(data)h
+(structures)f(in)h Fe(Lua)h Ff(are)f(dynamically)f(allo)q(cated)i(arra)o(ys.)
+29 b(When)19 b(there)g(are)g(no)-5 487 y(more)13 b(free)h(slots)g(in)f(one)h
+(of)g(these)g(arra)o(ys,)e(garbage)h(collection)h(is)f(automatically)h(p)q
+(erformed)e(using)h(a)-5 547 y(standard)i(mark-and-sw)n(eep)e(algorithm.)21
+b(If)16 b(no)f(space)h(is)f(reco)o(v)o(ered)g(\(b)q(ecause)h(all)f(v)m(alues)
+h(are)f(b)q(eing)-5 607 y(referenced\),)h(then)h(the)g(arra)o(y)e(is)h
+(reallo)q(cated)g(with)h(double)e(its)i(curren)o(t)e(size.)-5
+691 y(Garbage)h(collection)h(is)g(v)o(ery)g(con)o(v)o(enien)o(t)e(for)i(the)g
+(programmer)d(b)q(ecause)j(it)g(a)o(v)o(oids)f(explicit)h(mem-)-5
+751 y(ory)d(managemen)o(t.)20 b(When)14 b Fe(Lua)g Ff(is)g(used)g(as)g(a)g
+(standalone)f(language)h(\(whic)o(h)f(it)i(frequen)o(tly)f(is\),)h(then)-5
+811 y(garbage)20 b(collection)g(is)g(an)g(asset.)34 b(Ho)o(w)o(ev)o(er,)20
+b(when)g Fe(Lua)g Ff(is)g(used)g(em)o(b)q(edded)f(in)h(a)h(host)f(program)-5
+871 y(\(whic)o(h)13 b(is)g(its)h(main)e(purp)q(ose\),)h(then)h(garbage)e
+(collection)h(creates)h(a)f(new)h(w)o(orry)e(for)h(the)h(application)-5
+930 y(programmer)f(who)i(needs)g(to)h(in)o(terface)g(with)f
+Fe(Lua)p Ff(:)21 b(care)16 b(should)e(b)q(e)i(tak)o(en)g(not)f(to)h(store)g
+Fe(Lua)f Ff(tables)-5 990 y(and)g(strings)f(in)o(to)i(C)f(v)m(ariables,)g(b)q
+(ecause)g(these)h(v)m(alues)f(ma)o(y)g(b)q(e)h(reclaimed)f(during)e(garbage)i
+(collec-)-5 1050 y(tion,)i(if)g(they)h(do)f(not)g(ha)o(v)o(e)f(an)o(y)h
+(further)f(references)h(within)f Fe(Lua)p Ff('s)h(en)o(vironmen)o(t.)k(More)c
+(precisely)l(,)-5 1110 y(the)d(programmer)d(m)o(ust)i(explicitly)h(cop)o(y)f
+(these)h(v)m(alues)f(in)o(to)g(C)h(v)m(ariables,)f(b)q(efore)h(returning)e
+(con)o(trol)-5 1169 y(to)i Fe(Lua)p Ff(.)21 b(Although)12 b(this)h(is)g(a)h
+(di\013eren)o(t)e(paradigm,)g(it)h(is)g(not)h(w)o(orse)e(than)h(the)h
+(familiar)e Fh(malloc)p Ff(-)p Fh(free)-5 1229 y Ff(proto)q(col)17
+b(for)f(memory)f(managemen)o(t)g(using)h(the)g(standard)f(C)i(library)l(.)-5
+1397 y Fg(Conclusion)-5 1482 y Fe(Lua)g Ff(has)e(b)q(een)i(extensiv)o(ely)g
+(used)f(in)g(pro)q(duction)f(since)h(mid)g(93,)g(for)g(the)h(follo)o(wing)e
+(tasks:)-5 1560 y Fb(\017)25 b Ff(user)16 b(con\014guration)e(of)j
+(application)f(en)o(vironmen)o(t;)-5 1625 y Fb(\017)25 b Ff(general-purp)q
+(ose)14 b(data-en)o(try)l(,)h(with)i(user)e(de\014ned)h(dialogs)f(and)h(v)m
+(alidation)g(pro)q(cedures;)-5 1690 y Fb(\017)25 b Ff(description)15
+b(of)i(user)e(in)o(terfaces;)-5 1755 y Fb(\017)25 b Ff(programmer)14
+b(description)h(of)i(application)e(ob)s(jects;)-5 1819 y Fb(\017)25
+b Ff(storage)f(of)h(structured)e(graphical)g(meta\014les,)i(used)f(for)g
+(comm)o(unication)e(b)q(et)o(w)o(een)i(graphical)45 1879 y(editors)16
+b(and)g(application)f(programs.)-5 1977 y(Moreo)o(v)o(er,)g
+Fe(Lua)g Ff(is)h(curren)o(tly)e(b)q(eing)i(considered)e(as)i(the)g(basis)f
+(for)g(a)h(visual)f(programming)e(system.)-5 2062 y(The)k(abilit)o(y)g(to)g
+(load)f(and)h(execute)h Fe(Lua)f Ff(programs)d(at)k(run-time)d(has)h(pro)o(v)
+o(ed)g(to)h(b)q(e)h(a)f(ma)s(jor)f(com-)-5 2122 y(p)q(onen)o(t)g(in)f(making)
+g(con\014guration)f(an)i(easy)g(task)g(for)g(b)q(oth)g(users)e(and)i(dev)o
+(elop)q(ers.)k(Moreo)o(v)o(er,)15 b(the)-5 2182 y(existence)i(of)g(a)f
+(single)g(general)g(purp)q(ose)f(em)o(b)q(edded)g(language)h(discourages)e
+(the)j(m)o(ultiplication)e(of)-5 2241 y(incompatible)d(languages)g(and)h
+(encourages)f(a)h(b)q(etter)h(design,)f(one)g(that)h(clearly)f(separates)f
+(the)i(main)-5 2301 y(tec)o(hnology)i(con)o(tained)g(in)g(an)g(application)g
+(from)f(its)i(con\014guration)e(issues.)-5 2386 y(The)21 b(implemen)o(tation)
+e(of)i Fe(Lua)f Ff(describ)q(ed)g(in)g(this)h(pap)q(er)f(is)g(a)o(v)m
+(ailable)g(b)o(y)h(anon)o(ymous)d Fh(ftp)k Ff(from)-5 2446
+y Fh(ftp.icad.puc-rio.br:/p)q(ub/lua)q(/lua-1.)q(1.tar.Z)q
+Ff(.)-5 2560 y Fe(Ackno)o(wledgments)-5 2644 y Ff(W)l(e)f(w)o(ould)d(lik)o(e)
+i(to)h(thank)f(the)g(sta\013)g(at)h(ICAD)f(and)g(T)l(eCGraf)f(for)h(using)f
+(and)h(testing)g Fe(Lua)p Ff(.)32 b(The)-5 2704 y(industrial)16
+b(applications)g(men)o(tioned)g(in)h(the)h(text)h(are)e(b)q(eing)h(dev)o
+(elop)q(ed)f(in)g(patternship)f(with)i(the)-5 2764 y(researc)o(h)d(cen)o
+(ters)h(at)h(PETR)o(OBR)674 2751 y(\023)668 2764 y(AS)e(\(CENPES\))i(and)f
+(at)h(ELETR)o(OBR)1452 2751 y(\023)1446 2764 y(AS)f(\(CEPEL\).)-5
+2883 y Fc(T)l(eCGraf/ICAD)1652 b(10)p eop
+%%Page: 11 11
+bop -5 163 a Fg(References)-5 268 y Ff(M.)14 b(Abrash,)g(D.)g(Illo)o(wsky)l
+(,)g(\\Roll)g(y)o(our)f(o)o(wn)h(minilanguages)e(with)j(mini-in)o(terpreters)
+o(",)d Fi(Dr.)i(Dobb's)70 328 y(Journal)h Fa(14)h Ff(\(9\))h(\(Sep)f(1989\))h
+(52{72.)-5 402 y(A.)27 b(V.)h(Aho,)e(B.)i(W.)f(Kerninghan,)d(P)l(.)j(J.)f(W)l
+(ein)o(b)q(erger,)g Fi(The)g(A)-6 b(WK)28 b(programming)c(language)p
+Ff(,)70 462 y(Addison-W)l(esley)l(,)15 b(1988.)-5 537 y(B.)i(Bec)o(kman,)f
+(\\A)h(Sc)o(heme)f(for)g(little)h(languages)f(in)g(in)o(teractiv)o(e)g
+(graphics",)f Fi(Soft)o(w)o(are,)h(practice)g(&)70 597 y(exp)q(erience)h
+Fa(21)f Ff(\(1991\))h(187{207.)-5 671 y(J.)c(Ben)o(tley)l(,)f(\\Programming)e
+(p)q(earls:)i(little)h(languages",)f Fi(Comm)o(unications)e(of)j(the)g(A)o
+(CM)f Fa(29)g Ff(\(1986\))70 731 y(711{721.)-5 806 y(J.)k(Ben)o(tley)l(,)h
+Fi(More)f(programming)d(p)q(earls)p Ff(,)j(Addison-W)l(esley)l(,)f(1988.)-5
+881 y(D.)i(Betz,)g(\\Em)o(b)q(edded)e(languages",)g Fi(Byte)j
+Fa(13)e Ff(#12)f(\(No)o(v)j(1988\))e(409{416.)-5 955 y(D.)g(Betz,)h(\\Y)l
+(our)f(o)o(wn)f(tin)o(y)h(ob)s(ject-orien)o(ted)f(language",)g
+Fi(Dr.)h(Dobb's)f(Journal)f Fa(16)i Ff(\(9\))h(\(Sep)f(1991\))70
+1015 y(26{33.)-5 1090 y(T.)h(Budd,)e Fi(A)i(Little)h(Smalltalk)p
+Ff(,)d(Addison-W)l(esley)l(,)g(1987.)-5 1164 y(R.)e(Clark,)h(S.)f(Ko)q
+(ehler,)g Fi(The)g(UCSD)h(P)o(ascal)f(handb)q(o)q(ok:)g(a)g(reference)g(and)g
+(guideb)q(o)q(ok)h(for)f(program-)70 1224 y(mers)p Ff(,)i(Pren)o(tice-Hall,)h
+(1982.)-5 1299 y(M.)g(Co)o(wlisha)o(w,)f Fi(The)h(REXX)h(programming)d
+(language)p Ff(,)h(Pren)o(tice-Hall,)g(1990.)-5 1374 y(L.)j(H.)f(de)g
+(Figueiredo,)f(C.)h(S.)g(de)g(Souza,)g(M.)f(Gattass,)i(L.)f(C.)g(G.)g(Co)q
+(elho,)g(\\Gera\030)-22 b(c~)d(ao)17 b(de)h(in)o(terfaces)70
+1433 y(para)k(captura)g(de)h(dados)f(sobre)f(desenhos",)h Fi(Anais)g(do)h
+(SIBGRAPI)f(V)i Ff(\(1992\))f(169{175)f([in)70 1493 y(P)o(ortuguese].)-5
+1568 y(N.)e(F)l(ranks,)d(\\Adding)h(an)h(extension)g(language)f(to)i(y)o(our)
+e(soft)o(w)o(are",)g Fi(Dr.)g(Dobb's)g(Journal)g Fa(16)g Ff(\(9\))70
+1628 y(\(Sep)e(1991\))h(34{43.)-5 1702 y(A.)24 b(Goldb)q(erg,)f(D.)h(Robson,)
+e Fi(Smalltalk-80:)g(the)i(language)f(and)g(its)h(implemen)o(tation)p
+Ff(,)d(Addison-)70 1762 y(W)l(esley)l(,)16 b(1983.)-5 1837
+y(R.)g(Ierusalimsc)o(h)o(y)l(,)d(L.)j(H.)g(de)g(Figueiredo,)e(W.)i(Celes)f
+(Filho,)g(\\Reference)h(man)o(ual)e(of)i(the)g(program-)70
+1897 y(ming)g(language)f Fe(Lua)p Ff(",)h Fi(Monogra\014as)e(em)j(Ci)o(^)-24
+b(encia)16 b(da)g(Computa\030)-22 b(c~)d(ao)16 b Fa(4/94)p
+Ff(,)f(Departamen)o(to)g(de)70 1956 y(Inform\023)-25 b(atica,)15
+b(PUC-Rio,)h(1994.)-5 2031 y(J.)g(R.)g(Levine,)h(T.)f(Mason,)g(D.)g(Bro)o
+(wn,)g Fi(Lex)h(&)f(Y)l(acc)p Ff(,)h(O'Reilly)f(and)g(Asso)q(ciates,)g(1992.)
+-5 2106 y(C.)h(Nahab)q(o)q(o,)f Fi(A)h(catalog)g(of)g(em)o(b)q(edded)e
+(languages)p Ff(,)g(a)o(v)m(ailable)h(from)f Fh(colas@indri.inria.fr)p
+Ff(.)-5 2181 y(M.)i(Ric)o(hards,)e(C.)j(Whitb)o(y-Strev)o(ens,)d
+Fi(BCPL:)j(the)g(language)e(and)h(its)g(compiler)p Ff(,)f(Cam)o(bridge)f
+(Uni-)70 2240 y(v)o(ersit)o(y)h(Press,)f(1980.)-5 2315 y(B.)i(Ry)o(an,)f
+(\\Scripts)f(un)o(b)q(ounded",)f Fi(Byte)k Fa(15)e Ff(\(8\))h(\(Aug)g(1990\))
+f(235{240.)-5 2390 y(R.)g(V)l(ald)o(\023)-24 b(es,)16 b(\\Little)h
+(languages,)e(big)i(questions",)e Fi(Dr.)h(Dobb's)f(Journal)g
+Fa(16)h Ff(\(9\))h(\(Sep)g(1991\))f(16{25.)-5 2883 y Fc(T)l(eCGraf/ICAD)1652
+b(11)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/doc/manual.dvi b/doc/manual.dvi
new file mode 100644
index 00000000..5baa7132
--- /dev/null
+++ b/doc/manual.dvi
diff --git a/doc/manual.ps b/doc/manual.ps
new file mode 100644
index 00000000..c507ae37
--- /dev/null
+++ b/doc/manual.ps
@@ -0,0 +1,2125 @@
+%!PS-Adobe-2.0
+%%Creator: dvips, version 5.4 (C) 1986-90 Radical Eye Software
+%%Title: manual.dvi
+%%Pages: 19 1
+%%BoundingBox: 0 0 596 843
+%%EndComments
+%%BeginProcSet: tex.pro
+/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
+load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
+isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+Resolution VResolution vsize neg mul TR}B /@letter{/vsize 10 N}B /@landscape{
+/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{/vsize 15.5531 N
+}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 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 /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 /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 /E{pop nn dup definefont setfont}B /ch-image{ch-data dup type /stringtype
+ne{ctr get /ctr ctr 1 add N}if}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 /ctr 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}B /eop{clear SI restore showpage userdict /eop-hook
+known{eop-hook}if}B /@start{userdict /start-hook known{start-hook}if
+/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}B /p /show load N /RMat[1 0 0 -1 0 0]N
+/BDot 8 string N /v{/ruley X /rulex X V}B /V{gsave TR -.1 -.1 TR rulex ruley
+scale 1 1 false RMat{BDot}imagemask 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 /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 /w{0 rmoveto}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B
+/eos{clear SS restore}B end
+%%EndProcSet
+TeXDict begin 1000 300 300 @start /Fa 7 121 df<1FF0003FFC007FFE00780F00300700
+000380000380007F8007FF801FFF803F8380780380700380E00380E00380E00380700780780F80
+3FFFFC1FFDFC07F0FC16157D941A>97 D<01F80007FF000FFF801E07C03C01C07800E07000E0E0
+0070E00070FFFFF0FFFFF0FFFFF0E000007000007000007800703C00701F01F00FFFE003FFC000
+FE0014157D941A>101 D<FE3E00FEFF80FFFFC00FC1C00F80E00F00E00E00E00E00E00E00E00E
+00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E0FFE3FEFFE7FEFFE3FE17157F94
+1A>110 D<7F83F0FF8FF87FBFFC03FC3C03F01803E00003C00003C00003800003800003800003
+80000380000380000380000380000380000380007FFF00FFFF007FFF0016157E941A>114
+D<00C00001C00001C00001C00001C00001C00001C0007FFFE0FFFFE0FFFFE001C00001C00001C0
+0001C00001C00001C00001C00001C00001C00001C00001C07001C07001C07001C07000E0E000FF
+E0007FC0001F00141C7F9B1A>116 D<7F83FCFFC7FE7F83FC0E00E00E00E00E00E00701C00701
+C00701C003838003838003838001C70001C70001C70000EE0000EE0000EE00007C00007C000038
+0017157F941A>118 D<7FC7F87FCFFC7FC7F80703C003838003C70001EF0000FE00007C000078
+00003800007C0000EE0001EE0001C7000383800783C00F01C07FC7FCFFC7FE7FC7FC17157F941A
+>120 D E /Fb 46 121 df<000FF000007FFC0001F80E0003E01F0007C03F000F803F000F803F
+000F801E000F800C000F8000000F8000000F8000000F800000FFFFFF00FFFFFF000F801F000F80
+1F000F801F000F801F000F801F000F801F000F801F000F801F000F801F000F801F000F801F000F
+801F000F801F000F801F000F801F000F801F000F801F000F801F007FF0FFE07FF0FFE01B237FA2
+1F>12 D<387CFEFEFE7C3807077C8610>46 D<0000180000380000380000700000700000E00000
+E00000E00001C00001C0000380000380000380000700000700000700000E00000E00001C00001C
+00001C0000380000380000700000700000700000E00000E00001C00001C00001C0000380000380
+000700000700000700000E00000E00000E00001C00001C00003800003800003800007000007000
+00E00000E00000C0000015317DA41C>I<00180000780001F800FFF800FFF80001F80001F80001
+F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001F80001
+F80001F80001F80001F80001F80001F80001F80001F80001F80001F8007FFFE07FFFE013207C9F
+1C>49 D<03FC000FFF003C1FC07007E07C07F0FE03F0FE03F8FE03F8FE01F87C01F83803F80003
+F80003F00003F00007E00007C0000F80001F00003E0000380000700000E01801C0180380180700
+180E00380FFFF01FFFF03FFFF07FFFF0FFFFF0FFFFF015207D9F1C>I<00FE0007FFC00F07E01E
+03F03F03F03F81F83F81F83F81F81F03F81F03F00003F00003E00007C0001F8001FE0001FF0000
+07C00001F00001F80000FC0000FC3C00FE7E00FEFF00FEFF00FEFF00FEFF00FC7E01FC7801F81E
+07F00FFFC001FE0017207E9F1C>I<0000E00001E00003E00003E00007E0000FE0001FE0001FE0
+0037E00077E000E7E001C7E00187E00307E00707E00E07E00C07E01807E03807E07007E0E007E0
+FFFFFEFFFFFE0007E00007E00007E00007E00007E00007E00007E000FFFE00FFFE17207E9F1C>
+I<1000201E01E01FFFC01FFF801FFF001FFE001FF8001BC00018000018000018000018000019FC
+001FFF001E0FC01807E01803E00003F00003F00003F80003F83803F87C03F8FE03F8FE03F8FC03
+F0FC03F07007E03007C01C1F800FFF0003F80015207D9F1C>I<001F8000FFE003F07007C0F00F
+01F81F01F83E01F83E01F87E00F07C00007C0000FC0800FC7FC0FCFFE0FD80F0FF00F8FE007CFE
+007CFC007EFC007EFC007EFC007E7C007E7C007E7C007E3C007C3E007C1E00F80F00F00783E003
+FFC000FF0017207E9F1C>I<6000007800007FFFFE7FFFFE7FFFFC7FFFF87FFFF87FFFF0E00060
+E000C0C00180C00300C00300000600000C00001C0000180000380000780000780000F00000F000
+00F00001F00001F00001F00003F00003F00003F00003F00003F00003F00003F00001E00017227D
+A11C>I<000070000000007000000000F800000000F800000000F800000001FC00000001FC0000
+0003FE00000003FE00000003FE00000006FF000000067F0000000E7F8000000C3F8000000C3F80
+0000183FC00000181FC00000381FE00000300FE00000300FE00000600FF000006007F00000E007
+F80000FFFFF80000FFFFF800018001FC00018001FC00038001FE00030000FE00030000FE000600
+007F000600007F00FFE00FFFF8FFE00FFFF825227EA12A>65 D<0003FE0080001FFF818000FF01
+E38001F8003F8003E0001F8007C0000F800F800007801F800007803F000003803F000003807F00
+0001807E000001807E00000180FE00000000FE00000000FE00000000FE00000000FE00000000FE
+00000000FE00000000FE000000007E000000007E000001807F000001803F000001803F00000380
+1F800003000F8000030007C000060003F0000C0001F800380000FF00F000001FFFC0000003FE00
+0021227DA128>67 D<FFFFFF8000FFFFFFF00007F003FC0007F0007E0007F0003F0007F0001F80
+07F0000FC007F00007E007F00007E007F00007F007F00003F007F00003F007F00003F007F00003
+F807F00003F807F00003F807F00003F807F00003F807F00003F807F00003F807F00003F807F000
+03F807F00003F007F00003F007F00003F007F00007E007F00007E007F0000FC007F0001F8007F0
+003F0007F0007E0007F003FC00FFFFFFF000FFFFFF800025227EA12B>I<FFFFFFFCFFFFFFFC07
+F000FC07F0003C07F0001C07F0000C07F0000E07F0000E07F0000607F0180607F0180607F01806
+07F0180007F0380007F0780007FFF80007FFF80007F0780007F0380007F0180007F0180007F018
+0307F0180307F0000307F0000607F0000607F0000607F0000E07F0000E07F0001E07F0003E07F0
+01FCFFFFFFFCFFFFFFFC20227EA125>I<FFFFFFF8FFFFFFF807F001F807F0007807F0003807F0
+001807F0001C07F0001C07F0000C07F0000C07F0180C07F0180C07F0180007F0180007F0380007
+F0780007FFF80007FFF80007F0780007F0380007F0180007F0180007F0180007F0180007F00000
+07F0000007F0000007F0000007F0000007F0000007F0000007F00000FFFFE000FFFFE0001E227E
+A123>I<FFFF83FFFEFFFF83FFFE07F0001FC007F0001FC007F0001FC007F0001FC007F0001FC0
+07F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001F
+C007FFFFFFC007FFFFFFC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F000
+1FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0001FC007F0
+001FC007F0001FC0FFFF83FFFEFFFF83FFFE27227EA12C>72 D<FFFFE0FFFFE003F80003F80003
+F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003
+F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003F80003
+F80003F800FFFFE0FFFFE013227FA115>I<FFFFE000FFFFE00007F0000007F0000007F0000007
+F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00000
+07F0000007F0000007F0000007F0000007F0000007F0000007F0001807F0001807F0001807F000
+1807F0003807F0003807F0007007F0007007F000F007F001F007F007F0FFFFFFF0FFFFFFF01D22
+7EA122>76 D<FFF000000FFFFFF800001FFF07F800001FE006FC000037E006FC000037E006FC00
+0037E0067E000067E0067E000067E0063F0000C7E0063F0000C7E0061F800187E0061F800187E0
+060FC00307E0060FC00307E0060FC00307E00607E00607E00607E00607E00603F00C07E00603F0
+0C07E00601F81807E00601F81807E00601F81807E00600FC3007E00600FC3007E006007E6007E0
+06007E6007E006003FC007E006003FC007E006001F8007E006001F8007E006001F8007E006000F
+0007E0FFF00F00FFFFFFF00600FFFF30227EA135>I<0007FC0000003FFF800000FC07E00003F0
+01F80007E000FC000FC0007E001F80003F001F80003F003F00001F803F00001F807F00001FC07E
+00000FC07E00000FC0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0FE00000FE0
+FE00000FE0FE00000FE0FE00000FE07E00000FC07F00001FC07F00001FC03F00001F803F80003F
+801F80003F000FC0007E0007E000FC0003F001F80000FC07E000003FFF80000007FC000023227D
+A12A>79 D<FFFFFF00FFFFFFE007F007F007F001FC07F000FC07F0007E07F0007E07F0007F07F0
+007F07F0007F07F0007F07F0007F07F0007E07F0007E07F000FC07F001FC07F007F007FFFFE007
+FFFF0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00000
+07F0000007F0000007F0000007F00000FFFF8000FFFF800020227EA126>I<01FC0407FF8C1F03
+FC3C007C7C003C78001C78001CF8000CF8000CFC000CFC0000FF0000FFE0007FFF007FFFC03FFF
+F01FFFF80FFFFC03FFFE003FFE0003FF00007F00003F00003FC0001FC0001FC0001FE0001EE000
+1EF0003CFC003CFF00F8C7FFE080FF8018227DA11F>83 D<7FFFFFFF807FFFFFFF807E03F80F80
+7803F807807003F803806003F80180E003F801C0E003F801C0C003F800C0C003F800C0C003F800
+C0C003F800C00003F800000003F800000003F800000003F800000003F800000003F800000003F8
+00000003F800000003F800000003F800000003F800000003F800000003F800000003F800000003
+F800000003F800000003F800000003F800000003F800000003F8000003FFFFF80003FFFFF80022
+227EA127>I<FFFF800FFEFFFF800FFE07F00000C007F80000C003F800018003F800018001FC00
+030001FC00030001FE00070000FE00060000FF000600007F000C00007F800C00003F801800003F
+801800003FC03800001FC03000001FE03000000FE06000000FF060000007F0C0000007F0C00000
+07F9C0000003F980000003FD80000001FF00000001FF00000000FE00000000FE00000000FE0000
+00007C000000007C00000000380000000038000027227FA12A>86 D<07FC001FFF803F07C03F03
+E03F01E03F01F01E01F00001F00001F0003FF003FDF01FC1F03F01F07E01F0FC01F0FC01F0FC01
+F0FC01F07E02F07E0CF81FF87F07E03F18167E951B>97 D<FF000000FF0000001F0000001F0000
+001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F0F
+E0001F3FF8001FF07C001F801E001F001F001F000F801F000F801F000FC01F000FC01F000FC01F
+000FC01F000FC01F000FC01F000FC01F000FC01F000F801F001F801F801F001FC03E001EE07C00
+1C3FF800180FC0001A237EA21F>I<00FF8007FFE00F83F01F03F03E03F07E03F07C01E07C0000
+FC0000FC0000FC0000FC0000FC0000FC00007C00007E00007E00003E00301F00600FC0E007FF80
+00FE0014167E9519>I<0001FE000001FE0000003E0000003E0000003E0000003E0000003E0000
+003E0000003E0000003E0000003E0000003E0000003E0001FC3E0007FFBE000F81FE001F007E00
+3E003E007E003E007C003E00FC003E00FC003E00FC003E00FC003E00FC003E00FC003E00FC003E
+00FC003E007C003E007C003E003E007E001E00FE000F83BE0007FF3FC001FC3FC01A237EA21F>
+I<00FE0007FF800F87C01E01E03E01F07C00F07C00F8FC00F8FC00F8FFFFF8FFFFF8FC0000FC00
+00FC00007C00007C00007E00003E00181F00300FC07003FFC000FF0015167E951A>I<003F8000
+FFC001E3E003C7E007C7E00F87E00F83C00F80000F80000F80000F80000F80000F8000FFFC00FF
+FC000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F
+80000F80000F80000F80000F80000F80007FF8007FF80013237FA211>I<03FC1E0FFF7F1F0F8F
+3E07CF3C03C07C03E07C03E07C03E07C03E07C03E03C03C03E07C01F0F801FFF0013FC00300000
+3000003800003FFF801FFFF00FFFF81FFFFC3800FC70003EF0001EF0001EF0001EF0001E78003C
+7C007C3F01F80FFFE001FF0018217E951C>I<FF000000FF0000001F0000001F0000001F000000
+1F0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F07E0001F1FF8
+001F307C001F403C001F803E001F803E001F003E001F003E001F003E001F003E001F003E001F00
+3E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E00FFE1FFC0FF
+E1FFC01A237EA21F>I<1C003F007F007F007F003F001C000000000000000000000000000000FF
+00FF001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F00
+FFE0FFE00B247EA310>I<0038007C00FE00FE00FE007C00380000000000000000000000000000
+03FE03FE003E003E003E003E003E003E003E003E003E003E003E003E003E003E003E003E003E00
+3E003E003E003E003E003E783EFC3EFC3CFC7C78F87FE01F800F2E83A311>I<FF00FF001F001F
+001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F00
+1F001F001F001F001F001F001F001F001F001F00FFE0FFE00B237EA210>108
+D<FF07F007F000FF1FFC1FFC001F303E303E001F403E403E001F801F801F001F801F801F001F00
+1F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F
+001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F00
+1F001F00FFE0FFE0FFE0FFE0FFE0FFE02B167E9530>I<FF07E000FF1FF8001F307C001F403C00
+1F803E001F803E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E
+001F003E001F003E001F003E001F003E001F003E001F003E00FFE1FFC0FFE1FFC01A167E951F>
+I<00FE0007FFC00F83E01E00F03E00F87C007C7C007C7C007CFC007EFC007EFC007EFC007EFC00
+7EFC007EFC007E7C007C7C007C3E00F81F01F00F83E007FFC000FE0017167E951C>I<FF0FE000
+FF3FF8001FF07C001F803E001F001F001F001F801F001F801F000FC01F000FC01F000FC01F000F
+C01F000FC01F000FC01F000FC01F000FC01F001F801F001F801F803F001FC03E001FE0FC001F3F
+F8001F0FC0001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F000000FF
+E00000FFE000001A207E951F>I<FE1F00FE3FC01E67E01EC7E01E87E01E87E01F83C01F00001F
+00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F0000FFF000FF
+F00013167E9517>114 D<0FF3003FFF00781F00600700E00300E00300F00300FC00007FE0007F
+F8003FFE000FFF0001FF00000F80C00780C00380E00380E00380F00700FC0E00EFFC00C7F00011
+167E9516>I<0180000180000180000180000380000380000780000780000F80003F8000FFFF00
+FFFF000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F8180
+0F81800F81800F81800F81800F830007C30003FE0000F80011207F9F16>I<FF01FE00FF01FE00
+1F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E001F003E
+001F003E001F003E001F003E001F003E001F003E001F007E001F00FE000F81BE0007FF3FC001FC
+3FC01A167E951F>I<FFE01FE0FFE01FE00F8006000F8006000FC00E0007C00C0007E01C0003E0
+180003E0180001F0300001F0300000F8600000F86000007CC000007CC000007FC000003F800000
+3F8000001F0000001F0000000E0000000E00001B167F951E>I<FFE7FF07F8FFE7FF07F81F0078
+00C00F807801800F807C01800F807C018007C07E030007C0DE030007E0DE070003E0DF060003E1
+8F060001F18F0C0001F38F8C0001FB079C0000FB07D80000FE03D800007E03F000007E03F00000
+7C01F000003C01E000003800E000001800C00025167F9528>I<FFE07FC0FFE07FC00F801C0007
+C0380003E0700003F0600001F8C00000F98000007F8000003F0000001F0000001F8000003FC000
+0037C0000063E00000C1F00001C0F8000380FC0007007E000E003E00FF80FFE0FF80FFE01B167F
+951E>I E /Fc 1 98 df<03CC0E2E181C381C301C701CE038E038E038E038C072C072C07260F2
+61341E180F107C8F14>97 D E /Fd 2 104 df<007001C0038007000700070007000700070007
+000700070007000700070007000E001C00F0001C000E0007000700070007000700070007000700
+07000700070007000700038001C000700C257D9B13>102 D<F0001C000E000700070007000700
+070007000700070007000700070007000700038001C0007001C003800700070007000700070007
+0007000700070007000700070007000E001C00F0000C257D9B13>I E /Fe
+34 122 df<00FC000182000703000607000E02000E00000E00000E00000E00000E0000FFFF000E
+07000E07000E07000E07000E07000E07000E07000E07000E07000E07000E07000E07000E07000E
+07007F0FE0131A809915>12 D<60F0F868080808101020C0050B7D990B>39
+D<60F0F07010101020204080040B7D830B>44 D<60F0F06004047D830B>46
+D<078018603030303060186018E01CE01CE01CE01CE01CE01CE01CE01CE01CE01CE01CE01C6018
+601870383030186007800E187E9713>48 D<0F8010E02070607870382038007800700070006000
+C00F8000E000700038003C003CE03CE03CC03C4038407030E00F800E187E9713>51
+D<60F0F060000000000000000060F0F0701010102020408004177D8F0B>59
+D<000C0000000C0000000C0000001E0000001E0000003F00000027000000270000004380000043
+8000004380000081C0000081C0000081C0000100E0000100E00001FFE000020070000200700006
+007800040038000400380008001C0008001C001C001E00FF00FFC01A1A7F991D>65
+D<FFFF000E01C00E00E00E00700E00780E00780E00780E00780E00780E00F00E00E00E03C00FFF
+800E01E00E00700E00780E003C0E003C0E003C0E003C0E003C0E00380E00780E00F00E01E0FFFF
+80161A7E991B>I<FFFFE00E00E00E00600E00200E00300E00100E00100E00100E04000E04000E
+04000E0C000FFC000E0C000E04000E04000E04000E00000E00000E00000E00000E00000E00000E
+00000E0000FFF000141A7E9919>70 D<FE01FF0F00380F00100B80100B801009C01008E01008E0
+10087010087010083810081C10081C10080E10080E100807100803900803900801D00801D00800
+F00800700800700800301C0030FF8010181A7E991D>78 D<0FC21836200E6006C006C002C002C0
+02E00070007E003FE01FF807FC003E000E00070003800380038003C002C006E004D81887E0101A
+7E9915>83 D<FEFEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
+C0C0FEFE07257D9B0B>91 D<FEFE06060606060606060606060606060606060606060606060606
+0606060606060606FEFE0725809B0B>93 D<3F8070C070E020700070007007F01C7030707070E0
+70E071E071E0F171FB1E3C10107E8F13>97 D<FC00001C00001C00001C00001C00001C00001C00
+001C00001C00001C00001CF8001F0E001E07001C03801C01801C01C01C01C01C01C01C01C01C01
+C01C01C01C03801C03001E07001B0C0010F000121A7F9915>I<07F80C1C381C30087000E000E0
+00E000E000E000E0007000300438080C1807E00E107F8F11>I<007E00000E00000E00000E0000
+0E00000E00000E00000E00000E00000E0003CE000C3E00380E00300E00700E00E00E00E00E00E0
+0E00E00E00E00E00E00E00600E00700E00381E001C2E0007CFC0121A7F9915>I<07C01C303018
+7018600CE00CFFFCE000E000E000E0006000300438080C1807E00E107F8F11>I<01F003180738
+0E100E000E000E000E000E000E00FFC00E000E000E000E000E000E000E000E000E000E000E000E
+000E000E007FE00D1A80990C>I<0FCE187330307038703870387038303018602FC02000600070
+003FF03FFC1FFE600FC003C003C003C0036006381C07E010187F8F13>I<18003C003C00180000
+0000000000000000000000FC001C001C001C001C001C001C001C001C001C001C001C001C001C00
+1C00FF80091A80990A>105 D<FC001C001C001C001C001C001C001C001C001C001C001C001C00
+1C001C001C001C001C001C001C001C001C001C001C001C00FF80091A80990A>108
+D<FC7C1F001D8E63801E0781C01E0781C01C0701C01C0701C01C0701C01C0701C01C0701C01C07
+01C01C0701C01C0701C01C0701C01C0701C01C0701C0FF9FE7F81D107F8F20>I<FCF8001D0C00
+1E0E001E0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E00
+FF9FC012107F8F15>I<07E01C38300C700E6006E007E007E007E007E007E0076006700E381C1C
+3807E010107F8F13>I<FCF8001F0E001E07001C03801C03801C01C01C01C01C01C01C01C01C01
+C01C01C01C03801C03001E07001F0C001CF0001C00001C00001C00001C00001C00001C0000FF80
+0012177F8F15>I<FCE01D701E701E201C001C001C001C001C001C001C001C001C001C001C00FF
+C00C107F8F0F>114 D<1F2060E04020C020C020F0007F003FC01FE000F080708030C030C020F0
+408F800C107F8F0F>I<0400040004000C000C001C003C00FFC01C001C001C001C001C001C001C
+001C001C201C201C201C201C200E4003800B177F960F>I<FC7E001C0E001C0E001C0E001C0E00
+1C0E001C0E001C0E001C0E001C0E001C0E001C0E001C0E001C1E000C2E0007CFC012107F8F15>
+I<FF1F803C06001C04001C04001E0C000E08000E080007100007100007900003A00003A00001C0
+0001C00001C00000800011107F8F14>I<FF3F803C1C001C18000E100007200007600003C00001
+C00001E00003E000027000043800083800181C00381E00FC3FC012107F8F14>120
+D<FF1F803C06001C04001C04001E0C000E08000E080007100007100007900003A00003A00001C0
+0001C00001C000008000008000010000010000E10000E20000E4000078000011177F8F14>I
+E /Ff 3 51 df<00C00000C00000C00000C00000C00000C00000C00000C00000C000FFFF80FFFF
+8000C00000C00000C00000C00000C00000C00000C00000C00000C00011147E8F17>43
+D<0C003C00CC000C000C000C000C000C000C000C000C000C000C000C000C00FF8009107E8F0F>
+49 D<1F00618040C08060C0600060006000C00180030006000C00102020207FC0FFC00B107F8F
+0F>I E /Fg 5 107 df<07E01FF83FFC7FFE7FFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFE7F
+FE3FFC1FF807E010127D9317>15 D<000000040000000002000000000200000000010000000000
+8000000000400000000020FFFFFFFFFCFFFFFFFFFC000000002000000000400000000080000000
+010000000002000000000200000000040026107D922D>33 D<000F0038006000E001C001C001C0
+01C001C001C001C001C001C001C001C001C001C001C001C0038007001E00F8001E000700038001
+C001C001C001C001C001C001C001C001C001C001C001C001C001C001C000E000600038000F102D
+7DA117>102 D<F8001E000700038001C001C001C001C001C001C001C001C001C001C001C001C0
+01C001C001C000E000600038000F0038006000E001C001C001C001C001C001C001C001C001C001
+C001C001C001C001C001C0038007001E00F800102D7DA117>I<C0C0C0C0C0C0C0C0C0C0C0C0C0
+C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0022D7BA10D>
+106 D E /Fh 2 51 df<03000700FF000700070007000700070007000700070007000700070007
+00070007000700070007007FF00C157E9412>49 D<0F8030E040708030C038E038403800380070
+0070006000C00180030006000C08080810183FF07FF0FFF00D157E9412>I
+E /Fi 44 121 df<387CFEFFFF7F3B030306060E0C18702008107C9F0F>39
+D<387CFEFEFE7C3807077C860F>46 D<00E00001E0000FE000FFE000F3E00003E00003E00003E0
+0003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E0
+0003E00003E00003E00003E00003E00003E000FFFF80FFFF80111D7C9C1A>49
+D<07F0001FFE00383F007C1F80FE0FC0FE0FC0FE0FE0FE07E07C07E03807E0000FE0000FC0000F
+C0001F80001F00003E0000780000F00000E00001C0000380600700600E00601C00E01FFFC03FFF
+C07FFFC0FFFFC0FFFFC0131D7D9C1A>I<01FC0007FF000E0F801E0FC03F07E03F07E03F07E03F
+07E01E0FC0000FC0000F80001F0001FC0001FC00000F800007C00003E00003F00003F83803F87C
+03F8FE03F8FE03F8FE03F0FC03F07807E03C0FC01FFF8003FC00151D7E9C1A>I<0001C00003C0
+0007C00007C0000FC0001FC0003BC00073C00063C000C3C00183C00383C00703C00E03C00C03C0
+1803C03803C07003C0E003C0FFFFFEFFFFFE0007C00007C00007C00007C00007C00007C000FFFE
+00FFFE171D7F9C1A>I<3803803FFF803FFF003FFE003FFC003FF0003F80003000003000003000
+0030000033F8003FFE003C1F00380F803007C00007C00007E00007E07807E0FC07E0FC07E0FC07
+E0FC07C0780FC0600F80381F001FFC0007F000131D7D9C1A>I<003F0001FFC007E0E00F81E01F
+03F01E03F03E03F07C03F07C01E07C0000FC1000FCFF00FDFFC0FD03E0FE01F0FE01F0FC01F8FC
+01F8FC01F8FC01F87C01F87C01F87C01F83C01F03E01F01E03E00F07C007FF8001FE00151D7E9C
+1A>I<6000007FFFF87FFFF87FFFF07FFFE07FFFE0E001C0C00380C00700C00E00000C00001C00
+00380000780000780000F00000F00000F00001F00001F00001F00003F00003F00003F00003F000
+03F00003F00003F00003F00001E000151E7D9D1A>I<01FC0007FF000E07801C01C01800E03800
+E03800E03C00E03F00E03FC1C01FE3801FFF000FFE0007FF8007FFC01FFFE03C3FF0780FF07803
+F8F001F8F000F8F00078F00078F000707800707C00E03E03C00FFF8003FC00151D7E9C1A>I<00
+00E000000000E000000001F000000001F000000001F000000003F800000003F800000006FC0000
+0006FC0000000EFE0000000C7E0000000C7E000000183F000000183F000000303F800000301F80
+0000701FC00000600FC00000600FC00000C007E00000FFFFE00001FFFFF000018003F000018003
+F000030001F800030001F800060001FC00060000FC000E0000FE00FFE00FFFE0FFE00FFFE0231F
+7E9E28>65 D<FFFFFE00FFFFFFC007C007E007C003F007C001F807C001FC07C001FC07C001FC07
+C001FC07C001FC07C001F807C003F807C007F007C00FE007FFFF8007FFFFC007C003F007C001F8
+07C001FC07C000FC07C000FE07C000FE07C000FE07C000FE07C000FE07C000FC07C001FC07C003
+F807C007F0FFFFFFE0FFFFFF001F1F7E9E25>I<0007FC02003FFF0E00FE03DE03F000FE07E000
+3E0FC0001E1F80001E3F00000E3F00000E7F0000067E0000067E000006FE000000FE000000FE00
+0000FE000000FE000000FE000000FE0000007E0000007E0000067F0000063F0000063F00000C1F
+80000C0FC0001807E0003803F0007000FE01C0003FFF800007FC001F1F7D9E26>I<FFFFFE0000
+FFFFFFC00007E007F00007E001F80007E000FC0007E0007E0007E0003F0007E0003F0007E0001F
+8007E0001F8007E0001F8007E0001FC007E0001FC007E0001FC007E0001FC007E0001FC007E000
+1FC007E0001FC007E0001FC007E0001FC007E0001F8007E0001F8007E0001F8007E0003F0007E0
+003F0007E0007E0007E000FC0007E001F80007E007F000FFFFFFC000FFFFFE0000221F7E9E28>
+I<FFFFFFE0FFFFFFE007E007E007E001E007E000E007E0006007E0007007E0003007E0003007E0
+603007E0603007E0600007E0E00007E1E00007FFE00007FFE00007E1E00007E0E00007E0600007
+E0600C07E0600C07E0000C07E0001807E0001807E0001807E0003807E0007807E000F807E003F0
+FFFFFFF0FFFFFFF01E1F7E9E22>I<FFFFFFE0FFFFFFE007E007E007E001E007E000E007E00060
+07E0007007E0003007E0003007E0603007E0603007E0600007E0E00007E1E00007FFE00007FFE0
+0007E1E00007E0E00007E0600007E0600007E0600007E0000007E0000007E0000007E0000007E0
+000007E0000007E0000007E00000FFFF8000FFFF80001C1F7E9E21>I<FFFFFFFF07E007E007E0
+07E007E007E007E007E007E007E007E007E007E007E007E007E007E007E007E007E007E007E007
+E007E007E007E007E0FFFFFFFF101F7E9E14>73 D<FFFF8000FFFF800007E0000007E0000007E0
+000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007
+E0000007E0000007E0000007E0000007E0000007E000C007E000C007E000C007E001C007E001C0
+07E001C007E0038007E0038007E00F8007E01F80FFFFFF80FFFFFF801A1F7E9E1F>76
+D<001FF80000FFFF0001F81F8007E007E00FC003F01F8001F81F0000F83F0000FC7F0000FE7E00
+007E7E00007EFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE
+00007F7E00007E7F0000FE7F0000FE3F0000FC3F8001FC1F8001F80FC003F007E007E001F81F80
+00FFFF00001FF800201F7D9E27>79 D<FFFFFE00FFFFFF8007E00FE007E003F007E001F807E001
+F807E001FC07E001FC07E001FC07E001FC07E001FC07E001F807E001F807E003F007E00FE007FF
+FF8007FFFE0007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007
+E0000007E0000007E0000007E00000FFFF0000FFFF00001E1F7E9E24>I<FFFFF80000FFFFFF00
+0007E01FC00007E007E00007E003F00007E003F00007E003F80007E003F80007E003F80007E003
+F80007E003F00007E003F00007E007E00007E01FC00007FFFF000007FFFC000007E03E000007E0
+1F000007E01F800007E00FC00007E00FC00007E00FC00007E00FE00007E00FE00007E00FE00007
+E00FE03007E00FF03007E00FF07007E007F860FFFF01FFE0FFFF007F80241F7E9E27>82
+D<03FC080FFF381E03F83800F8700078700038F00038F00018F00018F80000FC00007FC0007FFE
+003FFF801FFFE00FFFF007FFF000FFF80007F80000FC00007C00003CC0003CC0003CC0003CE000
+38E00078F80070FE01E0E7FFC081FF00161F7D9E1D>I<7FFFFFFC7FFFFFFC7C07E07C7007E01C
+6007E00C6007E00CE007E00EC007E006C007E006C007E006C007E0060007E0000007E0000007E0
+000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007
+E0000007E0000007E0000007E0000007E00003FFFFC003FFFFC01F1E7E9D24>I<07FC001FFF00
+3F0F803F07C03F03E03F03E00C03E00003E0007FE007FBE01F03E03C03E07C03E0F803E0F803E0
+F803E0FC05E07E0DE03FF9FE0FE07E17147F9319>97 D<FF0000FF00001F00001F00001F00001F
+00001F00001F00001F00001F00001F00001F00001F1FC01F7FF01FE0F81F807C1F007E1F003E1F
+003E1F003F1F003F1F003F1F003F1F003F1F003F1F003E1F003E1F007C1F807C1EC1F81C7FE018
+1F8018207E9F1D>I<01FE0007FF801F0FC03E0FC03E0FC07C0FC07C0300FC0000FC0000FC0000
+FC0000FC0000FC00007C00007E00003E00603F00C01F81C007FF0001FC0013147E9317>I<0007
+F80007F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F801F8F80FFE
+F81F83F83E01F87E00F87C00F87C00F8FC00F8FC00F8FC00F8FC00F8FC00F8FC00F87C00F87C00
+F87E00F83E01F81F07F80FFEFF03F8FF18207E9F1D>I<01FE0007FF801F83E03F01F07E00F07E
+00F8FC00F8FC00F8FFFFF8FFFFF8FC0000FC0000FC00007C00007E00003E00183F00380F807007
+FFE000FF8015147F9318>I<001F8000FFC001F3E003E7E003C7E007C7E007C3C007C00007C000
+07C00007C00007C000FFFC00FFFC0007C00007C00007C00007C00007C00007C00007C00007C000
+07C00007C00007C00007C00007C00007C00007C00007C0003FFC003FFC0013207F9F10>I<01FC
+3C07FFFE0F079E1E03DE3E03E03E03E03E03E03E03E03E03E01E03C00F07800FFF0009FC001800
+001800001C00001FFF800FFFF007FFF81FFFFC3C007C70003EF0001EF0001EF0001E78003C7800
+3C3F01F80FFFE001FF00171E7F931A>I<FF0000FF00001F00001F00001F00001F00001F00001F
+00001F00001F00001F00001F00001F0FC01F3FE01F61F01FC0F81F80F81F00F81F00F81F00F81F
+00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F8FFE3FFFFE3FF18207D9F
+1D>I<1C003F007F007F007F003F001C00000000000000000000000000FF00FF001F001F001F00
+1F001F001F001F001F001F001F001F001F001F001F001F001F00FFE0FFE00B217EA00E>I<FF00
+00FF00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F01FE1F01
+FE1F00F01F01C01F03801F07001F1E001F38001F7C001FFE001FFF001F1F001E0F801E07C01E07
+E01E03F01E01F01E00F8FFC3FFFFC3FF18207E9F1C>107 D<FF00FF001F001F001F001F001F00
+1F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F001F
+001F001F001F00FFE0FFE00B207E9F0E>I<FE0FE03F80FE1FF07FC01E70F9C3E01E407D01F01E
+807E01F01F807E01F01F007C01F01F007C01F01F007C01F01F007C01F01F007C01F01F007C01F0
+1F007C01F01F007C01F01F007C01F01F007C01F01F007C01F01F007C01F0FFE3FF8FFEFFE3FF8F
+FE27147D932E>I<FE0FC0FE3FE01E61F01EC0F81E80F81F00F81F00F81F00F81F00F81F00F81F
+00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F8FFE3FFFFE3FF18147D931D>I<01FF00
+07FFC01F83F03E00F83E00F87C007C7C007CFC007EFC007EFC007EFC007EFC007EFC007E7C007C
+7C007C3E00F83E00F81F83F007FFC001FF0017147F931A>I<FF1FC0FF7FF01FE1F81F80FC1F00
+7E1F007E1F003E1F003F1F003F1F003F1F003F1F003F1F003F1F003E1F007E1F007C1F80FC1FC1
+F81F7FE01F1F801F00001F00001F00001F00001F00001F00001F0000FFE000FFE000181D7E931D
+>I<FE3E00FE7F801ECFC01E8FC01E8FC01F8FC01F03001F00001F00001F00001F00001F00001F
+00001F00001F00001F00001F00001F0000FFF000FFF00012147E9316>114
+D<0FE63FFE701E600EE006E006F800FFC07FF83FFC1FFE03FE001FC007C007E007F006F81EFFFC
+C7F010147E9315>I<01800180018003800380038007800F803F80FFFCFFFC0F800F800F800F80
+0F800F800F800F800F800F800F860F860F860F860F8607CC03F801F00F1D7F9C14>I<FF07F8FF
+07F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F
+00F81F01F81F01F80F06F807FCFF03F8FF18147D931D>I<FFE7FE1FE0FFE7FE1FE01F00F00700
+1F00F803000F80F806000F80F8060007C1BC0C0007C1BC0C0007C1BE0C0003E31E180003E31E18
+0001F60F300001F60F300001F60FB00000FC07E00000FC07E000007803C000007803C000007803
+C000003001800023147F9326>119 D<FFE1FF00FFE1FF000F80700007C0E00007E0C00003E180
+0001F3800000FF0000007E0000003E0000003F0000007F8000006F800000C7C0000183E0000381
+F0000701F8000E00FC00FF81FF80FF81FF8019147F931C>I E /Fj 73 127
+df<70F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F870000000000070F8F8F870051C779B18>33
+D<4010E038F078E038E038E038E038E038E038E038E038E038E03860300D0E7B9C18>I<030600
+078F00078F00078F00078F00078F00078F007FFFC0FFFFE0FFFFE07FFFC00F1E000F1E000F1E00
+0F1E000F1E000F1E007FFFC0FFFFE0FFFFE07FFFC01E3C001E3C001E3C001E3C001E3C001E3C00
+0C1800131C7E9B18>I<3803007C07807C0780EE0F80EE0F00EE0F00EE1F00EE1E00EE1E00EE3E
+007C3C007C3C00387C0000780000780000F80000F00001F00001E00001E00003E00003C00003C0
+0007C0000783800787C00F87C00F0EE00F0EE01F0EE01E0EE01E0EE03E0EE03C07C03C07C01803
+8013247E9F18>37 D<387C7C7E3E0E0E0E1C1C38F8F0C0070E789B18>39
+D<007000F001E003C007800F001E001C00380038007000700070007000E000E000E000E000E000
+E000E000E0007000700070007000380038001C001E000F00078003C001F000F000700C24799F18
+>I<6000F00078003C001E000F000780038001C001C000E000E000E000E0007000700070007000
+7000700070007000E000E000E000E001C001C0038007800F001E003C007800F00060000C247C9F
+18>I<01C00001C00001C00001C000C1C180F1C780F9CF807FFF001FFC0007F00007F0001FFC00
+7FFF00F9CF80F1C780C1C18001C00001C00001C00001C00011147D9718>I<00600000F00000F0
+0000F00000F00000F00000F00000F0007FFFC0FFFFE0FFFFE07FFFC000F00000F00000F00000F0
+0000F00000F00000F00000600013147E9718>I<1C3E7E7F3F1F070E1E7CF860080C788518>I<7F
+FF00FFFF80FFFF807FFF0011047D8F18>I<3078FCFC78300606778518>I<000300000780000780
+000F80000F00001F00001E00001E00003E00003C00007C0000780000780000F80000F00001F000
+01E00003E00003C00003C00007C0000780000F80000F00000F00001F00001E00003E00003C0000
+3C00007C0000780000F80000F00000F0000060000011247D9F18>I<01F00007FC000FFE001F1F
+001C07003803807803C07001C07001C0E000E0E000E0E000E0E000E0E000E0E000E0E000E0E000
+E0E000E0F001E07001C07001C07803C03803801C07001F1F000FFE0007FC0001F000131C7E9B18
+>I<01800380038007800F803F80FF80FB80438003800380038003800380038003800380038003
+800380038003800380038003807FFCFFFE7FFC0F1C7B9B18>I<03F0000FFE003FFF007C0F8070
+03C0E001C0F000E0F000E06000E00000E00000E00001C00001C00003C0000780000F00001E0000
+3C0000780000F00001E00007C0000F80001E00E03C00E07FFFE0FFFFE07FFFE0131C7E9B18>I<
+07F8001FFE003FFF007807807803C07801C03001C00001C00003C0000380000F0003FF0003FE00
+03FF000007800003C00001C00000E00000E00000E0F000E0F000E0F001C0F003C07C07803FFF00
+1FFE0003F800131C7E9B18>I<001F00003F0000770000770000E70001E70001C7000387000787
+000707000E07001E07003C0700380700780700F00700FFFFF8FFFFF8FFFFF80007000007000007
+00000700000700000700007FF000FFF8007FF0151C7F9B18>I<1FFF803FFF803FFF8038000038
+00003800003800003800003800003800003800003BF8003FFE003FFF003C07801803C00001C000
+00E00000E06000E0F000E0F000E0E001C07003C07C0F803FFF001FFC0003F000131C7E9B18>I<
+E00000FFFFE0FFFFE0FFFFE0E003C0E00780000700000E00001E00001C00003800003800007000
+00700000E00000E00000E00001C00001C00001C00001C00003C000038000038000038000038000
+038000038000038000131D7E9C18>55 D<3078FCFC783000000000000000003078FCFC78300614
+779318>58 D<183C7E7E3C180000000000000000183C7E7E3E1E0E1C3C78F060071A789318>I<
+000300000780001F80003F00007E0001FC0003F00007E0001FC0003F00007E0000FC0000FC0000
+7E00003F00001FC00007E00003F00001FC00007E00003F00001F8000078000030011187D9918>
+I<7FFFC0FFFFE0FFFFE0FFFFE0000000000000000000000000FFFFE0FFFFE0FFFFE07FFFC0130C
+7E9318>I<600000F00000FC00007E00003F00001FC00007E00003F00001FC00007E00003F0000
+1F80001F80003F00007E0001FC0003F00007E0001FC0003F00007E0000FC0000F0000060000011
+187D9918>I<0FF0003FFC007FFF00700F00F00380F00380600780000F00003E00007C0001F000
+01E00003C00003C00003C00003C00003C000038000000000000000000000000000000000038000
+07C00007C00007C000038000111C7D9B18>I<007C0001FE0007FF000F87801E03C03C1DC0387F
+C070FFE071E3E071C1E0E1C1E0E380E0E380E0E380E0E380E0E380E0E380E0E1C1C071C1C071E3
+C070FF80387F003C1C001E00E00F83E007FFC001FF80007E00131C7E9B18>I<00700000F80000
+F80000D80000D80001DC0001DC0001DC00018C00038E00038E00038E00038E0003060007070007
+07000707000707000FFF800FFF800FFF800E03800E03801C01C01C01C07F07F0FF8FF87F07F015
+1C7F9B18>I<00F8E003FEE007FFE00F07E01E03E03C01E03800E07000E07000E0700000E00000
+E00000E00000E00000E00000E00000E00000E000007000007000E07000E03800E03C00E01E01C0
+0F07C007FF8003FE0000F800131C7E9B18>67 D<FFFFF0FFFFF0FFFFF01C00701C00701C00701C
+00701C00001C00001C0E001C0E001C0E001FFE001FFE001FFE001C0E001C0E001C0E001C00001C
+00001C00381C00381C00381C00381C0038FFFFF8FFFFF8FFFFF8151C7F9B18>69
+D<FFFFE0FFFFE0FFFFE01C00E01C00E01C00E01C00E01C00001C00001C1C001C1C001C1C001FFC
+001FFC001FFC001C1C001C1C001C1C001C00001C00001C00001C00001C00001C00001C0000FFC0
+00FFC000FFC000131C7E9B18>I<01F1C003FDC00FFFC01F0FC01C03C03803C03801C07001C070
+01C0700000E00000E00000E00000E00000E00000E00FF0E01FF0E00FF07001C07001C07003C038
+03C03803C01C07C01F0FC00FFFC003FDC001F1C0141C7E9B18>I<7FFF00FFFF807FFF0001C000
+01C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C000
+01C00001C00001C00001C00001C00001C00001C00001C0007FFF00FFFF807FFF00111C7D9B18>
+73 D<7FE000FFE0007FE0000E00000E00000E00000E00000E00000E00000E00000E00000E0000
+0E00000E00000E00000E00000E00000E00000E00000E00000E00700E00700E00700E00700E0070
+7FFFF0FFFFF07FFFF0141C7F9B18>76 D<FC01F8FE03F8FE03F83B06E03B06E03B06E03B06E03B
+8EE03B8EE0398CE0398CE039DCE039DCE039DCE038D8E038D8E038F8E03870E03870E03800E038
+00E03800E03800E03800E03800E0FE03F8FE03F8FE03F8151C7F9B18>I<7E07F0FF0FF87F07F0
+1D81C01D81C01D81C01DC1C01CC1C01CC1C01CE1C01CE1C01CE1C01C61C01C71C01C71C01C31C0
+1C39C01C39C01C39C01C19C01C19C01C1DC01C0DC01C0DC01C0DC07F07C0FF87C07F03C0151C7F
+9B18>I<0FF8003FFE007FFF00780F00700700F00780E00380E00380E00380E00380E00380E003
+80E00380E00380E00380E00380E00380E00380E00380E00380E00380E00380F00780700700780F
+007FFF003FFE000FF800111C7D9B18>I<FF07F8FF07F8FF07F81C01C01C01C01C01C01C01C00E
+03800E03800E03800E03800F0780070700070700070700070700038E00038E00038E00038E0001
+8C0001DC0001DC0001DC0000D80000F80000F800007000151C7F9B18>86
+D<3FFFE07FFFE07FFFE07001C07003C0700780700700000F00001E00001C00003C000078000070
+0000F00001E00001C00003C0000780000700000F00001E00E01C00E03C00E07800E07000E0FFFF
+E0FFFFE0FFFFE0131C7E9B18>90 D<FFF8FFF8FFF8E000E000E000E000E000E000E000E000E000
+E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
+00E000FFF8FFF8FFF80D24779F18>I<600000F00000F00000F800007800007C00003C00003C00
+003E00001E00001F00000F00000F00000F800007800007C00003C00003C00003E00001E00001F0
+0000F00000F800007800007800007C00003C00003E00001E00001E00001F00000F00000F800007
+8000078000030011247D9F18>I<FFF8FFF8FFF800380038003800380038003800380038003800
+380038003800380038003800380038003800380038003800380038003800380038003800380038
+0038FFF8FFF8FFF80D247F9F18>I<7FFF00FFFF80FFFF807FFF0011047D7F18>95
+D<061E3E387070E0E0E0F8FC7C7C38070E789E18>I<1FE0003FF8007FFC00781E00300E000007
+0000070000FF0007FF001FFF007F0700780700E00700E00700E00700F00F00781F003FFFF01FFB
+F007E1F014147D9318>I<7E0000FE00007E00000E00000E00000E00000E00000E00000E3E000E
+FF800FFFC00FC1E00F80E00F00700E00700E00380E00380E00380E00380E00380E00380F00700F
+00700F80E00FC1E00FFFC00EFF80063E00151C809B18>I<01FE0007FF001FFF803E0780380300
+700000700000E00000E00000E00000E00000E00000E000007000007001C03801C03E03C01FFF80
+07FF0001FC0012147D9318>I<001F80003F80001F8000038000038000038000038000038003E3
+800FFB801FFF803C1F80380F80700780700380E00380E00380E00380E00380E00380E003807007
+80700780380F803C1F801FFFF00FFBF803E3F0151C7E9B18>I<01F00007FC001FFE003E0F0038
+0780700380700380E001C0E001C0FFFFC0FFFFC0FFFFC0E000007000007001C03801C03E03C01F
+FF8007FF0001FC0012147D9318>I<001F80007FC000FFE000E1E001C0C001C00001C00001C000
+7FFFC0FFFFC0FFFFC001C00001C00001C00001C00001C00001C00001C00001C00001C00001C000
+01C00001C00001C00001C0007FFF007FFF007FFF00131C7F9B18>I<01E1F007FFF80FFFF81E1E
+301C0E003807003807003807003807003807001C0E001E1E001FFC001FF80039E0003800001C00
+001FFE001FFFC03FFFE07801F0700070E00038E00038E00038E000387800F07E03F01FFFC00FFF
+8001FC00151F7F9318>I<7E0000FE00007E00000E00000E00000E00000E00000E00000E3E000E
+FF800FFFC00FC1C00F80E00F00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E
+00E00E00E00E00E07FC3FCFFE7FE7FC3FC171C809B18>I<03800007C00007C00007C000038000
+0000000000000000000000007FC000FFC0007FC00001C00001C00001C00001C00001C00001C000
+01C00001C00001C00001C00001C00001C00001C00001C000FFFF00FFFF80FFFF00111D7C9C18>
+I<0038007C007C007C003800000000000000000FFC1FFC0FFC001C001C001C001C001C001C001C
+001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C6038F078FFF07FE03F
+800E277E9C18>I<FE0000FE0000FE00000E00000E00000E00000E00000E00000E3FF00E7FF00E
+3FF00E07800E0F000E1E000E3C000E78000EF0000FF8000FFC000F9C000F0E000E0F000E07000E
+03800E03C0FFC7F8FFC7F8FFC7F8151C7F9B18>I<7FE000FFE0007FE00000E00000E00000E000
+00E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E000
+00E00000E00000E00000E00000E00000E0007FFFC0FFFFE07FFFC0131C7E9B18>I<7CE0E000FF
+FBF8007FFFF8001F1F1C001E1E1C001E1E1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C00
+1C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C007F1F1F00FFBFBF807F1F1F00191481
+9318>I<7E3E00FEFF807FFFC00FC1C00F80E00F00E00E00E00E00E00E00E00E00E00E00E00E00
+E00E00E00E00E00E00E00E00E00E00E07FC3FCFFE7FE7FC3FC1714809318>I<01F0000FFE001F
+FF003E0F803803807001C07001C0E000E0E000E0E000E0E000E0E000E0F001E07001C07803C03C
+07803E0F801FFF000FFE0001F00013147E9318>I<7E3E00FEFF807FFFC00FC1E00F80E00F0070
+0E00700E00380E00380E00380E00380E00380E00380F00700F00700F80E00FC1E00FFFC00EFF80
+0E3E000E00000E00000E00000E00000E00000E00000E00007FC000FFE0007FC000151E809318>
+I<01E38007FB801FFF803E1F80380F80700780700780E00380E00380E00380E00380E00380E003
+80700780700780380F803C1F801FFF800FFB8003E3800003800003800003800003800003800003
+80000380003FF8003FF8003FF8151E7E9318>I<7F87E0FF9FF07FBFF803F87803F03003E00003
+C00003C0000380000380000380000380000380000380000380000380000380007FFE00FFFF007F
+FE0015147F9318>I<07F7003FFF007FFF00780F00E00700E00700E007007C00007FE0001FFC00
+03FE00001F00600780E00380E00380F00380F80F00FFFF00FFFC00E7F00011147D9318>I<0180
+000380000380000380000380007FFFC0FFFFC0FFFFC00380000380000380000380000380000380
+000380000380000380000380400380E00380E00380E001C1C001FFC000FF80003E0013197F9818
+>I<7E07E0FE0FE07E07E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E
+00E00E00E00E00E00E01E00F03E007FFFC03FFFE01FCFC1714809318>I<7F8FF0FF8FF87F8FF0
+1E03C00E03800E03800E0380070700070700070700038E00038E00038E00038E0001DC0001DC00
+01DC0000F80000F80000700015147F9318>I<FF8FF8FF8FF8FF8FF83800E03800E03800E01C01
+C01C01C01C71C01CF9C01CF9C01CD9C01CD9C00DDD800DDD800DDD800D8D800F8F800F8F800707
+0015147F9318>I<7F8FF07F9FF07F8FF0070700078E00039E0001DC0001F80000F80000700000
+F00000F80001DC00039E00038E000707000F07807F8FF0FF8FF87F8FF015147F9318>I<7F8FF0
+FF8FF87F8FF00E01C00E03800E0380070380070700070700038700038600038E0001CE0001CE00
+00CC0000CC0000DC0000780000780000780000700000700000700000F00000E00079E0007BC000
+7F80003F00001E0000151E7F9318>I<0007E0001FE0007FE000780000E00000E00000E00000E0
+0000E00000E00000E00000E00000E00000E00000E00001E0007FC000FF8000FF80007FC00001E0
+0000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E000007800007F
+E0001FE00007E013247E9F18>123 D<60F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
+F0F0F0F0F0F0F0F0F0F0F0F0600424769F18>I<7C0000FF0000FFC00003C00000E00000E00000
+E00000E00000E00000E00000E00000E00000E00000E00000E00000F000007FC0003FE0003FE000
+7FC000F00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00003
+C000FFC000FF00007C000013247E9F18>I<060C1F1E3FBEFBF8F1F060C00F067C9B18>I
+E /Fk 27 121 df<00003FE00000E0100001803800038078000300780007003000070000000700
+0000070000000E0000000E0000000E000000FFFFE0000E00E0001C01C0001C01C0001C01C0001C
+01C0001C03800038038000380380003803800038070000380700007007000070071000700E2000
+700E2000700E2000E00E2000E0064000E0038000E0000000C0000001C0000001C0000031800000
+79800000F3000000620000003C0000001D29829F1A>12 D<00003FC0FF800000E0E38040000181
+E600E0000381EC01E0000300DC01E00007001C00C0000700180000000700380000000E00380000
+000E00380000000E00380000000E0070000000FFFFFFFF80001C00700380001C00700700001C00
+700700001C00700700001C00E00700001C00E00E00003800E00E00003800E00E00003800E00E00
+003801C01C00003801C01C00007001C01C00007001C01C40007001C03880007003803880007003
+80388000E00380388000E00380190000E003000E0000E00700000000C00700000001C006000000
+01C00600000031860E000000798F0C000000F31E18000000620C300000003C07C00000002B2982
+9F28>14 D<0E1F3F3F1D0102020404081020C0080E779F0E>39 D<000200020006000E003C00DC
+031C001C0038003800380038007000700070007000E000E000E000E001C001C001C001C0038003
+80038003800780FFF80F1E7B9D17>49 D<0000FE0200078186001C004C0038003C0060003C00C0
+001C01C0001803800018070000180F0000181E0000101E0000103C0000003C0000007800000078
+0000007800000078000000F0000000F0000000F0000000F0000000F00000807000008070000080
+700001003800010038000200180004000C001800060020000381C00000FE00001F217A9F21>67
+D<01FF007FE0001F000F00001F0004000017800400001780040000278008000023C008000023C0
+08000023C008000041E010000041E010000041F010000040F010000080F0200000807820000080
+782000008078200001003C400001003C400001003C400001001E400002001E800002001E800002
+000F800002000F800004000F0000040007000004000700000C000700001C00020000FF80020000
+231F7D9E22>78 D<00F1800389C00707800E03801C03803C0380380700780700780700780700F0
+0E00F00E00F00E00F00E20F01C40F01C40703C40705C40308C800F070013147C9317>97
+D<07803F8007000700070007000E000E000E000E001C001C001CF01D0C3A0E3C0E380F380F700F
+700F700F700FE01EE01EE01EE01CE03CE038607060E031C01F0010207B9F15>I<007E0001C100
+0300800E07801E07801C07003C0200780000780000780000F00000F00000F00000F00000F00000
+70010070020030040018380007C00011147C9315>I<0000780003F80000700000700000700000
+700000E00000E00000E00000E00001C00001C000F1C00389C00707800E03801C03803C03803807
+00780700780700780700F00E00F00E00F00E00F00E20F01C40F01C40703C40705C40308C800F07
+0015207C9F17>I<007C01C207010E011C013C013802780C7BF07C00F000F000F000F000700070
+0170023804183807C010147C9315>I<00007800019C00033C00033C000718000700000700000E
+00000E00000E00000E00000E0001FFE0001C00001C00001C00001C000038000038000038000038
+0000380000700000700000700000700000700000700000E00000E00000E00000E00000C00001C0
+0001C0000180003180007B0000F300006600003C00001629829F0E>I<003C6000E27001C1E003
+80E00700E00F00E00E01C01E01C01E01C01E01C03C03803C03803C03803C03803C07003C07001C
+0F001C17000C2E0003CE00000E00000E00001C00001C00301C00783800F0700060E0003F800014
+1D7E9315>I<00C001E001E001C000000000000000000000000000000E00330023004380430047
+0087000E000E000E001C001C001C003840388030807080310033001C000B1F7C9E0E>105
+D<0001800003C00003C0000380000000000000000000000000000000000000000000003C000046
+00008700008700010700010700020E00000E00000E00000E00001C00001C00001C00001C000038
+0000380000380000380000700000700000700000700000E00000E00030E00079C000F180006300
+003C00001228829E0E>I<01E0000FE00001C00001C00001C00001C00003800003800003800003
+80000700000700000703C00704200E08E00E11E00E21E00E40C01C80001D00001E00001FC00038
+E000387000387000383840707080707080707080703100E03100601E0013207D9F15>I<03C01F
+C0038003800380038007000700070007000E000E000E000E001C001C001C001C00380038003800
+38007000700070007100E200E200E200E200640038000A207C9F0C>I<1C0F80F0002630C31800
+4740640C004780680E004700700E004700700E008E00E01C000E00E01C000E00E01C000E00E01C
+001C01C038001C01C038001C01C038001C01C0708038038071003803806100380380E100380380
+62007007006600300300380021147C9325>I<1C0F802630C04740604780604700704700708E00
+E00E00E00E00E00E00E01C01C01C01C01C01C01C03843803883803083807083803107003303001
+C016147C931A>I<007C0001C3000301800E01C01E01C01C01E03C01E07801E07801E07801E0F0
+03C0F003C0F003C0F00780F00700700F00700E0030180018700007C00013147C9317>I<01C1E0
+02621804741C04781C04701E04701E08E01E00E01E00E01E00E01E01C03C01C03C01C03C01C038
+0380780380700380E003C1C0072380071E000700000700000E00000E00000E00000E00001C0000
+1C0000FFC000171D809317>I<1C1E002661004783804787804707804703008E00000E00000E00
+000E00001C00001C00001C00001C000038000038000038000038000070000030000011147C9313
+>114 D<00FC030206010C030C070C060C000F800FF007F803FC003E000E700EF00CF00CE00840
+1020601F8010147D9313>I<018001C0038003800380038007000700FFF007000E000E000E000E
+001C001C001C001C003800380038003820704070407080708031001E000C1C7C9B0F>I<0E00C0
+3300E02301C04381C04301C04701C08703800E03800E03800E03801C07001C07001C07001C0710
+1C0E20180E20180E201C1E200C264007C38014147C9318>I<0E03803307802307C04383C04301
+C04700C08700800E00800E00800E00801C01001C01001C01001C02001C02001C04001C04001C08
+000E300003C00012147C9315>I<0383800CC4401068E01071E02071E02070C040E00000E00000
+E00000E00001C00001C00001C00001C040638080F38080F38100E5810084C60078780013147D93
+15>120 D E /Fl 40 122 df<0001FF0000001FFFC000007F80F00000FE00F80003FC01FC0003
+F803FC0007F003FC0007F003FC0007F003FC0007F001F80007F000F00007F000000007F0000000
+07F000000007F0000000FFFFFFFC00FFFFFFFC00FFFFFFFC0007F001FC0007F001FC0007F001FC
+0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001
+FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F001FC0007F0
+01FC0007F001FC0007F001FC007FFF1FFFC07FFF1FFFC07FFF1FFFC0222A7FA926>12
+D<000E00001E00007E0007FE00FFFE00FFFE00F8FE0000FE0000FE0000FE0000FE0000FE0000FE
+0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE
+0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE007FFFFE7FFFFE7FFF
+FE17277BA622>49 D<00FF800003FFF0000FFFFC003F03FF007C00FF807C007FC0FE007FC0FF00
+3FE0FF003FE0FF003FE0FF001FE07E001FE03C003FE000003FE000003FC000003FC000007F8000
+007F800000FF000001FE000001FC000003F0000007E000000FC000001F0000003E0000007C00E0
+007800E000F000E001E001C0038001C0070001C00FFFFFC01FFFFFC03FFFFFC07FFFFFC0FFFFFF
+80FFFFFF80FFFFFF801B277DA622>I<007F800003FFF00007FFFC001F81FE001F00FF003F80FF
+003F807F803FC07F803F807F803F807F801F007F800000FF800000FF000000FF000001FE000003
+F8000007F00000FFC00000FFF0000001FC000000FF0000007F8000007FC000003FC000003FE000
+003FE000003FE03C003FE07E003FE0FF003FE0FF003FE0FF003FC0FF007FC0FE007F807C00FF80
+3F01FF001FFFFC0007FFF00000FF80001B277DA622>I<00000E0000001E0000003E0000007E00
+0000FE000000FE000001FE000003FE0000077E00000E7E00000E7E00001C7E0000387E0000707E
+0000E07E0000E07E0001C07E0003807E0007007E000E007E000E007E001C007E0038007E007000
+7E00E0007E00FFFFFFF8FFFFFFF8FFFFFFF80000FE000000FE000000FE000000FE000000FE0000
+00FE000000FE000000FE00007FFFF8007FFFF8007FFFF81D277EA622>I<0C0003000F803F000F
+FFFE000FFFFE000FFFFC000FFFF8000FFFE0000FFFC0000FFE00000E0000000E0000000E000000
+0E0000000E0000000E0000000E7FC0000FFFF8000F80FE000E007F000C003F8000003F8000001F
+C000001FC000001FE000001FE018001FE07E001FE0FE001FE0FE001FE0FE001FE0FE001FE0FE00
+1FC078003FC078003F803C007F001F01FE000FFFFC0003FFF00000FF80001B277DA622>I<0007
+F000003FFC0000FFFF0001FC0F0007F01F800FE03F800FC03F801FC03F803F803F803F801F007F
+8000007F0000007F0000007F000000FF000000FF0FC000FF3FF800FF70FE00FFE03F00FFC03F80
+FF801FC0FF801FC0FF801FC0FF001FE0FF001FE0FF001FE0FF001FE07F001FE07F001FE07F001F
+E07F001FE03F801FC03F801FC01F803F800FC03F8007E0FF0003FFFC0000FFF000003FC0001B27
+7DA622>I<380000003E0000003FFFFFF03FFFFFF03FFFFFF07FFFFFE07FFFFFC07FFFFFC07FFF
+FF8070000F0070001E0070003C00E0003800E0007800E000F0000001E0000003C0000003C00000
+07800000078000000F0000001F0000001F0000001F0000003F0000003F0000003E0000007E0000
+007E0000007E0000007E000000FE000000FE000000FE000000FE000000FE000000FE000000FE00
+0000FE000000FE0000003800001C297CA822>I<000003800000000007C00000000007C0000000
+000FE0000000000FE0000000000FE0000000001FF0000000001FF0000000003FF8000000003FF8
+000000003FF80000000073FC0000000073FC00000000F3FE00000000E1FE00000000E1FE000000
+01C0FF00000001C0FF00000003C0FF80000003807F80000007807FC0000007003FC0000007003F
+C000000E003FE000000E001FE000001E001FF000001C000FF000001FFFFFF000003FFFFFF80000
+3FFFFFF80000780007FC0000700003FC0000700003FC0000E00001FE0000E00001FE0001E00001
+FF0001C00000FF0001C00000FF00FFFE001FFFFEFFFE001FFFFEFFFE001FFFFE2F297EA834>65
+D<FFFFFFFFE0FFFFFFFFE0FFFFFFFFE003FC001FE003FC0007F003FC0001F003FC0001F003FC00
+00F003FC00007003FC00007003FC00007003FC01C07803FC01C03803FC01C03803FC01C03803FC
+03C00003FC03C00003FC0FC00003FFFFC00003FFFFC00003FFFFC00003FC0FC00003FC03C00003
+FC03C00003FC01C00E03FC01C00E03FC01C00E03FC01C01C03FC00001C03FC00001C03FC00001C
+03FC00003C03FC00003803FC00007803FC0000F803FC0001F803FC0003F803FC001FF8FFFFFFFF
+F0FFFFFFFFF0FFFFFFFFF027297DA82D>69 D<FFFFFFFFC0FFFFFFFFC0FFFFFFFFC003FC003FC0
+03FC000FE003FC0003E003FC0001E003FC0001E003FC0000E003FC0000E003FC0000E003FC0000
+F003FC03807003FC03807003FC03807003FC03800003FC07800003FC07800003FC1F800003FFFF
+800003FFFF800003FFFF800003FC1F800003FC07800003FC07800003FC03800003FC03800003FC
+03800003FC03800003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003
+FC00000003FC00000003FC000000FFFFFC0000FFFFFC0000FFFFFC000024297DA82B>I<FFFFFC
+FFFFFCFFFFFC01FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE00
+01FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE00
+01FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE00FFFFFCFFFFFC
+FFFFFC16297EA81A>73 D<FFFFFC0000FFFFFC0000FFFFFC000003FC00000003FC00000003FC00
+000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC
+00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003
+FC00000003FC00000003FC00000003FC0001C003FC0001C003FC0001C003FC0001C003FC0003C0
+03FC00038003FC00038003FC00078003FC00078003FC000F8003FC000F8003FC001F8003FC007F
+8003FC01FF00FFFFFFFF00FFFFFFFF00FFFFFFFF0022297DA829>76 D<FFFE0000001FFFC0FFFE
+0000001FFFC0FFFF0000003FFFC003FF0000003FF00003FF0000003FF00003BF80000077F00003
+BF80000077F000039FC00000E7F000039FC00000E7F000038FE00001C7F000038FE00001C7F000
+0387F0000387F0000387F0000387F0000387F0000387F0000383F8000707F0000383F8000707F0
+000381FC000E07F0000381FC000E07F0000380FE001C07F0000380FE001C07F0000380FF003807
+F00003807F003807F00003807F003807F00003803F807007F00003803F807007F00003801FC0E0
+07F00003801FC0E007F00003800FE1C007F00003800FE1C007F00003800FE1C007F000038007F3
+8007F000038007F38007F000038003FF0007F000038003FF0007F000038001FE0007F000038001
+FE0007F000038000FC0007F000038000FC0007F000FFFE00FC01FFFFC0FFFE007801FFFFC0FFFE
+007801FFFFC03A297DA841>I<FFFFFFF800FFFFFFFF00FFFFFFFFC003FC003FE003FC000FF003
+FC0007F803FC0007FC03FC0003FC03FC0003FE03FC0003FE03FC0003FE03FC0003FE03FC0003FE
+03FC0003FE03FC0003FE03FC0003FC03FC0007FC03FC0007F803FC000FF003FC003FE003FFFFFF
+8003FFFFFE0003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00
+000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC00000003FC
+00000003FC000000FFFFF00000FFFFF00000FFFFF0000027297DA82F>80
+D<007F806003FFF0E00FFFFFE01F807FE03F001FE07E0007E07E0003E07C0003E0FC0001E0FC00
+01E0FC0000E0FE0000E0FE0000E0FF000000FFC000007FFE00007FFFE0003FFFFC003FFFFF001F
+FFFF8007FFFFC003FFFFE000FFFFF00007FFF000007FF000000FF8000007F8000003F8E00003F8
+E00001F8E00001F8E00001F8F00001F8F00001F0F80003F0FC0003E0FF0007E0FFE01FC0FFFFFF
+00E0FFFE00C01FF0001D297CA826>83 D<7FFFFFFFFFC07FFFFFFFFFC07FFFFFFFFFC07F803FC0
+3FC07E003FC007C078003FC003C078003FC003C070003FC001C0F0003FC001E0F0003FC001E0E0
+003FC000E0E0003FC000E0E0003FC000E0E0003FC000E0E0003FC000E000003FC0000000003FC0
+000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000
+003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0
+000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000003FC0000000
+003FC00000007FFFFFE000007FFFFFE000007FFFFFE0002B287EA730>I<01FF800007FFF0000F
+81FC001FC0FE001FC07F001FC07F001FC03F800F803F8000003F8000003F8000003F80000FFF80
+00FFFF8007FC3F801FE03F803F803F807F803F807F003F80FE003F80FE003F80FE003F80FE007F
+80FF007F807F00FFC03F83DFFC0FFF0FFC01FC03FC1E1B7E9A21>97 D<FFE0000000FFE0000000
+FFE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000
+000FE00000000FE00000000FE00000000FE00000000FE00000000FE1FE00000FE7FF80000FFE07
+E0000FF803F8000FF001FC000FE000FE000FE000FE000FE0007F000FE0007F000FE0007F800FE0
+007F800FE0007F800FE0007F800FE0007F800FE0007F800FE0007F800FE0007F800FE0007F800F
+E0007F000FE000FF000FE000FE000FF000FE000FF001FC000FF803F8000F9E07E0000F0FFF8000
+0E01FC0000212A7EA926>I<001FF80000FFFE0003F01F000FE03F801FC03F803F803F803F803F
+807F801F007F000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
+0000FF0000007F0000007F8000003F8001C03FC001C01FC003C00FE0078003F01F0000FFFC0000
+1FE0001A1B7E9A1F>I<00003FF80000003FF80000003FF800000003F800000003F800000003F8
+00000003F800000003F800000003F800000003F800000003F800000003F800000003F800000003
+F800000003F800001FE3F80000FFFBF80003F03FF8000FE00FF8001FC007F8003F8003F8003F80
+03F8007F8003F8007F0003F800FF0003F800FF0003F800FF0003F800FF0003F800FF0003F800FF
+0003F800FF0003F800FF0003F800FF0003F8007F0003F8007F0003F8003F8003F8003F8007F800
+1FC00FF8000FE01FF80003F03FFF8000FFF3FF80003FC3FF80212A7EA926>I<003FE00001FFF8
+0003F07E000FE03F001FC01F803F800FC03F800FC07F000FC07F0007E0FF0007E0FF0007E0FF00
+07E0FFFFFFE0FFFFFFE0FF000000FF000000FF000000FF0000007F0000007F8000003F8000E03F
+8001E01FC001C00FE003C003F81F8000FFFE00001FF0001B1B7E9A20>I<0007F0003FFC00FE3E
+01FC7F03F87F03F87F07F07F07F03E07F00007F00007F00007F00007F00007F00007F000FFFFC0
+FFFFC0FFFFC007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F000
+07F00007F00007F00007F00007F00007F00007F00007F00007F00007F0007FFF807FFF807FFF80
+182A7EA915>I<00FF81F003FFE7FC0FC1FE7C1F80FC7C3F80FE7C3F007E107F007F007F007F00
+7F007F007F007F007F007F007F007F003F007E003F80FE001F80FC000FC1F8001FFFE00018FF80
+00380000003C0000003C0000003E0000003FFFF8003FFFFF001FFFFFC00FFFFFE007FFFFF01FFF
+FFF07E0007F87C0001F8F80001F8F80000F8F80000F8F80000F8FC0001F87E0003F03F0007E00F
+C01F8003FFFE00007FF0001E287E9A22>I<FFE0000000FFE0000000FFE00000000FE00000000F
+E00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE00000000FE0000000
+0FE00000000FE00000000FE00000000FE07F00000FE1FFC0000FE787E0000FEE07F0000FFC03F8
+000FF803F8000FF003F8000FF003F8000FF003F8000FE003F8000FE003F8000FE003F8000FE003
+F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE0
+03F8000FE003F8000FE003F8000FE003F800FFFE3FFF80FFFE3FFF80FFFE3FFF80212A7DA926>
+I<07001FC01FE03FE03FE03FE01FE01FC007000000000000000000000000000000FFE0FFE0FFE0
+0FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00F
+E00FE0FFFEFFFEFFFE0F2B7DAA14>I<FFE00000FFE00000FFE000000FE000000FE000000FE000
+000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE000000FE0
+1FFC0FE01FFC0FE01FFC0FE007C00FE00F800FE01E000FE07C000FE0F8000FE1F0000FE3E0000F
+E7C0000FEFE0000FFFF0000FFFF0000FFFF8000FF3FC000FE1FE000FC0FE000FC0FF000FC07F80
+0FC03F800FC03FC00FC01FE00FC00FF0FFFC3FFEFFFC3FFEFFFC3FFE1F2A7EA924>107
+D<FFE0FFE0FFE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE0
+0FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00F
+E0FFFEFFFEFFFE0F2A7DA914>I<FFC07F800FF000FFC1FFE03FFC00FFC783F0F07E000FCE03F9
+C07F000FDC01FB803F000FF801FF003F800FF001FE003F800FF001FE003F800FF001FE003F800F
+E001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC00
+3F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE001FC003F800FE0
+01FC003F800FE001FC003F800FE001FC003F800FE001FC003F80FFFE1FFFC3FFF8FFFE1FFFC3FF
+F8FFFE1FFFC3FFF8351B7D9A3C>I<FFC07F0000FFC1FFC000FFC787E0000FCE07F0000FDC03F8
+000FF803F8000FF003F8000FF003F8000FF003F8000FE003F8000FE003F8000FE003F8000FE003
+F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE0
+03F8000FE003F8000FE003F8000FE003F800FFFE3FFF80FFFE3FFF80FFFE3FFF80211B7D9A26>
+I<003FE00001FFFC0003F07E000FC01F801F800FC03F800FE03F0007E07F0007F07F0007F07F00
+07F0FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F8FF0007F87F0007F07F
+0007F03F800FE03F800FE01F800FC00FC01F8007F07F0001FFFC00003FE0001D1B7E9A22>I<FF
+E1FE0000FFE7FF8000FFFE07E0000FF803F8000FF001FC000FE001FE000FE000FE000FE000FF00
+0FE000FF000FE0007F800FE0007F800FE0007F800FE0007F800FE0007F800FE0007F800FE0007F
+800FE0007F800FE0007F800FE000FF000FE000FF000FE000FE000FF001FE000FF003FC000FF803
+F8000FFE0FE0000FEFFF80000FE1FC00000FE00000000FE00000000FE00000000FE00000000FE0
+0000000FE00000000FE00000000FE00000000FE0000000FFFE000000FFFE000000FFFE00000021
+277E9A26>I<FFC1F0FFC7FCFFCE3E0FDC7F0FD87F0FF87F0FF07F0FF03E0FF0000FE0000FE000
+0FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE000
+FFFF00FFFF00FFFF00181B7E9A1C>114 D<03FE300FFFF03E03F07800F07000F0F00070F00070
+F80070FC0000FFE000FFFE007FFFC03FFFE01FFFF007FFF800FFFC0003FC0000FCE0007CE0003C
+F0003CF0003CF80078FC0078FF01F0F7FFC0C1FF00161B7E9A1B>I<0070000070000070000070
+0000F00000F00000F00001F00003F00003F00007F0001FFFF0FFFFF0FFFFF007F00007F00007F0
+0007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F03807F03807F0
+3807F03807F03807F03807F03803F87001F8F000FFE0001F8015267FA51B>I<FFE03FF800FFE0
+3FF800FFE03FF8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000F
+E003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F800
+0FE003F8000FE003F8000FE003F8000FE007F8000FE007F8000FE00FF80007E01FF80003F03BFF
+8001FFF3FF80003FC3FF80211B7D9A26>I<FFFE03FF80FFFE03FF80FFFE03FF8007F000700007
+F000700007F800F00003F800E00003FC01E00001FC01C00001FC01C00000FE03800000FE038000
+007F070000007F070000007F8F0000003F8E0000003FDE0000001FDC0000001FDC0000000FF800
+00000FF80000000FF800000007F000000007F000000003E000000003E000000001C00000211B7F
+9A24>I<FFFE7FFC0FFEFFFE7FFC0FFEFFFE7FFC0FFE0FE007E000E007F003F001C007F003F001
+C007F807F803C003F807F8038003F807F8038001FC0EFC070001FC0EFC070001FE1EFC0F0000FE
+1C7E0E0000FE1C7E0E0000FF383F1E00007F383F1C00007F783F3C00003FF01FB800003FF01FB8
+00003FF01FF800001FE00FF000001FE00FF000000FC007E000000FC007E000000FC007E0000007
+8003C00000078003C0002F1B7F9A32>I<FFFC0FFF00FFFC0FFF00FFFC0FFF0007F003C00003F8
+07800001FC07800000FE0F000000FF1E0000007F3C0000003FF80000001FF00000000FF0000000
+0FF000000007F000000007F80000000FFC0000001FFE0000001EFE0000003C7F000000783F8000
+00F01FC00001E01FE00001C00FE00003C007F000FFF01FFF80FFF01FFF80FFF01FFF80211B7F9A
+24>I<FFFE03FF80FFFE03FF80FFFE03FF8007F000700007F000700007F800F00003F800E00003
+FC01E00001FC01C00001FC01C00000FE03800000FE038000007F070000007F070000007F8F0000
+003F8E0000003FDE0000001FDC0000001FDC0000000FF80000000FF80000000FF800000007F000
+000007F000000003E000000003E000000001C000000001C0000000038000000003800000380780
+00007C07000000FE0F000000FE0E000000FE1E000000FE3C0000007C780000003FE00000000FC0
+00000021277F9A24>I E /Fm 75 123 df<001F83E000F06E3001C078780380F8780300F03007
+007000070070000700700007007000070070000700700007007000FFFFFF800700700007007000
+070070000700700007007000070070000700700007007000070070000700700007007000070070
+000700700007007000070070000700700007007000070070007FE3FF001D20809F1B>11
+D<003F0000E0C001C0C00381E00701E00701E0070000070000070000070000070000070000FFFF
+E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700
+E00700E00700E00700E00700E00700E07FC3FE1720809F19>I<003FE000E0E001C1E00381E007
+00E00700E00700E00700E00700E00700E00700E00700E0FFFFE00700E00700E00700E00700E007
+00E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E007
+00E07FE7FE1720809F19>I<001F81F80000F04F040001C07C06000380F80F000300F00F000700
+F00F00070070000007007000000700700000070070000007007000000700700000FFFFFFFF0007
+007007000700700700070070070007007007000700700700070070070007007007000700700700
+070070070007007007000700700700070070070007007007000700700700070070070007007007
+00070070070007007007007FE3FE3FF02420809F26>I<07070F1C383060C00808779F17>19
+D<7038F87CFC7EFC7E743A0402040204020804080410081008201040200F0E7E9F17>34
+D<70F8FCFC74040404080810102040060E7C9F0D>39 D<0020004000800100020006000C000C00
+180018003000300030007000600060006000E000E000E000E000E000E000E000E000E000E000E0
+00E0006000600060007000300030003000180018000C000C000600020001000080004000200B2E
+7DA112>I<800040002000100008000C00060006000300030001800180018001C000C000C000C0
+00E000E000E000E000E000E000E000E000E000E000E000E000C000C000C001C001800180018003
+000300060006000C00080010002000400080000B2E7DA112>I<70F8FCFC740404040808101020
+40060E7C840D>44 D<FFC0FFC00A027F8A0F>I<70F8F8F87005057C840D>I<0003000300070006
+0006000E000C000C001C0018001800380030003000700060006000E000C000C001C00180018001
+800380030003000700060006000E000C000C001C0018001800380030003000700060006000E000
+C000C000102D7DA117>I<03F0000E1C001C0E00180600380700700380700380700380700380F0
+03C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C070
+03807003807003807807803807001806001C0E000E1C0003F000121F7E9D17>I<018003800F80
+F38003800380038003800380038003800380038003800380038003800380038003800380038003
+800380038003800380038007C0FFFE0F1E7C9D17>I<03F0000C1C00100E002007004007808007
+80F007C0F803C0F803C0F803C02007C00007C0000780000780000F00000E00001C000038000070
+0000600000C0000180000300000600400C00401800401000803FFF807FFF80FFFF80121E7E9D17
+>I<03F0000C1C00100E00200F00780F80780780780780380F80000F80000F00000F00000E0000
+1C0000380003F000003C00000E00000F000007800007800007C02007C0F807C0F807C0F807C0F0
+0780400780400F00200E001C3C0003F000121F7E9D17>I<000600000600000E00000E00001E00
+002E00002E00004E00008E00008E00010E00020E00020E00040E00080E00080E00100E00200E00
+200E00400E00C00E00FFFFF0000E00000E00000E00000E00000E00000E00000E0000FFE0141E7F
+9D17>I<1803001FFE001FFC001FF8001FE00010000010000010000010000010000010000011F0
+00161C00180E001007001007800003800003800003C00003C00003C07003C0F003C0F003C0E003
+80400380400700200600100E000C380003E000121F7E9D17>I<007C000182000701000E03800C
+07801C0780380300380000780000700000700000F1F000F21C00F40600F80700F80380F80380F0
+03C0F003C0F003C0F003C0F003C07003C07003C07003803803803807001807000C0E00061C0001
+F000121F7E9D17>I<4000007FFFC07FFF807FFF80400100800200800200800400000800000800
+00100000200000200000400000400000C00000C00001C000018000038000038000038000038000
+078000078000078000078000078000078000078000030000121F7D9D17>I<03F0000C0C001006
+003003002001806001806001806001807001807803003E03003F06001FC8000FF00003F80007FC
+000C7E00103F00300F806003804001C0C001C0C000C0C000C0C000C0C000806001802001001002
+000C0C0003F000121F7E9D17>I<03F0000E18001C0C00380600380700700700700380F00380F0
+0380F003C0F003C0F003C0F003C0F003C07007C07007C03807C0180BC00E13C003E3C000038000
+0380000380000700300700780600780E00700C002018001070000FC000121F7E9D17>I<70F8F8
+F8700000000000000000000070F8F8F87005147C930D>I<70F8F8F87000000000000000000000
+70F0F8F878080808101010202040051D7C930D>I<7FFFFFE0FFFFFFF000000000000000000000
+00000000000000000000000000000000000000000000FFFFFFF07FFFFFE01C0C7D9023>61
+D<001F800000E0700001000800060006000800010008000100100F00802030C0402060404040C0
+202041C01C2041C01C2081801C1083801C1083801C1083801C1083801C1083801C1083801C1081
+801C1041C01C1041C01C1040C03C2020605C202030CC40100F0780080000000800000006000070
+010001C000E01F00001FF0001C207D9F23>64 D<000100000003800000038000000380000007C0
+000007C0000007C0000009E0000009E0000009E0000010F0000010F0000010F000002078000020
+78000020780000403C0000403C0000403C0000801E0000801E0000FFFE0001000F0001000F0001
+000F00020007800200078002000780040003C00E0003C01F0007E0FFC03FFE1F207F9F22>I<FF
+FFE0000F80380007801E0007801F0007800F0007800F8007800F8007800F8007800F8007800F80
+07800F0007801F0007801E0007803C0007FFF00007803C0007801E0007800F0007800F80078007
+80078007C0078007C0078007C0078007C0078007C00780078007800F8007800F0007801F000F80
+3C00FFFFF0001A1F7E9E20>I<000FC040007030C001C009C0038005C0070003C00E0001C01E00
+00C01C0000C03C0000C07C0000407C00004078000040F8000000F8000000F8000000F8000000F8
+000000F8000000F8000000F8000000F8000000780000007C0000407C0000403C0000401C000040
+1E0000800E000080070001000380020001C0040000703800000FC0001A217D9F21>I<FFFFFF00
+0F800F000780030007800300078001000780018007800080078000800780008007808080078080
+0007808000078080000781800007FF800007818000078080000780800007808000078080000780
+00200780002007800020078000400780004007800040078000C0078000C0078001800F800F80FF
+FFFF801B1F7E9E1F>69 D<FFFFFF000F800F000780030007800300078001000780018007800080
+078000800780008007800080078080000780800007808000078080000781800007FF8000078180
+000780800007808000078080000780800007800000078000000780000007800000078000000780
+000007800000078000000FC00000FFFE0000191F7E9E1E>I<000FE0200078186000E004E00380
+02E0070001E00F0000E01E0000601E0000603C0000603C0000207C00002078000020F8000000F8
+000000F8000000F8000000F8000000F8000000F8000000F8007FFCF80003E0780001E07C0001E0
+3C0001E03C0001E01E0001E01E0001E00F0001E0070001E0038002E000E0046000781820000FE0
+001E217D9F24>I<FFF8FFF80F800F8007800F0007800F0007800F0007800F0007800F0007800F
+0007800F0007800F0007800F0007800F0007800F0007800F0007FFFF0007800F0007800F000780
+0F0007800F0007800F0007800F0007800F0007800F0007800F0007800F0007800F0007800F0007
+800F0007800F000F800F80FFF8FFF81D1F7E9E22>I<FFFC0FC007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800780078007800780
+07800FC0FFFC0E1F7F9E10>I<FFFE000FC0000780000780000780000780000780000780000780
+000780000780000780000780000780000780000780000780000780000780000780000780020780
+0207800207800207800607800407800407800C07801C0F807CFFFFFC171F7E9E1C>76
+D<FF80001FF80F80001F800780001F0005C0002F0005C0002F0005C0002F0004E0004F0004E000
+4F000470008F000470008F000470008F000438010F000438010F000438010F00041C020F00041C
+020F00041C020F00040E040F00040E040F00040E040F000407080F000407080F000407080F0004
+03900F000403900F000401E00F000401E00F000401E00F000E00C00F001F00C01F80FFE0C1FFF8
+251F7E9E2A>I<FF803FF807C007C007C0038005E0010005E0010004F001000478010004780100
+043C0100043C0100041E0100040F0100040F010004078100040781000403C1000401E1000401E1
+000400F1000400F1000400790004003D0004003D0004001F0004001F0004000F00040007000400
+07000E0003001F000300FFE001001D1F7E9E22>I<001F800000F0F00001C0380007801E000F00
+0F000E0007001E0007803C0003C03C0003C07C0003E0780001E0780001E0F80001F0F80001F0F8
+0001F0F80001F0F80001F0F80001F0F80001F0F80001F0F80001F0780001E07C0003E07C0003E0
+3C0003C03C0003C01E0007800E0007000F000F0007801E0001C0380000F0F000001F80001C217D
+9F23>I<FFFFE0000F80780007801C0007801E0007800F0007800F8007800F8007800F8007800F
+8007800F8007800F8007800F0007801E0007801C000780780007FFE00007800000078000000780
+000007800000078000000780000007800000078000000780000007800000078000000780000007
+8000000FC00000FFFC0000191F7E9E1F>I<FFFF80000F80F0000780780007803C0007801E0007
+801E0007801F0007801F0007801F0007801F0007801E0007801E0007803C00078078000780F000
+07FF80000781C0000780E0000780F0000780700007807800078078000780780007807C0007807C
+0007807C0007807C0407807E0407803E040FC01E08FFFC0F10000003E01E207E9E21>82
+D<07E0800C1980100780300380600180600180E00180E00080E00080E00080F00000F000007800
+007F00003FF0001FFC000FFE0003FF00001F800007800003C00003C00001C08001C08001C08001
+C08001C0C00180C00380E00300F00600CE0C0081F80012217D9F19>I<7FFFFFE0780F01E0600F
+0060400F0020400F0020C00F0030800F0010800F0010800F0010800F0010000F0000000F000000
+0F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000
+000F0000000F0000000F0000000F0000000F0000000F0000000F0000001F800007FFFE001C1F7E
+9E21>I<FFFC3FF80FC007C0078003800780010007800100078001000780010007800100078001
+000780010007800100078001000780010007800100078001000780010007800100078001000780
+01000780010007800100078001000780010007800100038002000380020001C0020001C0040000
+E008000070180000382000000FC0001D207E9E22>I<FFF003FE1F8000F80F0000600F80006007
+8000400780004003C0008003C0008003C0008001E0010001E0010001F0010000F0020000F00200
+00F806000078040000780400003C0800003C0800003C0800001E1000001E1000001F3000000F20
+00000F20000007C0000007C0000007C000000380000003800000038000000100001F207F9E22>
+I<FFF07FF81FF01F800FC007C00F00078003800F00078001000F0007C00100078007C002000780
+07C00200078007C0020003C009E0040003C009E0040003C009E0040003E010F00C0001E010F008
+0001E010F0080001F02078080000F02078100000F02078100000F0403C10000078403C20000078
+403C20000078C03E2000003C801E4000003C801E4000003C801E4000001F000F8000001F000F80
+00001F000F8000001E00078000000E00070000000E00070000000C000300000004000200002C20
+7F9E2F>I<FEFEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
+C0C0C0C0C0C0C0C0C0FEFE072D7CA10D>91 D<080410082010201040204020804080408040B85C
+FC7EFC7E7C3E381C0F0E7B9F17>I<FEFE06060606060606060606060606060606060606060606
+06060606060606060606060606060606060606FEFE072D7FA10D>I<1FE000303000781800781C
+00300E00000E00000E00000E0000FE00078E001E0E00380E00780E00F00E10F00E10F00E10F01E
+10781E103867200F83C014147E9317>97 D<0E0000FE00000E00000E00000E00000E00000E0000
+0E00000E00000E00000E00000E00000E3E000EC3800F01C00F00E00E00E00E00700E00700E0078
+0E00780E00780E00780E00780E00780E00700E00700E00E00F00E00D01C00CC300083E0015207F
+9F19>I<03F80E0C1C1E381E380C70007000F000F000F000F000F000F00070007000380138011C
+020E0C03F010147E9314>I<000380003F80000380000380000380000380000380000380000380
+00038000038000038003E380061B801C0780380380380380700380700380F00380F00380F00380
+F00380F00380F003807003807003803803803807801C07800E1B8003E3F815207E9F19>I<03F0
+000E1C001C0E00380700380700700700700380F00380F00380FFFF80F00000F00000F000007000
+007000003800801800800C010007060001F80011147F9314>I<007C00C6018F038F0706070007
+0007000700070007000700FFF00700070007000700070007000700070007000700070007000700
+070007000700070007007FF01020809F0E>I<0000E003E3300E3C301C1C30380E00780F00780F
+00780F00780F00780F00380E001C1C001E380033E0002000002000003000003000003FFE001FFF
+800FFFC03001E0600070C00030C00030C00030C000306000603000C01C038003FC00141F7F9417
+>I<0E0000FE00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E
+3E000E43000E81800F01C00F01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E
+01C00E01C00E01C00E01C00E01C00E01C0FFE7FC16207F9F19>I<1C001E003E001E001C000000
+000000000000000000000E007E000E000E000E000E000E000E000E000E000E000E000E000E000E
+000E000E000E000E00FFC00A1F809E0C>I<00E001F001F001F000E00000000000000000000000
+00007007F000F00070007000700070007000700070007000700070007000700070007000700070
+007000700070007000706070F060F0C061803F000C28829E0E>I<0E0000FE00000E00000E0000
+0E00000E00000E00000E00000E00000E00000E00000E00000E0FF00E03C00E03000E02000E0400
+0E08000E10000E30000E70000EF8000F38000E1C000E1E000E0E000E07000E07800E03800E03C0
+0E03E0FFCFF815207F9F18>I<0E00FE000E000E000E000E000E000E000E000E000E000E000E00
+0E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00FFE00B
+20809F0C>I<0E1F01F000FE618618000E81C81C000F00F00E000F00F00E000E00E00E000E00E0
+0E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00
+E00E000E00E00E000E00E00E000E00E00E000E00E00E00FFE7FE7FE023147F9326>I<0E3E00FE
+43000E81800F01C00F01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E
+01C00E01C00E01C00E01C00E01C0FFE7FC16147F9319>I<01F800070E001C03803801C03801C0
+7000E07000E0F000F0F000F0F000F0F000F0F000F0F000F07000E07000E03801C03801C01C0380
+070E0001F80014147F9317>I<0E3E00FEC3800F01C00F00E00E00E00E00F00E00700E00780E00
+780E00780E00780E00780E00780E00700E00F00E00E00F01E00F01C00EC3000E3E000E00000E00
+000E00000E00000E00000E00000E00000E0000FFE000151D7F9319>I<03E0800619801C05803C
+0780380380780380700380F00380F00380F00380F00380F00380F0038070038078038038038038
+07801C0B800E138003E380000380000380000380000380000380000380000380000380003FF815
+1D7E9318>I<0E78FE8C0F1E0F1E0F0C0E000E000E000E000E000E000E000E000E000E000E000E
+000E000E00FFE00F147F9312>I<1F9030704030C010C010C010E00078007F803FE00FF0007080
+3880188018C018C018E030D0608F800D147E9312>I<020002000200060006000E000E003E00FF
+F80E000E000E000E000E000E000E000E000E000E000E000E080E080E080E080E080610031001E0
+0D1C7F9B12>I<0E01C0FE1FC00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01
+C00E01C00E01C00E01C00E01C00E01C00E03C00603C0030DC001F1FC16147F9319>I<FF83F81E
+01E01C00C00E00800E00800E008007010007010003820003820003820001C40001C40001EC0000
+E80000E80000700000700000700000200015147F9318>I<FF9FE1FC3C0780701C0300601C0380
+200E0380400E0380400E03C0400707C0800704C0800704E080038861000388710003C8730001D0
+320001D03A0000F03C0000E01C0000E01C0000601800004008001E147F9321>I<7FC3FC0F01E0
+0701C007018003810001C20000E40000EC00007800003800003C00007C00004E00008700010700
+0303800201C00601E01E01E0FF07FE1714809318>I<FF83F81E01E01C00C00E00800E00800E00
+8007010007010003820003820003820001C40001C40001EC0000E80000E8000070000070000070
+00002000002000004000004000004000F08000F08000F100006200003C0000151D7F9318>I<3F
+FF380E200E201C40384078407000E001E001C00380078007010E011E011C0338027006700EFFFE
+10147F9314>I E /Fn 13 118 df<0F001F003F803F007E00F800F000C0000A08769C18>19
+D<00038000000380000007C0000007C0000007C000000FE000000FE000001FF000001BF000001B
+F0000031F8000031F8000061FC000060FC0000E0FE0000C07E0000C07E0001803F0001FFFF0003
+FFFF8003001F8003001F8006000FC006000FC00E000FE00C0007E0FFC07FFEFFC07FFE1F1C7E9B
+24>65 D<07F8201FFEE03C07E07801E07000E0F000E0F00060F00060F80000FE0000FFE0007FFE
+003FFF003FFF800FFFC007FFE0007FE00003F00001F00000F0C000F0C000F0C000E0E000E0F001
+C0FC03C0EFFF0083FC00141C7D9B1B>83 D<0FF8001C1E003E0F803E07803E07C01C07C00007C0
+007FC007E7C01F07C03C07C07C07C0F807C0F807C0F807C0780BC03E13F80FE1F815127F9117>
+97 D<FF0000FF00001F00001F00001F00001F00001F00001F00001F00001F00001F00001F3F80
+1FE1E01F80701F00781F003C1F003C1F003E1F003E1F003E1F003E1F003E1F003E1F003C1F003C
+1F00781F80701EC1E01C3F00171D7F9C1B>I<03FC000E0E001C1F003C1F00781F00780E00F800
+00F80000F80000F80000F80000F800007800007801803C01801C03000E0E0003F80011127E9115
+>I<1E003F003F003F003F001E00000000000000000000000000FF00FF001F001F001F001F001F
+001F001F001F001F001F001F001F001F001F00FFE0FFE00B1E7F9D0E>105
+D<FF0FC07E00FF31E18F001F40F207801F80FC07C01F80FC07C01F00F807C01F00F807C01F00F8
+07C01F00F807C01F00F807C01F00F807C01F00F807C01F00F807C01F00F807C01F00F807C01F00
+F807C0FFE7FF3FF8FFE7FF3FF825127F9128>109 D<01FC000F07801C01C03C01E07800F07800
+F0F800F8F800F8F800F8F800F8F800F8F800F87800F07800F03C01E01E03C00F078001FC001512
+7F9118>111 D<FE3E00FE47001E8F801E8F801E8F801F07001F00001F00001F00001F00001F00
+001F00001F00001F00001F00001F0000FFF000FFF00011127F9114>114
+D<1FD830786018E018E018F000FF807FE07FF01FF807FC007CC01CC01CE01CE018F830CFC00E12
+7E9113>I<0300030003000300070007000F000F003FFCFFFC1F001F001F001F001F001F001F00
+1F001F001F0C1F0C1F0C1F0C0F08079803F00E1A7F9913>I<FF07F8FF07F81F00F81F00F81F00
+F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F00F81F01F80F01F80786FF01F8
+FF18127F911B>I E /Fo 45 127 df<007E0001C1800301800703C00E03C00E01800E00000E00
+000E00000E00000E0000FFFFC00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01
+C00E01C00E01C00E01C00E01C00E01C00E01C00E01C07F87F8151D809C17>12
+D<FC001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00FF800912
+7F910C>16 D<1C1C3C3870C0800707779C15>19 D<1C001E00078003C001C00380FF000A077B7E
+12>24 D<60F0F0701010101020204080040C7C830C>44 D<FFE0FFE00B0280890E>I<60F0F060
+04047C830C>I<003F800000C0600003001800040004000800020010000100201F008020708080
+40E0404040C0384041C03840818038208380382083803820838038208380382083803820818038
+2041C0382040C0384040E0784020709880201F0F00100000000800000004000000030001E000C0
+1F80003FF0001B1D7E9C20>64 D<000600000006000000060000000F0000000F0000000F000000
+17800000178000001780000023C0000023C0000023C0000041E0000041E0000041E0000080F000
+0080F0000180F8000100780001FFF80003007C0002003C0002003C0006003E0004001E0004001E
+000C001F001E001F00FF80FFF01C1D7F9C1F>I<001F808000E0618001801980070007800E0003
+801C0003801C00018038000180780000807800008070000080F0000000F0000000F0000000F000
+0000F0000000F0000000F0000000F0000000700000807800008078000080380000801C0001001C
+0001000E000200070004000180080000E03000001FC000191E7E9C1E>67
+D<FFFFFC0F003C0F000C0F00040F00040F00060F00020F00020F02020F02000F02000F02000F06
+000FFE000F06000F02000F02000F02000F02010F00010F00020F00020F00020F00060F00060F00
+0C0F003CFFFFFC181C7E9B1C>69 D<001F808000E0618001801980070007800E0003801C000380
+1C00018038000180780000807800008070000080F0000000F0000000F0000000F0000000F00000
+00F0000000F000FFF0F0000F80700007807800078078000780380007801C0007801C0007800E00
+078007000B800180118000E06080001F80001C1E7E9C21>71 D<FFF00F000F000F000F000F000F
+000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F000F00
+0F00FFF00C1C7F9B0F>73 D<FFF8000F80000F00000F00000F00000F00000F00000F00000F0000
+0F00000F00000F00000F00000F00000F00000F00000F00000F00000F00080F00080F00080F0018
+0F00180F00100F00300F00700F01F0FFFFF0151C7E9B1A>76 D<003F800000E0E0000380380007
+001C000E000E001C0007003C00078038000380780003C0780003C0700001C0F00001E0F00001E0
+F00001E0F00001E0F00001E0F00001E0F00001E0F00001E0700001C0780003C0780003C0380003
+803C0007801C0007000E000E0007001C000380380000E0E000003F80001B1E7E9C20>79
+D<FFFF800F00E00F00780F003C0F001C0F001E0F001E0F001E0F001E0F001E0F001C0F003C0F00
+780F00E00FFF800F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00
+000F0000FFF000171C7E9B1C>I<FFFF00000F01E0000F0078000F003C000F001C000F001E000F
+001E000F001E000F001E000F001C000F003C000F0078000F01E0000FFF00000F03C0000F00E000
+0F00F0000F0078000F0078000F0078000F0078000F0078000F0078000F0078100F0078100F0038
+100F003C20FFF01C20000007C01C1D7E9B1F>82 D<7FFFFFC0700F01C0600F00C0400F0040400F
+0040C00F0020800F0020800F0020800F0020000F0000000F0000000F0000000F0000000F000000
+0F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000
+000F0000000F0000001F800003FFFC001B1C7F9B1E>84 D<FFF07FC00F000E000F0004000F0004
+000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F00
+04000F0004000F0004000F0004000F0004000F0004000F0004000F0004000F0004000700080007
+800800038010000180100000C020000070C000001F00001A1D7E9B1F>I<1FC000307000783800
+781C00301C00001C00001C0001FC000F1C00381C00701C00601C00E01C40E01C40E01C40603C40
+304E801F870012127E9115>97 D<FC00001C00001C00001C00001C00001C00001C00001C00001C
+00001C00001C00001C7C001D86001E03001C01801C01C01C00C01C00E01C00E01C00E01C00E01C
+00E01C00E01C00C01C01C01C01801E030019060010F800131D7F9C17>I<07E00C301878307870
+306000E000E000E000E000E000E00060007004300418080C3007C00E127E9112>I<003F000007
+0000070000070000070000070000070000070000070000070000070003E7000C1700180F003007
+00700700600700E00700E00700E00700E00700E00700E00700600700700700300700180F000C37
+0007C7E0131D7E9C17>I<03E00C301818300C700E6006E006FFFEE000E000E000E00060007002
+300218040C1803E00F127F9112>I<00F8018C071E061E0E0C0E000E000E000E000E000E00FFE0
+0E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E007FE00F1D809C0D
+>I<00038003C4C00C38C01C3880181800381C00381C00381C00381C001818001C38000C300013
+C0001000003000001800001FF8001FFF001FFF803003806001C0C000C0C000C0C000C060018030
+03001C0E0007F800121C7F9215>I<FC00001C00001C00001C00001C00001C00001C00001C0000
+1C00001C00001C00001C7C001C87001D03001E03801C03801C03801C03801C03801C03801C0380
+1C03801C03801C03801C03801C03801C03801C0380FF9FF0141D7F9C17>I<18003C003C001800
+0000000000000000000000000000FC001C001C001C001C001C001C001C001C001C001C001C001C
+001C001C001C001C00FF80091D7F9C0C>I<00C001E001E000C000000000000000000000000000
+000FE000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
+00E000E060E0F0C0F1C061803E000B25839C0D>I<FC001C001C001C001C001C001C001C001C00
+1C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00FF
+80091D7F9C0C>108 D<FC7E07E0001C838838001D019018001E01E01C001C01C01C001C01C01C
+001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C0
+1C001C01C01C001C01C01C001C01C01C00FF8FF8FF8021127F9124>I<FC7C001C87001D03001E
+03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C
+0380FF9FF014127F9117>I<03F0000E1C00180600300300700380600180E001C0E001C0E001C0
+E001C0E001C0E001C06001807003803003001806000E1C0003F00012127F9115>I<FC7C001D86
+001E03001C01801C01C01C00C01C00E01C00E01C00E01C00E01C00E01C00E01C01C01C01C01C01
+801E03001D06001CF8001C00001C00001C00001C00001C00001C00001C0000FF8000131A7F9117
+>I<03C1000C3300180B00300F00700700700700E00700E00700E00700E00700E00700E0070060
+0700700700300F00180F000C370007C70000070000070000070000070000070000070000070000
+3FE0131A7E9116>I<FCE01D301E781E781C301C001C001C001C001C001C001C001C001C001C00
+1C001C00FFC00D127F9110>I<1F9030704030C010C010E010F8007F803FE00FF000F880388018
+C018C018E010D0608FC00D127F9110>I<04000400040004000C000C001C003C00FFE01C001C00
+1C001C001C001C001C001C001C001C101C101C101C101C100C100E2003C00C1A7F9910>I<FC1F
+801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C03
+801C07800C07800E1B8003E3F014127F9117>I<FF07E03C03801C01001C01000E02000E020007
+040007040007040003880003880003D80001D00001D00000E00000E00000E00000400013127F91
+16>I<FF3FCFE03C0F03801C0701801C0701001C0B01000E0B82000E0B82000E1182000711C400
+0711C4000720C40003A0E80003A0E80003C0680001C0700001C0700001803000008020001B127F
+911E>I<7F8FF00F03800F030007020003840001C80001D80000F00000700000780000F800009C
+00010E00020E000607000403801E07C0FF0FF81512809116>I<FF07E03C03801C01001C01000E
+02000E020007040007040007040003880003880003D80001D00001D00000E00000E00000E00000
+4000004000008000008000F08000F10000F300006600003C0000131A7F9116>I<FFFFFFFFFF80
+2901808B2A>124 D<1C043F0843F080E00E047D9B15>126 D E /Fp 33
+123 df<70F8FCFC7404040404080810102040060F7C840E>44 D<008003800F80F38003800380
+038003800380038003800380038003800380038003800380038003800380038003800380038003
+800380038003800380038007C0FFFE0F217CA018>49 D<03F0000C1C001007002007804003C040
+03C08003E0F003E0F801E0F801E0F801E02003E00003E00003C00003C0000780000700000E0000
+1C0000180000300000600000C0000180000100000200200400200800201800603000403FFFC07F
+FFC0FFFFC013217EA018>I<000200000600000E00000E00001E00001E00002E00004E00004E00
+008E00008E00010E00020E00020E00040E00040E00080E00100E00100E00200E00200E00400E00
+800E00FFFFF8000E00000E00000E00000E00000E00000E00000E00001F0001FFF015217FA018>
+52 D<4000006000007FFFE07FFFC07FFFC0400080C00100800100800200800200000400000800
+00080000100000300000200000600000600000600000E00000C00000C00001C00001C00001C000
+01C00003C00003C00003C00003C00003C00003C00003C00003C00001800013237DA118>55
+D<01F000060C000C0600180700380380700380700380F001C0F001C0F001C0F001E0F001E0F001
+E0F001E0F001E07001E07003E03803E01805E00C05E00619E003E1E00001C00001C00001C00003
+80000380300300780700780600700C002018001030000FC00013227EA018>57
+D<0007E0100038183000E0063001C00170038000F0070000F00E0000701E0000701C0000303C00
+00303C0000307C0000107800001078000010F8000000F8000000F8000000F8000000F8000000F8
+000000F8000000F800000078000000780000107C0000103C0000103C0000101C0000201E000020
+0E000040070000400380008001C0010000E0020000381C000007E0001C247DA223>67
+D<FFFFFFC00F8007C0078001C0078000C007800040078000400780006007800020078000200780
+002007802020078020000780200007802000078060000780E00007FFE0000780E0000780600007
+802000078020000780200007802000078000000780000007800000078000000780000007800000
+0780000007800000078000000FC00000FFFE00001B227EA120>70 D<FFFC3FFF0FC003F0078001
+E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E00780
+01E0078001E0078001E0078001E007FFFFE0078001E0078001E0078001E0078001E0078001E007
+8001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0078001E0
+0FC003F0FFFC3FFF20227EA125>72 D<FFFC0FC007800780078007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800780078007800780
+07800FC0FFFC0E227EA112>I<FFFE00000FC00000078000000780000007800000078000000780
+000007800000078000000780000007800000078000000780000007800000078000000780000007
+800000078000000780000007800000078000000780000007800080078000800780008007800080
+078001800780018007800100078003000780030007800F000F803F00FFFFFF0019227EA11E>76
+D<FFC00003FF0FC00003F007C00003E005E00005E005E00005E004F00009E004F00009E004F000
+09E004780011E004780011E004780011E0043C0021E0043C0021E0043C0021E0041E0041E0041E
+0041E0040F0081E0040F0081E0040F0081E004078101E004078101E004078101E00403C201E004
+03C201E00401E401E00401E401E00401E401E00400F801E00400F801E00400F801E004007001E0
+0E007001E01F007003F0FFE0203FFF28227EA12D>I<FFFFE000000F803C000007800E00000780
+078000078007C000078003C000078003E000078003E000078003E000078003E000078003E00007
+8003C000078007C000078007800007800E000007803C000007FFE0000007807000000780380000
+07801C000007801E000007800E000007800F000007800F000007800F000007800F000007800F80
+0007800F800007800F800007800F808007800FC080078007C0800FC003C100FFFC01E200000000
+7C0021237EA124>82 D<FFF03FFC03FE1F8007E000F80F0003C000700F0003C000200F0003C000
+20078001E00040078001E00040078001E0004003C002F0008003C002F0008003C002F0008001E0
+0478010001E00478010001E00478010000F0083C020000F0083C020000F0083C020000F8183E06
+000078101E04000078101E0400007C101E0400003C200F0800003C200F0800003C200F0800001E
+40079000001E40079000001E40079000000F8003E000000F8003E000000F8003E00000070001C0
+0000070001C00000070001C0000003000180000002000080002F237FA132>87
+D<0FE0001838003C0C003C0E0018070000070000070000070000FF0007C7001E07003C07007807
+00700700F00708F00708F00708F00F087817083C23900FC1E015157E9418>97
+D<0E0000FE00001E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00
+000E00000E1F000E61C00E80600F00300E00380E003C0E001C0E001E0E001E0E001E0E001E0E00
+1E0E001E0E001E0E001C0E003C0E00380F00700C80600C41C0083F0017237FA21B>I<01FE0007
+03000C07801C0780380300780000700000F00000F00000F00000F00000F00000F00000F0000070
+00007800403800401C00800C010007060001F80012157E9416>I<0000E0000FE00001E00000E0
+0000E00000E00000E00000E00000E00000E00000E00000E00000E00000E001F8E00704E00C02E0
+1C01E03800E07800E07000E0F000E0F000E0F000E0F000E0F000E0F000E0F000E07000E07800E0
+3800E01801E00C02E0070CF001F0FE17237EA21B>I<01FC000707000C03801C01C03801C07801
+E07000E0F000E0FFFFE0F00000F00000F00000F00000F000007000007800203800201C00400E00
+8007030000FC0013157F9416>I<00007001F198071E180E0E181C07001C07003C07803C07803C
+07803C07801C07001C07000E0E000F1C0019F0001000001000001800001800001FFE000FFFC00F
+FFE03800F0600030400018C00018C00018C000186000306000303800E00E038003FE0015217F95
+18>103 D<0E0000FE00001E00000E00000E00000E00000E00000E00000E00000E00000E00000E
+00000E00000E00000E1F800E60C00E80E00F00700F00700E00700E00700E00700E00700E00700E
+00700E00700E00700E00700E00700E00700E00700E00700E00700E0070FFE7FF18237FA21B>I<
+1C001E003E001E001C00000000000000000000000000000000000E00FE001E000E000E000E000E
+000E000E000E000E000E000E000E000E000E000E000E000E000E00FFC00A227FA10E>I<0E00FE
+001E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00
+0E000E000E000E000E000E000E000E000E000E000E000E000E00FFE00B237FA20E>108
+D<0E1FC07F00FE60E183801E807201C00F003C00E00F003C00E00E003800E00E003800E00E0038
+00E00E003800E00E003800E00E003800E00E003800E00E003800E00E003800E00E003800E00E00
+3800E00E003800E00E003800E00E003800E00E003800E0FFE3FF8FFE27157F942A>I<0E1F80FE
+60C01E80E00F00700F00700E00700E00700E00700E00700E00700E00700E00700E00700E00700E
+00700E00700E00700E00700E00700E0070FFE7FF18157F941B>I<01FC000707000C01801800C0
+3800E0700070700070F00078F00078F00078F00078F00078F00078F000787000707800F03800E0
+1C01C00E038007070001FC0015157F9418>I<01F8200704600E02601C01603801E07800E07800
+E0F000E0F000E0F000E0F000E0F000E0F000E0F000E07000E07800E03801E01C01E00C02E0070C
+E001F0E00000E00000E00000E00000E00000E00000E00000E00000E00000E0000FFE171F7E941A
+>113 D<0E3CFE461E8F0F0F0F060F000E000E000E000E000E000E000E000E000E000E000E000E
+000E000F00FFF010157F9413>I<0F8830786018C018C008C008E008F0007F803FE00FF001F800
+3C801C800C800CC00CC008E018D0308FC00E157E9413>I<02000200020002000600060006000E
+001E003E00FFF80E000E000E000E000E000E000E000E000E000E000E000E040E040E040E040E04
+0E040708030801F00E1F7F9E13>I<0E0070FE07F01E00F00E00700E00700E00700E00700E0070
+0E00700E00700E00700E00700E00700E00700E00700E00700E00F00E00F006017003827800FC7F
+18157F941B>I<FFC1FE1E00780E00300E00200E002007004007004003808003808003808001C1
+0001C10000E20000E20000E2000074000074000038000038000038000010000010000020000020
+00002000004000F04000F08000F180004300003C0000171F7F941A>121
+D<3FFFC0380380300780200700600E00401C00403C0040380000700000E00001E00001C0000380
+400700400F00400E00C01C0080380080780180700780FFFF8012157F9416>I
+E /Fq 18 118 df<FFFFC00000FFFFC0000007F000000003E000000003E000000003E000000003
+E000000003E000000003E000000003E000000003E000000003E000000003E000000003E0000000
+03E000000003E000000003E000000003E000000003E000000003E000000003E000000003E00000
+0003E000000003E000000003E000000003E000000003E000000003E000000003E000000003E000
+000003E000000003E000004003E000004003E000004003E000004003E000008003E000008003E0
+00008003E000008003E000018003E000018003E000038003E000038003E000078003E0000F0003
+E0003F0007E000FF00FFFFFFFF00FFFFFFFF0022317CB029>76 D<FFF00000007FF8FFF0000000
+7FF807F00000007F0002F8000000BE0002F8000000BE0002F8000000BE00027C0000013E00027C
+0000013E00023E0000023E00023E0000023E00023E0000023E00021F0000043E00021F0000043E
+00021F0000043E00020F8000083E00020F8000083E00020F8000083E000207C000103E000207C0
+00103E000207C000103E000203E000203E000203E000203E000201F000403E000201F000403E00
+0201F000403E000200F800803E000200F800803E000200F800803E0002007C01003E0002007C01
+003E0002007C01003E0002003E02003E0002003E02003E0002003E02003E0002001F04003E0002
+001F04003E0002000F88003E0002000F88003E0002000F88003E00020007D0003E00020007D000
+3E00020007D0003E00020003E0003E00020003E0003E00020003E0003E00070001C0003E000F80
+01C0007F00FFF801C00FFFF8FFF800800FFFF835317CB03D>I<FFFFFFC000FFFFFFF80007E000
+FE0003E0001F0003E0000F8003E00007C003E00003E003E00003F003E00001F003E00001F003E0
+0001F803E00001F803E00001F803E00001F803E00001F803E00001F803E00001F003E00001F003
+E00003E003E00003E003E00007C003E0000F8003E0001F0003E000FC0003FFFFF00003E0000000
+03E000000003E000000003E000000003E000000003E000000003E000000003E000000003E00000
+0003E000000003E000000003E000000003E000000003E000000003E000000003E000000003E000
+000003E000000003E000000003E000000003E000000007F0000000FFFF800000FFFF8000002531
+7CB02D>80 D<FFFFFF000000FFFFFFF0000007E001FC000003E0003E000003E0001F800003E000
+07C00003E00007E00003E00003E00003E00003F00003E00001F00003E00001F80003E00001F800
+03E00001F80003E00001F80003E00001F80003E00001F80003E00001F00003E00003F00003E000
+03E00003E00007C00003E0000F800003E0001F000003E0003C000003E001F0000003FFFF000000
+03E003E0000003E00078000003E0003C000003E0001E000003E0000F000003E0000F800003E000
+07800003E00007C00003E00007C00003E00007C00003E00007C00003E00007C00003E00007E000
+03E00007E00003E00007E00003E00007E00003E00007E00003E00007E00803E00007F00803E000
+03F00803E00003F00807F00001F010FFFF8000F810FFFF80007C60000000000F802D327CB031>
+82 D<00FE00000303C0000C00E00010007000100038003C003C003E001C003E001E003E001E00
+08001E0000001E0000001E0000001E00000FFE0000FC1E0003E01E000F801E001F001E003E001E
+003C001E007C001E00F8001E04F8001E04F8001E04F8003E04F8003E0478003E047C005E043E00
+8F080F0307F003FC03E01E1F7D9E21>97 D<003F8000E0600380180700040F00041E001E1C003E
+3C003E7C003E7C0008780000F80000F80000F80000F80000F80000F80000F80000F80000F80000
+7800007C00007C00003C00011E00011E00020F000207000403801800E060003F80181F7D9E1D>
+99 D<003F800000E0E0000380380007003C000E001E001E001E001C000F003C000F007C000F00
+78000F8078000780F8000780F8000780FFFFFF80F8000000F8000000F8000000F8000000F80000
+00F8000000780000007C0000003C0000003C0000801E0000800E0001000F0002000780020001C0
+0C0000F03000001FC000191F7E9E1D>101 D<0007E0001C1000383800707C00E07C01E07C01C0
+3803C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C000FFFF
+C0FFFFC003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C0
+0003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C0
+0003C00007E0007FFF007FFF0016327FB114>I<000000F0007F030801C1C41C0380E81C070070
+080F0078001E003C001E003C003E003E003E003E003E003E003E003E003E003E003E003E001E00
+3C001E003C000F007800070070000780E00009C1C000087F000018000000180000001800000018
+000000180000001C0000000E0000000FFFF80007FFFF0003FFFF800E000FC0180001E0300000F0
+70000070E0000038E0000038E0000038E0000038E00000387000007070000070380000E01C0001
+C00700070001C01C00003FE0001E2F7E9F21>I<01800000003F80000000FF80000000FF800000
+000F80000000078000000007800000000780000000078000000007800000000780000000078000
+000007800000000780000000078000000007800000000780000000078000000007800000000780
+FE00000783078000078C03C000079001E00007A001E00007A000F00007C000F00007C000F00007
+8000F000078000F000078000F000078000F000078000F000078000F000078000F000078000F000
+078000F000078000F000078000F000078000F000078000F000078000F000078000F000078000F0
+00078000F000078000F000078000F000078000F0000FC001F800FFFC1FFF80FFFC1FFF8021327E
+B125>I<07000F801F801F800F8007000000000000000000000000000000000000000000000001
+801F80FF80FF800F80078007800780078007800780078007800780078007800780078007800780
+078007800780078007800780078007800FC0FFF8FFF80D307EAF12>I<01803F80FF80FF800F80
+078007800780078007800780078007800780078007800780078007800780078007800780078007
+800780078007800780078007800780078007800780078007800780078007800780078007800780
+0780078007800FC0FFFCFFFC0E327EB112>108 D<0180FE001FC0003F83078060F000FF8C03C1
+807800FF9001E2003C000FA001E4003C0007A000F4001E0007C000F8001E0007C000F8001E0007
+8000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F000
+1E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E000780
+00F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E00078000F0001E
+00078000F0001E00078000F0001E00078000F0001E000FC001F8003F00FFFC1FFF83FFF0FFFC1F
+FF83FFF0341F7E9E38>I<0180FE00003F83078000FF8C03C000FF9001E0000FA001E00007A000
+F00007C000F00007C000F000078000F000078000F000078000F000078000F000078000F0000780
+00F000078000F000078000F000078000F000078000F000078000F000078000F000078000F00007
+8000F000078000F000078000F000078000F000078000F000078000F000078000F0000FC001F800
+FFFC1FFF80FFFC1FFF80211F7E9E25>I<001FC00000F0780001C01C00070007000F0007801E00
+03C01C0001C03C0001E03C0001E0780000F0780000F0780000F0F80000F8F80000F8F80000F8F8
+0000F8F80000F8F80000F8F80000F8F80000F8780000F07C0001F03C0001E03C0001E01E0003C0
+1E0003C00F00078007800F0001C01C0000F07800001FC0001D1F7E9E21>I<0183E03F8C18FF90
+7CFF907C0FA07C07C03807C00007C00007C0000780000780000780000780000780000780000780
+000780000780000780000780000780000780000780000780000780000780000780000780000FC0
+00FFFE00FFFE00161F7E9E19>114 D<00400000400000400000400000400000C00000C00000C0
+0001C00001C00003C00007C0000FC0001FFFE0FFFFE003C00003C00003C00003C00003C00003C0
+0003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C01003C01003C0
+1003C01003C01003C01003C01003C01001C02001E02000E0400078C0001F00142C7FAB19>116
+D<01800030003F8007F000FF801FF000FF801FF0000F8001F000078000F000078000F000078000
+F000078000F000078000F000078000F000078000F000078000F000078000F000078000F0000780
+00F000078000F000078000F000078000F000078000F000078000F000078000F000078000F00007
+8001F000078001F000078001F000038002F00003C004F00001C008F800007030FF80001FC0FF80
+211F7E9E25>I E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300
+TeXDict begin @a4 /a4 where {pop a4} if
+%%EndSetup
+%%Page: 1 1
+bop 149 342 a Fq(Reference)22 b(Man)n(ual)e(of)i(the)g(Programming)e
+(Language)h(Lua)683 468 y Fp(Rob)q(erto)c(Ierusalimsc)o(h)o(y)618
+526 y(Luiz)f(Henrique)e(de)j(Figueiredo)678 584 y(W)l(aldemar)e(Celes)g
+(Filho)725 664 y Fo(T)m(eCGraf)e(|)g(PUC-Rio)616 722 y(rob)q(erto,)i(lhf,)d
+(celes@icad.puc-rio.br)778 823 y Fp(Ma)o(y)k(27,)h(1994)830
+991 y Fn(Abstract)164 1067 y Fo(Lua)j(is)g(an)g(em)o(b)q(edded)g(programming)
+c(language)k(designed)g(to)g(b)q(e)h(used)g(as)f(a)g(con\014guration)102
+1117 y(language)13 b(for)h(an)o(y)f(program)f(that)j(needs)g(one.)j(This)c
+(do)q(cumen)o(t)g(describ)q(es)i(the)f(Lua)e(programming)102
+1166 y(language)c(and)g(the)h(API)g(that)g(allo)o(ws)e(in)o(teraction)i(b)q
+(et)o(w)o(een)h(Lua)e(programs)f(and)i(its)f(host)h(C)g(program.)102
+1216 y(It)k(also)f(presen)o(ts)j(some)d(examples)g(of)g(using)h(the)g(main)e
+(features)j(of)e(the)i(system.)869 1471 y Fn(Sum\023)-24 b(ario)102
+1538 y Fo(Lua)9 b(\023)-20 b(e)11 b(uma)d(linguagem)g(de)j(extens~)-21
+b(ao)11 b(pro)r(jetada)f(para)h(ser)g(usada)f(como)f(linguagem)f(de)j
+(con\014gura\030)-18 b(c~)d(ao)102 1588 y(em)19 b(qualquer)i(programa)d(que)j
+(precise)h(de)f(uma.)37 b(Este)21 b(do)q(cumen)o(to)f(descrev)o(e)j(a)d
+(linguagem)e(de)102 1638 y(programa\030)-18 b(c~)d(ao)14 b(Lua)h(e)h(a)g(In)o
+(terface)h(de)f(Programa\030)-18 b(c~)d(ao)14 b(que)i(p)q(ermite)g(a)f(in)o
+(tera\030)-18 b(c~)d(ao)16 b(en)o(tre)h(programas)102 1688
+y(Lua)d(e)h(o)f(programa)e(C)i(hosp)q(edeiro.)20 b(O)15 b(do)q(cumen)o(to)e
+(tam)o(b)o(\023)-20 b(em)12 b(apresen)o(ta)k(alguns)d(exemplos)h(de)h(uso)102
+1737 y(das)f(principais)f(caracter)-5 b(\023)-16 b(\020sticas)16
+b(do)d(sistema.)910 2976 y Fm(1)p eop
+%%Page: 2 2
+bop -12 160 a Fl(1)69 b(In)n(tro)r(duction)-12 261 y Fm(Lua)16
+b(is)h(an)f(em)o(b)q(edded)h(programming)e(language)h(designed)i(to)d(supp)q
+(ort)h(general)g(pro)q(cedural)h(program-)-12 318 y(ming)k(features)f(with)g
+(data)g(description)h(facilities.)37 b(It)20 b(is)h(supp)q(osed)g(to)f(b)q(e)
+h(used)f(as)g(a)g(con\014guration)-12 374 y(language)g(for)f(an)o(y)g
+(program)f(that)g(needs)j(one.)32 b(Lua)20 b(w)o(as)e(designed)j(b)o(y)f(R.)f
+(Ierusalimsc)o(h)o(y)l(,)i(L.)f(H.)f(de)-12 430 y(Figueiredo)d(and)g(W.)e
+(Celes,)i(and)f(implemen)o(ted)i(b)o(y)e(W.)g(Celes.)59 487
+y(Lua)j(is)g(implemen)o(ted)h(as)e(a)h(library)l(,)h(written)e(in)i(C.)e
+(Being)h(an)g(em)o(b)q(edded)h(language,)f(Lua)g(has)f(no)-12
+543 y(notion)j(of)f(a)g(\\main")g(program:)28 b(it)19 b(only)h(w)o(orks)f
+Fk(emb)n(e)n(dde)n(d)g Fm(in)h(a)f(host)g(clien)o(t,)j(called)f(the)e
+Fk(emb)n(e)n(dding)-12 600 y Fm(program.)g(This)c(host)g(program)e(can)i(in)o
+(v)o(ok)o(e)g(functions)h(to)e(execute)h(a)g(piece)h(of)e(co)q(de)i(in)f
+(Lua,)g(can)g(write)-12 656 y(and)i(read)g(Lua)h(v)m(ariables,)g(and)f(can)g
+(register)g(C)g(functions)h(to)e(b)q(e)i(called)g(b)o(y)f(Lua)h(co)q(de.)25
+b(Through)17 b(the)-12 713 y(use)d(of)g(C)f(functions,)i(Lua)f(can)g(b)q(e)h
+(augmen)o(ted)e(to)g(cop)q(e)i(with)f(rather)f(di\013eren)o(t)h(domains,)g
+(th)o(us)g(creating)-12 769 y(customized)i(programming)f(languages)g(sharing)
+h(a)f(syn)o(tactical)g(framew)o(ork.)59 826 y(Lua)k(is)g(free)g(distribution)
+h(soft)o(w)o(are,)e(and)h(pro)o(vided)g(as)g(usual)g(with)g(no)g(guaran)o
+(tees.)30 b(The)19 b(imple-)-12 882 y(men)o(tation)c(describ)q(ed)i(in)f
+(this)g(man)o(ual)f(is)h(a)o(v)m(ailable)h(b)o(y)e(anon)o(ymous)g(ftp)g(from)
+60 976 y Fj(ftp.icad.puc-rio.br:/pub)o(/lua/lua)o(_1.0.ta)o(r.Z)-12
+1119 y Fl(2)69 b(En)n(vironmen)n(t)21 b(and)i(Mo)r(dules)-12
+1221 y Fm(All)15 b(statemen)o(ts)d(in)j(Lua)e(are)h(executed)g(in)g(a)f
+Fk(glob)n(al)h(envir)n(onment)t Fm(.)k(This)d(en)o(vironmen)o(t,)e(whic)o(h)i
+(k)o(eeps)e(all)-12 1277 y(global)19 b(v)m(ariables)g(and)f(functions,)g(is)h
+(initialized)i(at)c(the)h(b)q(eginning)i(of)d(the)h(em)o(b)q(edding)h
+(program)e(and)-12 1334 y(p)q(ersists)f(un)o(til)g(its)g(end.)59
+1390 y(The)i(global)g(en)o(vironmen)o(t)g(can)g(b)q(e)g(manipulated)i(b)o(y)d
+(Lua)h(co)q(de)h(or)e(b)o(y)h(the)f(em)o(b)q(edding)j(program,)-12
+1446 y(whic)o(h)c(can)g(read)f(and)g(write)g(global)h(v)m(ariables)h(using)f
+(functions)g(in)g(the)f(library)h(that)e(implemen)o(ts)j(Lua.)59
+1503 y(Global)22 b(v)m(ariables)g(do)f(not)g(need)h(declaration.)39
+b(An)o(y)22 b(v)m(ariable)g(is)g(assumed)g(to)e(b)q(e)i(global)g(unless)-12
+1559 y(explicitly)17 b(declared)f(lo)q(cal)g(\(see)e(lo)q(cal)h
+(declarations,)g(Section)h(4.4.5\).)h(Before)e(the)f(\014rst)g(assignmen)o
+(t,)g(the)-12 1616 y(v)m(alue)j(of)d(a)h(global)h(v)m(ariable)h(is)e
+Fi(nil)p Fm(.)59 1672 y(The)g(unit)h(of)f(execution)h(of)f(Lua)h(is)f(called)
+i(a)e Fk(mo)n(dule)s Fm(.)20 b(The)c(syn)o(tax)e(for)h(mo)q(dules)h(is:)1563
+1656 y Fh(1)72 1744 y Fk(mo)n(dule)50 b Fg(!)g(f)p Fk(statement)32
+b Fg(j)16 b Fk(function)s Fg(g)-1 1816 y Fm(A)10 b(mo)q(dule)i(ma)o(y)e(con)o
+(tain)h(statemen)o(ts)e(and/or)h(function)i(de\014nitions,)g(and)f(ma)o(y)f
+(b)q(e)h(in)h(a)e(\014le)i(or)e(in)h(a)f(string)-12 1873 y(inside)16
+b(the)f(host)f(program.)k(When)d(a)f(mo)q(dule)i(is)f(executed,)g(\014rst)f
+(all)h(its)g(functions)g(and)f(statemen)o(ts)g(are)-12 1929
+y(compiled,)g(and)f(the)f(functions)h(added)g(to)f(the)g(global)h(en)o
+(vironmen)o(t;)g(then)g(the)f(statemen)o(ts)f(are)h(executed)-12
+1986 y(in)k(sequen)o(tial)g(order.)k(All)d(mo)q(di\014cations)f(a)f(mo)q
+(dule)h(e\013ects)f(on)g(the)g(global)h(en)o(vironmen)o(t)f(p)q(ersist)h
+(after)-12 2042 y(its)g(end.)k(Those)15 b(include)j(mo)q(di\014cations)e(to)f
+(global)g(v)m(ariables)i(and)e(de\014nitions)i(of)e(new)g(functions)1736
+2026 y Fh(2)1757 2042 y Fm(.)-12 2185 y Fl(3)69 b(T)n(yp)r(es)-12
+2287 y Fm(Lua)16 b(is)h(a)e(dynamically)j(t)o(yp)q(ed)e(language.)22
+b(V)l(ariables)17 b(do)f(not)f(ha)o(v)o(e)g(t)o(yp)q(es;)h(only)g(v)m(alues)h
+(do.)22 b(All)17 b(v)m(alues)-12 2343 y(carry)e(their)h(o)o(wn)e(t)o(yp)q(e.)
+20 b(Therefore,)15 b(there)g(are)g(no)g(t)o(yp)q(e)g(de\014nitions)i(in)f
+(the)g(language.)59 2400 y(There)f(are)g(sev)o(en)g(basic)g(t)o(yp)q(es)g(in)
+h(Lua:)k Fk(nil)p Fm(,)14 b Fk(numb)n(er)p Fm(,)g Fk(string)p
+Fm(,)g Fk(function)p Fm(,)g Fk(Cfunction)p Fm(,)g Fk(user)n(data)p
+Fm(,)h(and)-12 2456 y Fk(table)p Fm(.)25 b Fk(Nil)16 b Fm(is)h(the)g(t)o(yp)q
+(e)g(of)g(the)g(v)m(alue)h Fi(nil)p Fm(,)g(whose)f(main)g(prop)q(ert)o(y)g
+(is)g(to)f(b)q(e)i(di\013eren)o(t)f(from)f(an)o(y)h(other)-12
+2513 y(v)m(alue.)k Fk(Numb)n(er)15 b Fm(represen)o(ts)h(real)f(\(\015oating)g
+(p)q(oin)o(t\))g(n)o(um)o(b)q(ers,)g(while)i Fk(string)d Fm(has)i(the)f
+(usual)h(meaning.)59 2569 y(F)l(unctions)f(are)e(considered)j(\014rst-class)e
+(v)m(alues)i(in)f(Lua.)k(This)c(means)f(that)g(functions)h(can)f(b)q(e)h
+(stored)-12 2626 y(in)h(v)m(ariables,)g(passed)f(as)f(argumen)o(ts)g(to)h
+(other)f(functions)i(and)f(returned)g(as)g(results.)20 b(When)15
+b(a)f(function)-12 2682 y(in)19 b(Lua)g(is)f(de\014ned,)i(its)f(b)q(o)q(dy)f
+(is)h(compiled)h(and)e(stored)g(in)h(a)f(global)h(v)m(ariable)g(with)g(the)f
+(giv)o(en)h(name.)p -12 2722 747 2 v 40 2749 a Ff(1)57 2764
+y Fe(As)12 b(usual)i(in)g(extended)f(BNF,)f Fd(f)p Fc(a)s Fd(g)g
+Fe(means)h(0)g(or)f(more)h Fc(a)s Fe('s,)e([)p Fc(a)s Fe(])g(means)i(an)g
+(optional)h Fc(a)e Fe(and)h Fd(f)p Fc(a)s Fd(g)1500 2749 y
+Ff(+)1538 2764 y Fe(means)g(one)g(or)f(more)-12 2810 y Fc(a)s
+Fe('s.)40 2840 y Ff(2)57 2856 y Fe(Actually)m(,)i(a)f(function)i
+(de\014nition)h(is)d(an)g(assignmen)o(t)i(to)e(a)g(global)i(v)n(ariable;)g
+(see)e(Section)i(3.)910 2976 y Fm(2)p eop
+%%Page: 3 3
+bop -12 160 a Fm(Lua)16 b(can)f(call)i(\(and)e(manipulate\))h(functions)h
+(written)e(in)h(Lua)g(and)g(functions)g(written)f(in)h(C;)f(the)h(latter)-12
+216 y(ha)o(v)o(e)f(t)o(yp)q(e)g Fk(Cfunction)s Fm(.)59 273
+y(The)h(t)o(yp)q(e)g Fk(user)n(data)h Fm(is)f(pro)o(vided)h(to)e(allo)o(w)i
+(arbitrary)e(C)h(p)q(oin)o(ters)g(to)g(b)q(e)h(stored)e(in)i(Lua)f(v)m
+(ariables.)-12 329 y(It)h(corresp)q(onds)g(to)f Fj(void*)g
+Fm(and)g(has)h(no)g(v)m(alid)h(op)q(erations)f(in)g(Lua,)g(b)q(esides)h
+(assignmen)o(t)f(and)g(equalit)o(y)-12 385 y(test.)59 442 y(The)c(t)o(yp)q(e)
+h Fk(table)f Fm(implemen)o(ts)h(asso)q(ciativ)o(e)g(arra)o(ys,)e(that)h(is,)g
+(arra)o(ys)f(that)h(can)g(b)q(e)h(indexed)h(b)q(oth)f(with)-12
+498 y(n)o(um)o(b)q(ers)19 b(and)f(with)h(strings.)29 b(Therefore,)19
+b(this)g(t)o(yp)q(e)f(ma)o(y)g(b)q(e)h(used)g(not)f(only)h(to)f(represen)o(t)
+g(ordinary)-12 555 y(arra)o(ys,)h(but)h(also)f(sym)o(b)q(ol)h(tables,)g
+(sets,)g(records,)g(etc.)33 b(T)l(o)19 b(represen)o(t)h(a)f(record,)h(Lua)g
+(uses)f(the)h(\014eld)-12 611 y(name)13 b(as)g(an)g(index.)21
+b(The)13 b(language)g(supp)q(orts)g(this)h(represen)o(tation)f(b)o(y)g(pro)o
+(viding)h Fj(a.name)f Fm(as)f(syn)o(tactic)-12 668 y(sugar)j(for)f
+Fj(a["name"])p Fm(.)59 724 y(It)i(is)g(imp)q(ortan)o(t)f(to)g(notice)i(that)e
+(tables)h(are)f(ob)s(jects,)g(and)h(not)f(v)m(alues.)23 b(V)l(ariables)17
+b(cannot)e(con)o(tain)-12 781 y(tables,)e(only)h(references)f(to)f(them.)19
+b(Assignmen)o(t,)13 b(parameter)f(passing)i(and)e(returns)h(alw)o(a)o(ys)f
+(manipulate)-12 837 y(references)18 b(to)f(tables,)h(and)f(do)h(not)f(imply)h
+(an)o(y)f(kind)i(of)e(cop)o(y)l(.)26 b(Moreo)o(v)o(er,)16 b(tables)i(m)o(ust)
+e(b)q(e)j(explicitly)-12 894 y(created)c(b)q(efore)h(used;)f(see)h(Section)g
+(4.5.7.)-12 1037 y Fl(4)69 b(The)23 b(Language)-12 1138 y Fm(This)16
+b(section)g(describ)q(es)h(the)e(lexis,)h(syn)o(tax)e(and)i(seman)o(tics)f
+(of)g(Lua.)-12 1260 y Fb(4.1)56 b(Lexical)17 b(Con)n(v)n(en)n(tions)-12
+1346 y Fm(Lua)c(is)g(a)f(case)g(sensitiv)o(e)i(language.)19
+b(Iden)o(ti\014ers)14 b(can)e(b)q(e)h(an)o(y)f(string)h(of)f(letters,)g
+(digits,)i(and)e(underscores,)-12 1402 y(not)h(b)q(eginning)h(with)f(a)g
+(digit.)20 b(The)13 b(follo)o(wing)g(w)o(ords)f(are)h(reserv)o(ed,)g(and)g
+(cannot)f(b)q(e)h(used)h(as)e(iden)o(ti\014ers:)203 1496 y
+Fj(and)143 b(do)190 b(else)143 b(elseif)95 b(end)203 1552 y(function)23
+b(if)190 b(local)119 b(nil)167 b(not)203 1609 y(or)g(repeat)94
+b(return)h(until)119 b(then)95 b(while)59 1703 y Fm(The)15
+b(follo)o(wing)h(strings)f(denote)h(other)e(tok)o(ens:)203
+1797 y Fj(~=)47 b(<=)h(>=)f(<)72 b(>)f(=)h(..)47 b(+)72 b(-)f(*)g(/)h(\045)
+203 1853 y(\()f(\))h({)f(})h([)f(])h(@)f(;)h(,)f(.)59 1947
+y Fm(Literal)17 b(strings)f(can)h(b)q(e)g(delimited)h(b)o(y)f(matc)o(hing)f
+(single)i(or)d(double)j(quotes,)e(and)g(can)h(con)o(tain)f(the)-12
+2003 y(C-lik)o(e)f(escap)q(e)g(sequences)g Fj('\\n')p Fm(,)e
+Fj('\\t')h Fm(and)g Fj('\\r')p Fm(.)19 b(Commen)o(ts)13 b(start)g(an)o
+(ywhere)h(outside)g(a)g(string)g(with)-12 2060 y(a)h(double)i(h)o(yphen)f(\()
+p Fj(--)p Fm(\))e(and)h(run)h(un)o(til)g(the)f(end)h(of)f(the)g(line.)59
+2116 y(Numerical)e(constan)o(ts)e(ma)o(y)g(b)q(e)h(written)g(with)g(an)f
+(optional)h(decimal)i(part,)d(and)h(an)g(optional)g(decimal)-12
+2173 y(exp)q(onen)o(t.)21 b(Examples)15 b(of)g(v)m(alid)i(n)o(umerical)f
+(constan)o(ts)f(are:)155 2266 y Fj(4)119 b(4.)g(.4)g(4.57e-3)g(.3e12)-12
+2388 y Fb(4.2)56 b(Co)r(ercion)-12 2474 y Fm(Lua)17 b(pro)o(vides)g(some)g
+(automatic)f(con)o(v)o(ersions.)24 b(An)o(y)17 b(arithmetic)g(op)q(eration)g
+(applied)i(to)d(a)g(string)h(tries)-12 2530 y(to)g(con)o(v)o(ert)g(that)g
+(string)g(to)g(a)g(n)o(um)o(b)q(er,)h(follo)o(wing)h(the)e(usual)h(rules.)28
+b(More)17 b(sp)q(eci\014cally)l(,)k(the)c(string)h(is)-12 2587
+y(con)o(v)o(erted)c(to)f(a)h(n)o(um)o(b)q(er)g(using)h(the)f(standard)g
+Fj(strtod)f Fm(C)h(function.)20 b(Con)o(v)o(ersely)l(,)14 b(whenev)o(er)g(a)g
+(n)o(um)o(b)q(er)-12 2643 y(is)22 b(used)h(when)f(a)g(string)f(is)i(exp)q
+(ected,)h(that)d(n)o(um)o(b)q(er)h(is)h(con)o(v)o(erted)e(to)g(a)h(string,)h
+(according)f(to)f(the)-12 2700 y(follo)o(wing)e(rule:)28 b(if)19
+b(the)g(n)o(um)o(b)q(er)f(is)h(an)g(in)o(teger,)g(it)g(is)g(written)g
+(without)f(exp)q(onen)o(t)h(or)f(decimal)i(p)q(oin)o(t;)-12
+2756 y(otherwise,)e(it)g(is)g(formatted)e(follo)o(wing)i(the)f(\\)p
+Fj(\045g)p Fm(")g(con)o(v)o(ersion)g(sp)q(eci\014cation)j(of)d(the)g
+(standard)g Fj(printf)-12 2813 y Fm(C)e(function.)910 2976
+y(3)p eop
+%%Page: 4 4
+bop -12 160 a Fb(4.3)56 b(Adjustmen)n(t)-12 245 y Fm(F)l(unctions)16
+b(in)h(Lua)e(can)h(return)f(man)o(y)g(v)m(alues.)22 b(Because)16
+b(there)f(are)h(no)f(t)o(yp)q(e)g(declarations,)h(the)g(system)-12
+302 y(do)q(es)h(not)e(kno)o(w)h(ho)o(w)f(man)o(y)h(v)m(alues)h(a)f(function)g
+(will)i(return.)k(Therefore,)16 b(sometimes,)g(a)g(list)h(of)e(v)m(alues)-12
+358 y(m)o(ust)f(b)q(e)g Fk(adjuste)n(d)5 b Fm(,)14 b(at)f(run)h(time,)h(to)e
+(a)h(giv)o(en)g(length.)20 b(If)14 b(there)g(are)g(more)g(v)m(alues)h(than)e
+(are)h(needed,)h(the)-12 415 y(last)h(v)m(alues)i(are)e(thro)o(wn)f(a)o(w)o
+(a)o(y)l(.)21 b(If)c(there)f(are)g(more)g(needs)h(than)f(v)m(alues,)h(the)f
+(list)h(is)g(extended)g(with)g(as)-12 471 y(man)o(y)e Fi(nil)p
+Fm('s)h(as)f(needed.)21 b(Adjustmen)o(t)15 b(also)g(o)q(ccurs)g(in)h(other)f
+(con)o(texts,)f(suc)o(h)i(as)f(m)o(ultiple)i(assignmen)o(t.)-12
+593 y Fb(4.4)56 b(Statemen)n(ts)-12 679 y Fm(Lua)18 b(supp)q(orts)f(an)g
+(almost)f(con)o(v)o(en)o(tional)i(set)e(of)h(statemen)o(ts.)24
+b(The)18 b(con)o(v)o(en)o(tional)f(commands)g(include)-12 735
+y(assignmen)o(t,)d(con)o(trol)h(structures)f(and)h(pro)q(cedure)g(calls.)21
+b(Non-con)o(v)o(en)o(tional)15 b(commands)g(include)i(table)-12
+792 y(constructors,)d(explained)j(in)f(Section)h(4.5.7,)c(and)i(lo)q(cal)h(v)
+m(ariable)h(declarations.)-12 912 y Fi(4.4.1)52 b(Blo)q(c)o(ks)-12
+998 y Fm(A)13 b(blo)q(c)o(k)g(is)g(a)f(list)i(of)e(statemen)o(ts,)g(executed)
+h(sequen)o(tially)l(.)21 b(An)o(y)13 b(statemen)o(t)e(can)i(b)q(e)g
+(optionally)h(follo)o(w)o(ed)-12 1054 y(b)o(y)h(a)g(semicolon.)72
+1122 y Fk(blo)n(ck)49 b Fg(!)h(f)p Fk(stat)16 b(sc)s Fg(g)f
+Fm([)p Fk(r)n(et)h(sc)s Fm(])128 1179 y Fk(sc)49 b Fg(!)h Fm([';'])2
+1247 y(F)l(or)13 b(syn)o(tactic)g(reasons,)h(a)f(return)h(statemen)o(t)e(can)
+i(only)g(b)q(e)g(written)g(as)f(the)h(last)g(statemen)o(t)e(of)i(a)f(blo)q(c)
+o(k.)-12 1303 y(This)j(restriction)g(also)f(a)o(v)o(oids)g(some)g(\\statemen)
+o(t)e(not)i(reac)o(hed")g(errors.)-12 1423 y Fi(4.4.2)52 b(Assignmen)n(t)-12
+1509 y Fm(The)17 b(language)g(allo)o(ws)g(m)o(ultiple)i(assignmen)o(t.)24
+b(Therefore,)17 b(the)g(syn)o(tax)f(de\014nes)i(a)e(list)i(of)e(v)m(ariables)
+i(on)-12 1566 y(the)13 b(left)g(side,)g(and)g(a)f(list)i(of)e(expressions)h
+(on)g(the)f(righ)o(t)h(side.)20 b(Both)12 b(lists)h(ha)o(v)o(e)f(their)h
+(elemen)o(ts)h(separated)-12 1622 y(b)o(y)h(commas.)146 1690
+y Fk(stat)49 b Fg(!)i Fk(varlist1)16 b Fm('=')g Fk(explist1)72
+1747 y(varlist1)49 b Fg(!)i Fk(var)16 b Fg(f)p Fm(',')f Fk(var)5
+b Fg(g)2 1815 y Fm(This)14 b(statemen)o(t)f(\014rst)h(ev)m(aluates)g(all)h(v)
+m(alues)g(on)f(the)g(righ)o(t)g(side)g(and)h(ev)o(en)o(tual)f(indices)i(on)e
+(the)f(left)i(side,)-12 1872 y(and)h(then)f(mak)o(es)g(the)g(assignmen)o(ts.)
+20 b(Therefore,)14 b(it)i(can)f(b)q(e)h(used)g(to)e(exc)o(hange)i(t)o(w)o(o)e
+(v)m(alues,)i(as)e(in)60 1965 y Fj(x,)23 b(y)h(=)g(y,)f(x)-12
+2059 y Fm(Before)18 b(the)f(assignmen)o(t,)h(the)g(list)g(of)f(v)m(alues)i
+(is)f Fk(adjuste)n(d)g Fm(to)f(the)h(length)g(of)f(the)h(list)g(of)f(v)m
+(ariables)i(\(see)-12 2116 y(Section)d(4.3\).)59 2172 y(A)f(single)i(name)e
+(can)g(denote)h(a)e(global)i(or)f(a)g(lo)q(cal)h(v)m(ariable.)72
+2240 y Fk(var)50 b Fg(!)g Fk(name)72 2297 y(var)g Fg(!)g Fk(var)17
+b Fm('[')e Fk(exp1)i Fm(']')31 b Fg(j)16 b Fk(var)g Fm('.')k
+Fk(name)4 2365 y Fm(Brac)o(k)o(ets)c(are)g(used)h(to)f(index)h(a)f(table.)24
+b(In)17 b(this)g(case,)f Fj(var)g Fm(m)o(ust)g(result)h(in)g(a)f(table)h(v)m
+(alue;)g(otherwise,)-12 2421 y(there)e(is)h(an)f(execution)i(error.)i(The)c
+(syn)o(tax)g Fj(var.NAME)f Fm(is)h(just)g(syn)o(tactic)g(sugar)g(for)g
+Fj(var["NAME"])p Fm(.)-12 2542 y Fi(4.4.3)52 b(Con)o(trol)17
+b(Structures)-12 2627 y Fm(The)e(condition)h(expression)f(of)f(a)h(con)o
+(trol)f(structure)g(can)h(return)g(an)o(y)f(v)m(alue.)21 b(All)16
+b(v)m(alues)f(di\013eren)o(t)g(from)-12 2684 y Fi(nil)i Fm(are)e(considered)i
+(true,)f(while)h Fi(nil)f Fm(is)h(considered)g(false.)k Fj(If)p
+Fm(s,)15 b Fj(while)p Fm(s)g(and)h Fj(repeat)p Fm(s)f(ha)o(v)o(e)g(the)h
+(usual)-12 2740 y(meaning.)910 2976 y(4)p eop
+%%Page: 5 5
+bop 100 158 a Fk(stat)50 b Fg(!)g Fi(while)17 b Fk(exp1)g Fi(do)f
+Fk(blo)n(ck)g Fi(end)100 214 y Fk(stat)50 b Fg(!)g Fi(rep)q(eat)17
+b Fk(blo)n(ck)e Fi(un)o(til)i Fk(exp1)100 271 y(stat)50 b Fg(!)g
+Fi(if)17 b Fk(exp1)f Fi(then)h Fk(blo)n(ck)e Fg(f)p Fk(elseif)9
+b Fg(g)16 b Fm([)p Fi(else)g Fk(blo)n(ck)5 b Fm(])15 b Fi(end)72
+327 y Fk(elseif)49 b Fg(!)h Fi(elseif)17 b Fk(exp1)f Fi(then)h
+Fk(blo)n(ck)59 420 y Fm(A)g Fj(return)g Fm(is)h(used)h(to)e(return)g(v)m
+(alues)i(from)e(a)g(function.)28 b(Because)18 b(a)g(function)g(ma)o(y)f
+(return)h(more)-12 477 y(than)d(one)h(v)m(alue,)g(the)f(syn)o(tax)f(for)h(a)g
+(return)g(statemen)o(t)f(is:)72 549 y Fk(r)n(et)49 b Fg(!)i
+Fi(return)15 b Fk(explist)-12 741 y Fi(4.4.4)52 b(Expressions)16
+b(as)i(Statemen)o(ts)-12 827 y Fm(All)c(expressions)e(with)h(p)q(ossible)h
+(side-e\013ects)e(can)h(b)q(e)f(executed)h(as)f(statemen)o(ts.)18
+b(These)12 b(include)i(function)-12 883 y(calls)i(and)g(table)f
+(constructors:)72 943 y Fk(stat)50 b Fg(!)g Fk(functionc)n(al)r(l)72
+999 y(stat)g Fg(!)g Fk(table)n(c)n(onstructor)1 1067 y Fm(Ev)o(en)o(tual)14
+b(returned)f(v)m(alues)i(are)d(thro)o(wn)h(a)o(w)o(a)o(y)l(.)18
+b(F)l(unction)c(calls)g(are)f(explained)i(in)f(Section)g(4.5.8,)e(while)-12
+1124 y(constructors)j(are)f(the)i(sub)s(ject)f(of)g(Section)h(4.5.7.)-12
+1244 y Fi(4.4.5)52 b(Lo)q(cal)20 b(Declarations)-12 1330 y
+Fm(Lo)q(cal)h(v)m(ariables)g(can)e(b)q(e)h(declared)h(an)o(ywhere)f(inside)h
+(a)e(blo)q(c)o(k.)34 b(Their)20 b(scop)q(e)g(b)q(egins)h(after)e(the)h(dec-)
+-12 1386 y(laration)h(and)g(lasts)g(un)o(til)h(the)f(blo)q(c)o(k)h(end.)38
+b(The)21 b(declaration)g(ma)o(y)g(include)i(an)e(initial)i(assignmen)o(t:)122
+1502 y Fk(stat)50 b Fg(!)g Fi(lo)q(cal)18 b Fk(de)n(clist)e
+Fm([)p Fk(init)t Fm(])72 1558 y Fk(de)n(clist)49 b Fg(!)h Fk(name)16
+b Fg(f)p Fm(',')f Fk(name)s Fg(g)125 1615 y Fk(init)50 b Fg(!)g
+Fm('=')16 b Fk(explist1)0 1683 y Fm(If)c(there)f(is)h(an)g(initial)i
+(assignmen)o(t,)d(it)h(has)g(the)f(same)h(seman)o(tics)f(of)h(a)f(m)o
+(ultiple)i(assignmen)o(t.)19 b(Otherwise,)-12 1740 y(all)d(v)m(ariables)h
+(are)e(initialized)j(with)e Fi(nil)p Fm(.)-12 1861 y Fb(4.5)56
+b(Expressions)-12 1947 y Fi(4.5.1)c(Simple)16 b(Expressions)-12
+2033 y Fm(Simple)h(expressions)f(are:)72 2101 y Fk(exp)50 b
+Fg(!)g Fm('\(')15 b Fk(exp)i Fm('\)')72 2157 y Fk(exp)50 b
+Fg(!)g Fi(nil)72 2214 y Fk(exp)g Fg(!)g Fm('n)o(um)o(b)q(er')72
+2270 y Fk(exp)g Fg(!)g Fm('literal')72 2327 y Fk(exp)g Fg(!)g
+Fk(var)4 2398 y Fm(Num)o(b)q(ers)16 b(\(n)o(umerical)g(constan)o(ts\))e(and)i
+(string)g(literals)g(are)g(explained)h(in)g(Section)f(4.1.)k(V)l(ariables)d
+(are)-12 2454 y(explained)g(in)g(Section)f(4.4.2.)-12 2574
+y Fi(4.5.2)52 b(Arithmetic)16 b(Op)q(erators)-12 2660 y Fm(Lua)f(supp)q(orts)
+f(the)g(usual)g(arithmetic)h(op)q(erators,)e(with)h(the)g(usual)h(meaning.)20
+b(These)14 b(op)q(erators)g(are)f(the)-12 2716 y(binary)k Fj(+)p
+Fm(,)e Fj(-)p Fm(,)h Fj(*)g Fm(and)g Fj(/)p Fm(,)f(and)h(the)h(unary)e
+Fj(+)h Fm(and)g Fj(-)p Fm(.)22 b(The)16 b(op)q(erands)h(m)o(ust)e(b)q(e)i(n)o
+(um)o(b)q(ers,)f(or)f(strings)h(that)-12 2773 y(can)g(b)q(e)f(con)o(v)o
+(erted)g(to)g(n)o(um)o(b)q(ers,)g(according)h(to)e(the)h(rules)h(giv)o(en)g
+(in)g(Section)g(4.2.)910 2976 y(5)p eop
+%%Page: 6 6
+bop -12 160 a Fi(4.5.3)52 b(Relational)20 b(Op)q(erators)-12
+245 y Fm(Lua)c(o\013ers)e(the)h(follo)o(wing)h(relational)g(op)q(erators:)155
+339 y Fj(<)72 b(>)f(<=)48 b(>=)f(~=)g(=)-12 433 y Fm(All)17
+b(return)e Fi(nil)h Fm(as)f(false)g(and)h(1)f(as)f(true.)59
+490 y(Equalit)o(y)19 b(\014rst)f(compares)g(the)g(t)o(yp)q(es)h(of)f(its)h
+(op)q(erands.)30 b(If)18 b(they)h(are)f(di\013eren)o(t,)h(the)g(result)g(is)g
+Fi(nil)p Fm(.)-12 546 y(Otherwise,)h(their)e(v)m(alues)i(are)d(compared.)29
+b(Num)o(b)q(ers)19 b(and)f(strings)g(are)g(compared)g(in)h(the)g(usual)f(w)o
+(a)o(y)l(.)-12 602 y(T)l(ables,)c(Cfunctions,)g(and)g(functions)g(are)f
+(compared)g(b)o(y)h(reference,)g(that)e(is,)i(t)o(w)o(o)e(tables)i(are)f
+(considered)-12 659 y(equal)j(only)g(if)g(they)f(are)g(the)g(same)g(table.)20
+b(The)c(op)q(erator)e Fj(~=)h Fm(is)h(exactly)f(the)g(negation)h(of)f
+(equalit)o(y)g(\()p Fj(=)p Fm(\).)59 715 y(The)f(other)f(op)q(erators)f(can)i
+(only)g(b)q(e)g(applied)i(to)d(strings)g(and)h(n)o(um)o(b)q(ers.)20
+b(If)14 b(one)f(of)g(the)h(argumen)o(ts)f(is)-12 772 y(a)g(string,)h(the)f
+(other)g(is)h(con)o(v)o(erted)f(to)g(a)g(string,)g(and)h(their)g(v)m(alues)g
+(are)f(compared)h(using)g(lexicographical)-12 828 y(order.)20
+b(Otherwise,)15 b(b)q(oth)h(are)f(n)o(um)o(b)q(ers)g(and)h(are)e(compared)i
+(as)e(suc)o(h.)-12 948 y Fi(4.5.4)52 b(Logical)20 b(Op)q(erators)-12
+1034 y Fm(All)g(logical)g(op)q(erators,)f(lik)o(e)h(con)o(trol)e(structures,)
+h(consider)h Fi(nil)g Fm(as)e(false)i(and)f(an)o(ything)g(else)g(as)g(true.)
+-12 1091 y(Lik)o(e)d(relational)g(op)q(erators,)e(they)i(return)f
+Fi(nil)h Fm(as)f(false)g(and)h(1)f(as)f(true.)20 b(The)c(logical)g(op)q
+(erators)e(are:)298 1184 y Fj(and)72 b(or)f(not)-12 1278 y
+Fm(The)18 b(op)q(erators)f Fj(and)g Fm(and)h Fj(or)g Fm(use)g(short-cut)f(ev)
+m(aluation,)j(that)d(is,)h(the)g(second)h(op)q(erand)f(is)g(ev)m(aluated)-12
+1335 y(only)e(if)g(necessary)l(.)-12 1455 y Fi(4.5.5)52 b(Concatenation)-12
+1541 y Fm(Lua)15 b(o\013ers)f(a)g(string)g(concatenation)h(op)q(erator,)e
+(denoted)i(b)o(y)g(\\)p Fj(..)p Fm(".)k(The)14 b(op)q(erands)h(m)o(ust)f(b)q
+(e)h(strings)g(or)-12 1597 y(n)o(um)o(b)q(ers,)g(whic)o(h)h(are)f(con)o(v)o
+(erted)g(to)g(strings)g(according)g(to)g(the)g(rules)h(in)g(Section)g(4.2.)
+-12 1717 y Fi(4.5.6)52 b(Precedence)-12 1803 y Fm(Op)q(erator)15
+b(precedence)i(follo)o(ws)e(the)h(table)f(b)q(elo)o(w,)h(from)e(the)h(lo)o(w)
+o(er)g(to)g(the)g(higher)h(priorit)o(y:)298 1897 y Fj(and)72
+b(or)298 1953 y(<)g(>)f(<=)48 b(>=)f(~=)h(=)298 2010 y(..)298
+2066 y(+)72 b(-)298 2122 y(*)g(/)298 2179 y(not)48 b(+)23 b(\(unary\))47
+b(-)24 b(\(unary\))-12 2273 y Fm(All)17 b(binary)e(op)q(erators)g(are)g(left)
+g(asso)q(ciativ)o(e.)-12 2393 y Fi(4.5.7)52 b(T)l(able)18 b(Constructors)-12
+2479 y Fm(T)l(able)13 b(constructors)e(are)h(expressions)h(that)e(create)h
+(tables.)19 b(T)l(able)13 b(constructors)e(are)h(o\013ered)f(in)i(di\013eren)
+o(t)-12 2535 y(\015a)o(v)o(ors.)19 b(The)c(simplest)i(one)e(is:)72
+2607 y Fk(table)n(c)n(onstructor)49 b Fg(!)h Fm('@')16 b('\(')f([)p
+Fk(exp1)6 b Fm(])17 b('\)')5 2679 y(Suc)o(h)h(an)f(expression)h(results)f(in)
+h(a)f(new)g(empt)o(y)g(table.)26 b(An)18 b(optional)f(dimension)i(ma)o(y)e(b)
+q(e)g(giv)o(en)h(as)f(a)-12 2736 y(hin)o(t)g(to)f(the)h(initial)h(table)f
+(size.)25 b(Indep)q(enden)o(tly)19 b(of)d(the)g(initial)j(dimension,)f(all)g
+(arra)o(ys)d(in)i(Lua)g(stretc)o(h)-12 2792 y(dynamically)g(as)e(needed.)59
+2849 y(T)l(o)g(construct)g(a)f(table)i(and)f(initialize)k(some)c(\014elds,)h
+(the)f(follo)o(wing)h(syn)o(tax)e(is)i(a)o(v)m(ailable:)910
+2976 y(6)p eop
+%%Page: 7 7
+bop 72 160 a Fk(table)n(c)n(onstructor)49 b Fg(!)h Fm('@')16
+b([)p Fk(name)s Fm(])g Fk(\014eld)r(list)8 232 y Fm(Suc)o(h)k(an)g
+(expression)g(creates)g(a)f(new)h(table,)h(whic)o(h)g(will)g(b)q(e)f(its)g
+(\014nal)h(v)m(alue,)h(initialize)g(some)e(of)f(its)-12 288
+y(\014elds)i(according)g(to)e Fj(fieldlist)g Fm(\(see)h(b)q(elo)o(w\),)h
+(and,)g(if)f Fj(name)g Fm(is)g(giv)o(en,)h(calls)g(a)f(function)h(with)f
+(that)-12 345 y(name)14 b(passing)f(the)h(table)g(as)f(parameter.)18
+b(This)c(function)g(can)g(b)q(e)g(used)g(to)f(c)o(hec)o(k)h(\014eld)g(v)m
+(alues,)h(to)e(create)-12 401 y(default)j(\014elds,)g(or)f(for)f(an)o(y)h
+(other)g(side-e\013ect.)110 469 y Fk(\014eld)r(list)48 b Fg(!)j
+Fm(')p Fg(f)p Fm(')15 b([)p Fk(\016eld)r(list1)6 b Fm(])15
+b(')p Fg(g)p Fm(')72 526 y Fk(\016eld)r(list1)49 b Fg(!)i Fk(\016eld)16
+b Fg(f)p Fm(',')e Fk(\016eld)5 b Fg(g)157 582 y Fk(\016eld)49
+b Fg(!)i Fk(name)16 b Fm('=')g Fk(exp)3 650 y Fm(This)g(\014eld)h(list)f
+(initializes)i(named)d(\014elds)i(in)f(a)f(table.)20 b(As)15
+b(an)g(example:)60 730 y Fj(a)24 b(=)f(@f{x)h(=)f(1,)h(y)g(=)f(3})-12
+809 y Fm(is)16 b(equiv)m(alen)o(t)h(to:)60 888 y Fj(temp)23
+b(=)h(@\(2\))60 945 y(temp.x)f(=)h(1)60 1001 y(temp.y)f(=)h(3)60
+1058 y(f\(temp\))60 1114 y(a)g(=)f(temp)59 1193 y Fm(In)16
+b(order)f(to)f(initialize)k(a)d(list,)h(one)f(can)h(use)f(the)g(follo)o(wing)
+h(syn)o(tax:)107 1261 y Fk(\014eld)r(list)48 b Fg(!)j Fm('[')15
+b([)p Fk(l\014eld)r(list1)6 b Fm(])14 b(']')72 1318 y Fk(l\014eld)r(list1)48
+b Fg(!)j Fk(exp)16 b Fg(f)p Fm(',')f Fk(exp)s Fg(g)3 1386 y
+Fm(As)h(an)f(example:)60 1465 y Fj(a)24 b(=)f(@["v1",)g("vv"])-12
+1545 y Fm(is)16 b(equiv)m(alen)o(t)h(to:)60 1624 y Fj(temp)23
+b(=)h(@\(2\))60 1680 y(temp[1])f(=)g("v1")60 1737 y(temp[2])g(=)g("v2")60
+1793 y(a)h(=)f(temp)59 1872 y Fm(As)15 b(particular)h(cases,)f(the)g(follo)o
+(wing)h(t)o(w)o(o)e(expressions)i(are)e(completely)j(equiv)m(alen)o(t:)84
+1952 y Fj(@f{)23 b(})215 b(@f[)23 b(])-12 2069 y Fi(4.5.8)52
+b(F)l(unction)18 b(Calls)-12 2155 y Fm(A)d(function)h(call)h(has)e(the)g
+(follo)o(wing)h(syn)o(tax:)72 2223 y Fk(functionc)n(al)r(l)49
+b Fg(!)h Fk(var)16 b Fm('\(')g([)p Fk(explist1)6 b Fm(])15
+b('\)')154 2279 y Fk(explist1)50 b Fg(!)g(f)p Fk(exp1)16 b
+Fm(',')p Fg(g)f Fk(exp)5 2350 y Fm(Here,)i Fj(var)g Fm(can)g(b)q(e)h(an)o(y)e
+(v)m(ariable)j(\(global,)e(lo)q(cal,)h(indexed,)h(etc\))e(whose)g(v)m(alue)h
+(has)f(t)o(yp)q(e)g Fk(function)j Fm(or)-12 2407 y Fk(Cfunction)s
+Fm(.)g(All)c(argumen)o(t)e(expressions)i(are)f(ev)m(aluated)h(b)q(efore)f
+(the)g(call,)h(from)f(left)g(to)f(righ)o(t;)h(then)g(the)-12
+2463 y(list)k(of)f(argumen)o(ts)f(is)h(adjusted)g(to)g(the)g(length)g(of)g
+(the)g(list)h(of)e(parameters)g(\(see)h(Section)h(4.3\);)f(\014nally)-12
+2520 y(this)e(list)g(is)g(assigned)f(to)g(the)g(parameters.)59
+2576 y(Because)20 b(a)g(function)g(can)g(return)g(an)o(y)g(n)o(um)o(b)q(er)g
+(of)f(results)h(\(see)g(Section)h(4.4.3\),)e(the)h(n)o(um)o(b)q(er)g(of)-12
+2632 y(results)11 b(m)o(ust)f(b)q(e)h(adjusted)f(b)q(efore)h(used.)19
+b(If)10 b(the)h(function)g(is)g(called)h(as)e(an)g(statemen)o(t)f(\(see)h
+(Section)i(4.4.4\),)-12 2689 y(its)19 b(return)g(list)g(is)h(adjusted)f(to)f
+(0.)30 b(If)19 b(the)g(function)g(is)h(called)g(in)g(a)e(place)i(that)e
+(needs)i(a)e(single)i(v)m(alue)-12 2745 y(\(syn)o(tactically)13
+b(denoted)f(b)o(y)g(the)g(non-terminal)h Fj(exp1)p Fm(\),)f(its)g(return)g
+(list)h(is)f(adjusted)g(to)g(1.)18 b(If)12 b(the)g(function)-12
+2802 y(is)i(called)h(in)g(a)e(place)i(that)d(can)i(hold)h(man)o(y)e(v)m
+(alues)h(\(syn)o(tactically)h(denoted)f(b)o(y)f(the)h(non-terminal)g
+Fj(exp)p Fm(\),)-12 2858 y(no)h(adjustmen)o(t)g(is)h(done.)910
+2976 y(7)p eop
+%%Page: 8 8
+bop -12 160 a Fb(4.6)56 b(F)-5 b(unction)19 b(De\014nitions)-12
+245 y Fm(F)l(unctions)c(in)g(Lua)g(can)g(b)q(e)g(de\014ned)g(an)o(ywhere)g
+(in)g(the)f(global)h(lev)o(el)h(of)e(a)g(mo)q(dule;)h(functions)g(cannot)g(b)
+q(e)-12 302 y(de\014ned)i(inside)g(other)e(functions.)20 b(The)c(syn)o(tax)e
+(for)h(function)h(de\014nition)h(is:)72 374 y Fk(function)49
+b Fg(!)i Fi(function)17 b Fk(name)f Fm('\(')f([)p Fk(p)n(arlist1)6
+b Fm(])16 b('\)')f Fk(blo)n(ck)h Fi(end)59 503 y Fm(When)d(Lua)g(\014nds)h(a)
+f(function)g(de\014nition,)i(its)e(b)q(o)q(dy)h(is)g(compiled)g(to)f(in)o
+(termediate)g(co)q(de)h(and)f(stored,)-12 559 y(with)j(t)o(yp)q(e)f
+Fk(function)p Fm(,)f(in)o(to)i(the)f(global)h(v)m(ariable)g
+Fj(name)p Fm(.)59 615 y(P)o(arameters)e(act)g(as)h(lo)q(cal)h(v)m(ariables,)h
+(initialized)h(with)e(the)f(argumen)o(t)f(v)m(alues.)72 688
+y Fk(p)n(arlist1)49 b Fg(!)i Fk('name')16 b Fg(f)p Fm(',')f
+Fk(name)s Fg(g)59 816 y Fm(Results)h(are)e(returned)h(using)h(the)e
+Fj(return)g Fm(statemen)o(t)g(\(see)h(Section)g(4.4.3\).)j(If)d(the)g(con)o
+(trol)f(reac)o(hes)-12 873 y(the)h(end)h(of)f(a)g(function)h(without)f(a)g
+(return)g(instruction,)h(the)f(function)h(returns)f(with)h(no)f(results.)-12
+1016 y Fl(5)69 b(The)23 b(Application)e(Program)h(In)n(terface)-12
+1117 y Fm(This)e(section)f(describ)q(es)h(the)f(API)g(for)f(Lua,)i(that)e
+(is,)i(the)f(set)f(of)g(C)h(functions)g(a)o(v)m(ailable)i(to)d(the)h(host)-12
+1174 y(program)13 b(to)g(comm)o(unicate)h(with)g(the)f(library)l(.)21
+b(The)14 b(API)g(functions)g(can)g(b)q(e)g(classi\014ed)h(in)g(the)f(follo)o
+(wing)-12 1230 y(categories:)44 1324 y(1.)22 b(executing)16
+b(Lua)g(co)q(de;)44 1418 y(2.)22 b(con)o(v)o(erting)15 b(v)m(alues)h(b)q(et)o
+(w)o(een)g(C)f(and)g(Lua;)44 1512 y(3.)22 b(manipulating)17
+b(\(reading)e(and)g(writing\))h(Lua)f(ob)s(jects;)44 1605 y(4.)22
+b(calling)17 b(Lua)e(functions;)44 1699 y(5.)22 b(C)15 b(functions)h(to)e(b)q
+(e)i(called)h(b)o(y)e(Lua;)44 1793 y(6.)22 b(error)14 b(handling.)-12
+1887 y(All)h(API)f(functions)g(are)f(declared)h(in)g(the)g(\014le)g
+Fj(lua.h)p Fm(.)19 b(Unless)14 b(stated)f(otherwise,)g(API)h(functions)g
+(return)-12 1943 y(an)h(error)g(co)q(de:)20 b(0)15 b(in)h(case)f(of)g
+(success,)h(non)f(0)g(in)h(case)f(of)g(errors.)-12 2065 y Fb(5.1)56
+b(Executing)17 b(Lua)i(Co)r(de)-12 2151 y Fm(A)d(host)g(program)e(can)i
+(execute)h(Lua)f(programs)f(written)h(in)h(a)e(\014le)i(or)f(in)h(a)e
+(string,)h(using)h(the)f(follo)o(wing)-12 2207 y(functions:)-12
+2301 y Fj(int)286 b(lua_dofile)357 b(\(char)23 b(*filename\);)-12
+2358 y(int)286 b(lua_dostring)309 b(\(char)23 b(*string\);)-12
+2479 y Fb(5.2)56 b(Con)n(v)n(erting)19 b(V)-5 b(alues)19 b(b)r(et)n(w)n(een)f
+(C)h(and)g(Lua)-12 2565 y Fm(Because)24 b(Lua)g(has)g(no)g(static)f(t)o(yp)q
+(e)h(system,)h(all)f(v)m(alues)h(passed)f(b)q(et)o(w)o(een)g(Lua)g(and)g(C)f
+(ha)o(v)o(e)g(t)o(yp)q(e)-12 2622 y Fj(lua_Object)p Fm(,)12
+b(whic)o(h)j(w)o(orks)e(lik)o(e)i(an)e(abstract)g(t)o(yp)q(e)h(in)h(C)e(that)
+g(can)h(hold)h(an)o(y)e(Lua)h(v)m(alue.)21 b Fj(lua_Object)-12
+2678 y Fm(is)16 b(declared)g(as:)-12 2772 y Fj(typedef)23 b(struct)g(Object)g
+(*lua_Object;)910 2976 y Fm(8)p eop
+%%Page: 9 9
+bop -12 160 a Fm(where)16 b Fj(Object)e Fm(is)i(not)e(declared)j(in)f
+Fj(lua.h)p Fm(.)59 216 y(Lua)j(has)g(garbage)f(collection.)34
+b(Therefore,)19 b(there)g(is)h(no)f(guaran)o(tee)f(that)g(a)h
+Fj(lua_Object)f Fm(will)j(b)q(e)-12 273 y(v)m(alid)f(after)e(another)g
+(execution)h(of)f(Lua)h(co)q(de.)30 b(A)19 b(go)q(o)q(d)f(programming)g
+(practice)h(is)g(to)e(con)o(v)o(ert)h(suc)o(h)-12 329 y(ob)s(jects)d(to)f(C)h
+(v)m(alues)i(as)d(so)q(on)h(as)g(they)h(are)e(a)o(v)m(ailable,)j(and)e(nev)o
+(er)h(store)e(them)h(in)h(global)g(v)m(ariables.)59 385 y(T)l(o)f(c)o(hec)o
+(k)g(the)g(t)o(yp)q(e)h(of)e(a)h Fj(lua_Object)p Fm(,)f(the)h(follo)o(wing)h
+(functions)g(are)f(a)o(v)m(ailable:)-12 479 y Fj(int)286 b(lua_isnil)381
+b(\(lua_Object)22 b(object\);)-12 536 y(int)286 b(lua_isnumber)309
+b(\(lua_Object)22 b(object\);)-12 592 y(int)286 b(lua_isstring)309
+b(\(lua_Object)22 b(object\);)-12 649 y(int)286 b(lua_istable)333
+b(\(lua_Object)22 b(object\);)-12 705 y(int)286 b(lua_iscfunction)237
+b(\(lua_Object)22 b(object\);)-12 762 y(int)286 b(lua_isuserdata)261
+b(\(lua_Object)22 b(object\);)-12 855 y Fm(All)17 b(return)e(1)g(if)g(the)h
+(ob)s(ject)e(has)h(the)h(giv)o(en)f(t)o(yp)q(e,)g(0)g(otherwise.)59
+912 y(T)l(o)g(translate)f(a)h(v)m(alue)i(from)d(t)o(yp)q(e)h
+Fj(lua_Object)f Fm(to)h(a)g(sp)q(eci\014c)i(C)e(t)o(yp)q(e,)g(the)g
+(programmer)f(can)h(use:)-12 1006 y Fj(float)238 b(lua_getnumber)285
+b(\(lua_Object)22 b(object\);)-12 1062 y(char)238 b(*lua_getstring)285
+b(\(lua_Object)22 b(object\);)-12 1119 y(char)238 b(*lua_copystring)261
+b(\(lua_Object)22 b(object\);)-12 1175 y(lua_CFunction)46 b(lua_getcfunction)
+213 b(\(lua_Object)22 b(object\);)-12 1231 y(void)238 b(*lua_getuserdata)f
+(\(lua_Object)22 b(object\);)-12 1325 y(lua_getnumber)16 b
+Fm(con)o(v)o(erts)h(a)h Fj(lua_Object)e Fm(to)h(a)h(\015oat.)27
+b(This)18 b Fj(lua_Object)f Fm(m)o(ust)g(b)q(e)i(a)e(n)o(um)o(b)q(er)h(or)g
+(a)-12 1382 y(string)d(con)o(v)o(ertible)i(to)d(n)o(um)o(b)q(er)i(\(see)f
+(Section)h(4.2\);)d(otherwise,)i(the)h(function)g(returns)f(0.)59
+1438 y Fj(lua_getstring)f Fm(con)o(v)o(erts)h(a)h Fj(lua_Object)e
+Fm(to)i(a)g(string)f(\()p Fj(char)23 b(*)p Fm(\).)f(This)17
+b Fj(lua_Object)d Fm(m)o(ust)i(b)q(e)h(a)-12 1495 y(string)h(or)g(a)g(n)o(um)
+o(b)q(er;)i(otherwise,)f(the)f(function)i(returns)e(0)g(\(the)g(n)o(ull)i(p)q
+(oin)o(ter\).)29 b(This)19 b(function)g(do)q(es)-12 1551 y(not)14
+b(create)g(a)g(new)g(string,)g(but)g(returns)g(a)g(p)q(oin)o(ter)h(to)e(a)h
+(string)g(inside)i(the)e(Lua)h(en)o(vironmen)o(t.)20 b(Because)-12
+1608 y(Lua)c(has)f(garbage)f(collection,)j(there)f(is)f(no)h(guaran)o(tee)e
+(that)h(suc)o(h)g(p)q(oin)o(ter)h(will)h(b)q(e)f(v)m(alid)h(after)e(another)
+-12 1664 y(execution)20 b(of)f(Lua)g(co)q(de.)31 b(The)19 b(function)h
+Fj(lua_copystring)d Fm(b)q(eha)o(v)o(es)i(exactly)g(lik)o(e)h
+Fj(lua_getstring)p Fm(,)-12 1720 y(but)c(returns)f(a)f(fresh)i(cop)o(y)f(of)g
+(the)g(string.)59 1777 y Fj(lua_getcfunction)g Fm(con)o(v)o(erts)i(a)g
+Fj(lua_Object)g Fm(to)f(a)i(C)f(function.)28 b(This)18 b Fj(lua_Object)f
+Fm(m)o(ust)g(ha)o(v)o(e)-12 1833 y(t)o(yp)q(e)d Fk(Cfunction)s
+Fm(;)g(otherwise,)g(the)g(function)h(returns)f(0)g(\(the)g(n)o(ull)h(p)q(oin)
+o(ter\).)20 b(The)14 b(t)o(yp)q(e)g Fj(lua_CFunction)-12 1890
+y Fm(is)i(explained)h(in)f(Section)g(5.5.)59 1946 y Fj(lua_getuserdata)k
+Fm(con)o(v)o(erts)h(a)h Fj(lua_Object)e Fm(to)i Fj(void*)p
+Fm(.)40 b(This)22 b Fj(lua_Object)f Fm(m)o(ust)h(ha)o(v)o(e)f(t)o(yp)q(e)-12
+2003 y Fk(user)n(data)s Fm(;)16 b(otherwise,)f(the)g(function)h(returns)f(0)g
+(\(the)g(n)o(ull)i(p)q(oin)o(ter\).)59 2059 y(The)d(rev)o(erse)g(pro)q(cess,)
+g(that)f(is,)h(the)g(con)o(v)o(ersion)g(from)g(a)f(sp)q(eci\014c)j(C)e(t)o
+(yp)q(e)g(to)f(the)h(t)o(yp)q(e)g Fj(lua_Object)p Fm(,)-12
+2116 y(is)i(done)f(b)o(y)h(using)g(the)f(follo)o(wing)h(functions:)-12
+2209 y Fj(int)286 b(lua_pushnumber)261 b(\(float)23 b(n\);)-12
+2266 y(int)286 b(lua_pushstring)261 b(\(char)23 b(*s\);)-12
+2322 y(int)286 b(lua_pushcfunction)189 b(\(lua_CFunction)22
+b(f\);)-12 2379 y(int)286 b(lua_pushuserdata)213 b(\(void)23
+b(*u\);)-12 2473 y Fm(All)16 b(of)d(them)h(receiv)o(e)h(a)f(C)g(v)m(alue,)h
+(con)o(v)o(ert)f(it)g(to)g(a)f Fj(lua_Object)p Fm(,)g(and)h(lea)o(v)o(e)h
+(their)f(results)h(on)f(the)g(top)g(of)-12 2529 y(the)h(Lua)f(stac)o(k,)g
+(where)g(it)h(can)g(b)q(e)g(assigned)g(to)e(a)h(v)m(ariable,)i(passed)f(as)f
+(paramen)o(ter)f(to)h(a)g(Lua)h(function,)-12 2586 y(etc)i(\(see)f(b)q(elo)o
+(w\).)24 b(T)l(o)16 b(complete)h(the)f(set,)g(the)h(v)m(alue)g
+Fi(nil)h Fm(or)e(a)g Fj(lua_Object)f Fm(can)h(also)h(b)q(e)g(pushed)g(on)o
+(to)-12 2642 y(the)e(stac)o(k,)g(with:)-12 2736 y Fj(int)286
+b(lua_pushnil)333 b(\(void\);)-12 2792 y(int)286 b(lua_pushobject)261
+b(\(lua_Object)22 b(object\);)910 2976 y Fm(9)p eop
+%%Page: 10 10
+bop -12 160 a Fb(5.3)56 b(Manipulating)18 b(Lua)h(Ob)s(jects)-12
+245 y Fm(T)l(o)c(read)g(the)h(v)m(alue)g(of)f(an)o(y)g(global)g(Lua)h(v)m
+(ariable,)g(one)f(can)h(use)f(the)h(function:)-12 338 y Fj(lua_Object)118
+b(lua_getglobal)285 b(\(char)23 b(*varname\);)-12 430 y Fm(T)l(o)15
+b(store)g(a)f(v)m(alue)j(previously)f(pushed)h(on)o(to)d(the)h(stac)o(k)g(in)
+h(a)f(global)g(v)m(ariable,)i(there)e(is)h(the)f(function:)-12
+523 y Fj(int)286 b(lua_storeglobal)237 b(\(char)23 b(*varname\);)59
+615 y Fm(T)l(ables)16 b(can)f(also)g(b)q(e)h(manipulated)h(via)e(the)g(API.)h
+(Giv)o(en)f(a)g(table,)g(the)h(functions)-12 708 y Fj(lua_Object)118
+b(lua_getindexed)261 b(\(lua_Object)22 b(table,)h(float)g(index\);)-12
+764 y(lua_Object)118 b(lua_getfield)309 b(\(lua_Object)22 b(table,)h(char)g
+(*field\);)-12 857 y Fm(return)c(the)f(con)o(ten)o(ts)g(of)g(an)h(index.)31
+b(The)19 b(\014rst)f(one)h(is)g(used)g(for)f(n)o(umeric)h(indices,)i(while)f
+(the)f(second)-12 913 y(can)d(b)q(e)h(used)f(for)g(an)o(y)f(string)h(index.)
+24 b(As)15 b(in)i(Lua,)f(if)h(the)f(index)h(is)f(not)g(presen)o(t)g(in)h(the)
+f(table,)g(then)g(the)-12 970 y(returned)g Fj(lua_Object)e
+Fm(has)h(v)m(alue)h Fi(nil)p Fm(.)59 1026 y(T)l(o)h(store)f(a)h(v)m(alue,)h
+(previously)h(pushed)f(on)o(to)e(the)i(stac)o(k,)e(in)i(a)f(p)q(osition)h(of)
+f(a)g(table,)g(the)h(follo)o(wing)-12 1083 y(functions)e(are)f(a)o(v)m
+(ailable:)-12 1175 y Fj(int)286 b(lua_storeindexed)213 b(\(lua_Object)22
+b(object,)h(float)g(index\);)-12 1232 y(int)286 b(lua_storefield)261
+b(\(lua_Object)22 b(object,)h(char)g(*field\);)-12 1324 y Fm(Again,)c(the)f
+(\014rst)g(one)g(is)g(used)h(for)e(n)o(umeric)i(indices,)i(while)e(the)f
+(second)h(can)f(b)q(e)h(used)f(for)g(an)o(y)f(string)-12 1381
+y(index.)-12 1502 y Fb(5.4)56 b(Calling)18 b(Lua)h(F)-5 b(unctions)-12
+1588 y Fm(F)l(unctions)12 b(de\014ned)h(in)f(Lua)g(b)o(y)f(a)h(mo)q(dule)g
+(executed)g(with)g Fj(dofile)f Fm(or)g Fj(dostring)f Fm(can)h(b)q(e)i(called)
+g(from)d(the)-12 1644 y(host)16 b(program.)23 b(This)17 b(is)g(done)g(using)g
+(the)f(follo)o(wing)i(proto)q(col:)k(\014rst,)16 b(the)g(argumen)o(ts)g(to)g
+(the)g(function)-12 1701 y(are)k(pushed)i(on)o(to)d(the)i(Lua)g(stac)o(k)e
+(\(see)i(Section)g(5.2\),)f(in)i(direct)f(order,)g(i.e.,)g(the)g(\014rst)f
+(argumen)o(t)g(is)-12 1757 y(pushed)c(\014rst.)k(Then,)15 b(the)h(function)g
+(is)f(called)i(using:)-12 1850 y Fj(int)286 b(lua_call)405
+b(\(char)23 b(*functionname,)f(int)h(nparam\);)-12 1942 y Fm(where)17
+b(the)f(second)h(argumen)o(t)f(\()p Fj(nparam)p Fm(\))f(is)h(the)h(n)o(um)o
+(b)q(er)g(of)f(v)m(alues)h(pushed)g(on)o(to)f(the)g(stac)o(k.)23
+b(Finally)l(,)-12 1999 y(the)c(returned)g(v)m(alues)h(\(a)e(Lua)g(function)i
+(ma)o(y)e(return)g(man)o(y)g(v)m(alues\))i(are)e(p)q(opp)q(ed)i(from)e(the)h
+(stac)o(k)e(in)-12 2055 y(rev)o(erse)e(order,)g(i.e.,)g(the)g(last)g(result)h
+(is)f(p)q(opp)q(ed)i(\014rst.)i(P)o(opping)d(is)g(done)f(with)h(the)f
+(function)-12 2148 y Fj(lua_Object)118 b(lua_pop)429 b(\(void\);)-12
+2240 y Fm(When)16 b(there)f(are)g(no)g(more)g(results)g(to)g(b)q(e)h(p)q(opp)
+q(ed,)g(this)g(function)g(returns)f(0.)59 2297 y(An)g(example)h(of)f(C)g(co)q
+(de)h(calling)h(a)e(Lua)g(function)h(is)g(sho)o(wn)f(in)h(7.5.)-12
+2418 y Fb(5.5)56 b(C)19 b(F)-5 b(unctions)-12 2504 y Fm(T)l(o)15
+b(register)g(a)g(C)g(function)h(to)f(Lua,)g(there)g(is)h(the)f(follo)o(wing)h
+(macro:)-12 2596 y Fj(#define)23 b(lua_register\(n,f\))165
+b(\(lua_pushcfunction\(f\),)21 b(lua_storeglobal\(n\)\))-12
+2653 y(/*)j(char)f(*n;)214 b(*/)-12 2709 y(/*)24 b(lua_CFunction)e(f;)h(*/)
+-12 2802 y Fm(whic)o(h)d(receiv)o(es)f(the)g(name)g(the)g(function)g(will)i
+(ha)o(v)o(e)d(in)h(Lua,)h(and)f(a)f(p)q(oin)o(ter)i(to)e(the)g(function.)32
+b(This)-12 2858 y(p)q(oin)o(ter)16 b(m)o(ust)f(ha)o(v)o(e)f(t)o(yp)q(e)i
+Fj(lua_CFunction)p Fm(,)d(whic)o(h)j(is)f(de\014ned)i(as)899
+2976 y(10)p eop
+%%Page: 11 11
+bop -12 160 a Fj(typedef)23 b(void)g(\(*lua_CFunction\))f(\(void\);)-12
+253 y Fm(that)15 b(is,)g(a)g(p)q(oin)o(ter)h(to)e(a)h(function)h(with)g(no)f
+(parameters)f(and)h(no)h(results.)59 310 y(In)j(order)f(to)g(comm)o(unicate)g
+(prop)q(erly)i(with)e(Lua,)i(a)e(C)g(function)h(m)o(ust)f(follo)o(w)h(a)f
+(proto)q(col,)g(whic)o(h)-12 366 y(de\014nes)e(the)g(w)o(a)o(y)e(parameters)g
+(and)i(results)f(are)g(passed.)59 423 y(T)l(o)g(access)g(its)g(argumen)o(ts,)
+f(a)h(C)g(function)h(calls:)-12 517 y Fj(lua_Object)118 b(lua_getparam)309
+b(\(int)23 b(number\);)-12 610 y(number)17 b Fm(starts)g(with)h(1)g(to)f(get)
+g(the)h(\014rst)g(argumen)o(t.)27 b(When)18 b(called)i(with)e(a)f(n)o(um)o(b)
+q(er)i(larger)e(than)h(the)-12 667 y(actual)11 b(n)o(um)o(b)q(er)h(of)e
+(argumen)o(ts,)h(this)h(function)f(returns)g(0.)18 b(In)12
+b(this)g(w)o(a)o(y)l(,)e(it)i(is)f(p)q(ossible)i(to)d(write)i(functions)-12
+723 y(that)j(w)o(ork)f(with)h(a)g(v)m(ariable)i(n)o(um)o(b)q(er)e(of)g
+(parameters.)59 780 y(T)l(o)i(return)h(v)m(alues,)i(a)d(C)h(function)h(just)f
+(pushes)g(them)g(on)o(to)f(the)i(stac)o(k,)e(in)i(direct)g(order;)f(see)h
+(Sec-)-12 836 y(tion)d(5.2.)j(Lik)o(e)d(a)f(Lua)g(function,)h(a)f(C)g
+(function)h(called)g(b)o(y)g(Lua)f(can)g(also)h(return)f(man)o(y)f(results.)
+59 893 y(Section)i(7.4)e(presen)o(ts)h(an)g(example)h(of)f(a)g(Cfunction.)-12
+1014 y Fb(5.6)56 b(Error)18 b(Handling)-12 1100 y Fm(Whenev)o(er)d(an)g
+(error)e(o)q(ccurs)i(during)h(Lua)f(compilation)g(or)f(execution,)i(an)e
+(error)g(routine)h(is)g(called,)h(and)-12 1157 y(the)f(corresp)q(onding)i
+Fj(lua_dofile)c Fm(or)i Fj(lua_dostring)f Fm(is)h(terminated)h(returning)g
+(an)f(error)f(condition.)59 1213 y(The)20 b(only)h(argumen)o(t)e(to)h(the)g
+(error)g(routine)g(is)h(a)f(string)g(describing)i(the)e(error)g(and)g(some)g
+(extra)-12 1270 y(informations,)14 b(lik)o(e)h(curren)o(t)e(line)i(\(when)f
+(the)g(error)f(is)h(at)f(compilation\))h(or)f(curren)o(t)h(function)g(\(when)
+g(the)-12 1326 y(error)19 b(is)g(at)g(execution\).)33 b(The)19
+b(standard)g(error)f(routine)i(only)g(prin)o(ts)f(this)h(message)e(in)i(the)g
+(standard)-12 1383 y(error)15 b(output.)k(If)d(needed,)g(it)f(is)h(p)q
+(ossible)h(to)e(set)g(another)f(error)h(routine,)g(using)h(the)f(function:)
+-12 1476 y Fj(void)262 b(lua_errorfunction)189 b(\(void)23
+b(\(*fn\))g(\(char)g(*s\)\);)-12 1570 y Fm(whose)15 b(argumen)o(t)g(is)g(the)
+h(address)f(of)g(the)g(new)g(error)g(function.)-12 1713 y Fl(6)69
+b(Prede\014ned)23 b(F)-6 b(unctions)23 b(and)g(Libraries)-12
+1815 y Fm(The)18 b(set)f(of)g(prede\014ned)i(functions)g(in)f(Lua)g(is)g
+(small)g(but)g(p)q(o)o(w)o(erful.)27 b(Most)16 b(of)h(them)h(pro)o(vide)g
+(features)-12 1871 y(that)c(allo)o(ws)g(some)g(degree)h(of)f(re\015exivit)o
+(y)h(in)g(the)g(language.)20 b(Suc)o(h)15 b(features)f(cannot)g(b)q(e)h(sim)o
+(ulated)g(with)-12 1928 y(the)g(rest)g(of)g(the)g(Language)g(nor)g(with)h
+(the)f(standard)g(API.)59 1984 y(The)21 b(libraries,)i(on)d(the)h(other)f
+(hand,)i(pro)o(vide)g(useful)f(routines)g(that)f(are)h(implemen)o(ted)h
+(directly)-12 2041 y(through)13 b(the)f(standard)h(API.)f(Therefore,)h(they)g
+(are)f(not)g(necessary)h(to)f(the)h(language,)g(and)g(are)f(pro)o(vided)-12
+2097 y(as)j(separated)g(C)g(mo)q(dules.)21 b(Curren)o(tly)15
+b(there)g(are)g(three)h(libraries:)56 2191 y Fg(\017)23 b Fm(string)15
+b(manipulation;)56 2285 y Fg(\017)23 b Fm(mathematical)15 b(functions)h
+(\(sin,)f(cos,)g(etc\);)56 2379 y Fg(\017)23 b Fm(input)16
+b(and)f(output;)-12 2500 y Fb(6.1)56 b(Prede\014ned)18 b(F)-5
+b(unctions)-12 2586 y Fj(dofile)23 b(\(filename\))-12 2672
+y Fm(This)e(function)g(receiv)o(es)g(a)f(\014le)h(name,)g(op)q(ens)f(it)h
+(and)f(executes)h(its)f(con)o(ten)o(ts)g(as)f(a)h(Lua)g(mo)q(dule.)36
+b(It)-12 2728 y(returns)15 b(1)g(if)h(there)f(are)g(no)g(errors,)f
+Fi(nil)i Fm(otherwise.)899 2976 y(11)p eop
+%%Page: 12 12
+bop -12 160 a Fj(dostring)23 b(\(string\))-12 245 y Fm(This)17
+b(function)f(executes)h(a)e(giv)o(en)i(string)e(as)h(a)f(Lua)i(mo)q(dule.)23
+b(It)16 b(returns)f(1)h(if)g(there)g(are)g(no)f(errors,)g Fi(nil)-12
+302 y Fm(otherwise.)-12 422 y Fj(next)24 b(\(table,)e(index\))-12
+508 y Fm(This)16 b(function)h(allo)o(ws)e(a)g(program)g(to)g(en)o(umerate)g
+(all)h(\014elds)h(of)e(a)g(table.)21 b(Its)16 b(\014rst)f(argumen)o(t)g(is)h
+(a)f(table)-12 564 y(and)i(its)g(second)g(argumen)o(t)f(is)h(an)g(index)g(in)
+h(this)f(table;)g(this)g(index)h(can)f(b)q(e)g(a)g(n)o(um)o(b)q(er)g(or)f(a)g
+(string.)24 b(It)-12 621 y(returns)15 b(the)f(next)h(index)h(of)e(the)g
+(table)h(and)g(the)g(v)m(alue)h(asso)q(ciated)e(with)h(the)g(index.)21
+b(When)15 b(called)h(with)-12 677 y Fi(nil)g Fm(as)e(its)g(second)h(argumen)o
+(t,)f(the)g(function)i(returns)e(the)h(\014rst)f(index)i(of)e(the)g(table)h
+(\(and)f(its)h(asso)q(ciated)-12 734 y(v)m(alue\).)21 b(When)16
+b(called)g(with)g(the)f(last)g(index,)h(or)f(with)h Fi(nil)g
+Fm(in)g(an)f(empt)o(y)g(table,)g(it)h(returns)f Fi(nil)p Fm(.)59
+790 y(In)h(Lua)h(there)f(is)g(no)g(declaration)h(of)e(\014elds;)i(seman)o
+(tically)l(,)h(there)e(is)g(no)g(di\013erence)h(b)q(et)o(w)o(een)f(a)g
+(\014eld)-12 846 y(not)i(presen)o(t)f(in)i(a)f(table)g(or)f(a)h(\014eld)h
+(with)f(v)m(alue)h Fi(nil)p Fm(.)29 b(Therefore,)18 b(the)f(function)i(only)f
+(considers)h(\014elds)-12 903 y(with)d(non)f(nil)i(v)m(alues.)k(The)16
+b(order)f(the)g(indices)j(are)d(en)o(umerated)g(are)g(not)g(sp)q(eci\014ed,)i
+Fk(even)f(for)g(numeric)-12 959 y(indic)n(es)p Fm(.)59 1016
+y(See)g(Section)g(7.1)e(for)g(an)i(example)g(of)e(the)i(use)f(of)g(this)h
+(function.)-12 1136 y Fj(nextvar)23 b(\(name\))-12 1222 y Fm(This)14
+b(function)g(is)g(similar)g(to)e(the)i(function)g Fj(next)p
+Fm(,)e(but)i(it)f(iterates)g(o)o(v)o(er)f(the)i(global)f(v)m(ariables.)21
+b(Its)13 b(single)-12 1278 y(argumen)o(t)18 b(is)i(the)f(name)g(of)g(a)f
+(global)i(v)m(ariable,)h(or)d Fi(nil)i Fm(to)f(get)f(a)h(\014rst)f(name.)32
+b(Similarly)21 b(to)d Fj(next)p Fm(,)h(it)-12 1335 y(returns)e(the)f(name)h
+(of)f(another)g(v)m(ariable)i(and)f(its)g(v)m(alue,)h(or)e
+Fi(nil)h Fm(if)h(there)e(are)h(no)f(more)g(v)m(ariables.)26
+b(See)-12 1391 y(Section)16 b(7.1)f(for)f(an)h(example)h(of)f(the)g(use)h(of)
+f(this)g(function.)-12 1511 y Fj(print)23 b(\(e1,)h(e2,)f(...\))-12
+1597 y Fm(This)13 b(function)g(receiv)o(es)g(an)o(y)f(n)o(um)o(b)q(er)g(of)g
+(argumen)o(ts,)g(and)g(prin)o(ts)g(their)h(v)m(alues)h(in)f(a)e(reasonable)i
+(format.)-12 1653 y(Eac)o(h)h(v)m(alue)i(is)e(prin)o(ted)h(in)g(a)f(new)h
+(line.)21 b(This)15 b(function)g(is)f(not)g(in)o(tended)i(for)e(formatted)f
+(output,)g(but)i(as)-12 1710 y(a)g(quic)o(k)h(w)o(a)o(y)e(to)h(sho)o(w)g(a)g
+(v)m(alue,)h(for)f(instance)h(for)e(error)h(messages)g(or)f(debugging.)22
+b(See)15 b(Section)i(6.4)d(for)-12 1766 y(functions)i(for)f(formatted)f
+(output.)-12 1886 y Fj(tonumber)23 b(\(e\))-12 1972 y Fm(This)18
+b(function)g(receiv)o(es)f(one)g(argumen)o(t,)g(and)g(tries)g(to)f(con)o(v)o
+(ert)h(it)g(to)f(a)h(n)o(um)o(b)q(er.)25 b(If)18 b(the)f(argumen)o(t)f(is)-12
+2029 y(already)e(a)f(n)o(um)o(b)q(er)h(or)f(a)g(string)g(con)o(v)o(ertible)h
+(to)f(a)g(n)o(um)o(b)q(er)h(\(see)f(Section)i(4.2\),)d(it)h(returns)h(that)e
+(n)o(um)o(b)q(er;)-12 2085 y(otherwise,)j(it)h(returns)f Fi(nil)p
+Fm(.)-12 2205 y Fj(type)24 b(\(v\))-12 2291 y Fm(This)16 b(function)g(allo)o
+(ws)f(Lua)h(to)e(test)h(the)g(t)o(yp)q(e)g(of)g(a)f(v)m(alue.)21
+b(It)16 b(receiv)o(es)g(one)f(argumen)o(t,)f(and)h(returns)g(its)-12
+2347 y(t)o(yp)q(e,)g(co)q(ded)h(as)f(a)g(string.)20 b(The)15
+b(p)q(ossible)i(results)f(of)e(this)i(function)g(are:)56 2441
+y Fg(\017)23 b Fj('nil')56 2535 y Fg(\017)g Fj('number')56
+2629 y Fg(\017)g Fj('string')56 2723 y Fg(\017)g Fj('table')56
+2817 y Fg(\017)g Fj('cfunction')899 2976 y Fm(12)p eop
+%%Page: 13 13
+bop 56 160 a Fg(\017)23 b Fj('function')56 253 y Fg(\017)g
+Fj('userdata')-12 375 y Fb(6.2)56 b(String)18 b(Manipulation)-12
+461 y Fm(This)e(library)f(pro)o(vides)h(generic)g(functions)f(for)f(string)h
+(manipulation,)h(suc)o(h)g(as)e(\014nding)i(and)f(extracting)-12
+517 y(substrings.)20 b(When)14 b(indexing)h(a)e(string,)g(the)h(\014rst)f(c)o
+(haracter)f(has)i(p)q(osition)g(1.)19 b(See)14 b(Section)g(7.2)f(for)g(some)
+-12 574 y(examples)j(on)f(string)g(manipulation)i(in)f(Lua.)-12
+694 y Fj(strfind)23 b(\(str,)g(substr\))-12 780 y Fm(Receiv)o(es)15
+b(t)o(w)o(o)d(string)i(argumen)o(ts,)e(and)i(returns)f(a)g(n)o(um)o(b)q(er.)
+20 b(This)14 b(n)o(um)o(b)q(er)g(indicates)h(the)e(\014rst)g(p)q(osition)-12
+836 y(where)20 b(the)f(second)h(argumen)o(t)e(app)q(ears)i(in)g(the)f
+(\014rst)g(argumen)o(t.)31 b(If)19 b(the)h(second)g(argumen)o(t)e(is)i(not)f
+(a)-12 893 y(substring)d(of)f(the)g(\014rst)g(one,)g(then)g
+Fj(strfind)f Fm(returns)h Fi(nil)p Fm(.)-12 1013 y Fj(strlen)23
+b(\(s\))-12 1099 y Fm(Receiv)o(es)17 b(a)e(string)g(and)g(returns)g(its)h
+(length.)-12 1219 y Fj(strsub)23 b(\(s,)h(i,)f(j\))-12 1304
+y Fm(Returns)13 b(another)f(string,)h(whic)o(h)g(is)g(a)f(substring)h(of)f
+Fj(s)p Fm(,)h(starting)f(at)g Fj(i)g Fm(and)h(runing)g(un)o(til)h
+Fj(j)p Fm(.)k(If)13 b Fj(j)g Fm(is)g(absen)o(t)-12 1361 y(or)18
+b(is)g Fi(nil)p Fm(,)i(it)e(is)g(assumed)h(to)e(b)q(e)i(equal)g(to)e(the)h
+(length)h(of)e Fj(s)p Fm(.)29 b(P)o(articularly)l(,)19 b(the)f(call)h
+Fj(strsub\(s,1,j\))-12 1417 y Fm(returns)c(a)g(pre\014x)h(of)f
+Fj(s)g Fm(with)g(length)h Fj(j)p Fm(,)f(while)h(the)g(call)g
+Fj(strsub\(s,i\))e Fm(returns)h(a)g(su\014x)g(of)g Fj(s)p Fm(.)-12
+1537 y Fj(strlower)23 b(\(s\))-12 1623 y Fm(Receiv)o(es)16
+b(a)d(string)i(and)f(returns)g(a)f(cop)o(y)h(of)g(that)f(string)h(with)h(all)
+g(upp)q(er)g(case)f(letters)g(c)o(hanged)g(to)g(lo)o(w)o(er)-12
+1680 y(case.)20 b(All)d(other)d(c)o(haracters)h(are)g(left)g(unc)o(hanged.)
+-12 1800 y Fj(strupper)23 b(\(s\))-12 1886 y Fm(Receiv)o(es)16
+b(a)d(string)i(and)f(returns)g(a)f(cop)o(y)h(of)g(that)f(string)h(with)h(all)
+g(lo)o(w)o(er)e(case)h(letters)h(c)o(hanged)f(to)f(upp)q(er)-12
+1942 y(case.)20 b(All)d(other)d(c)o(haracters)h(are)g(left)g(unc)o(hanged.)
+-12 2064 y Fb(6.3)56 b(Mathematical)16 b(F)-5 b(unctions)-12
+2149 y Fm(This)17 b(library)g(is)f(an)g(in)o(terface)h(to)e(some)h(functions)
+g(of)g(the)g(standard)g(C)g(math)f(library)l(.)24 b(It)16 b(pro)o(vides)g
+(the)-12 2206 y(follo)o(wing)g(functions:)-12 2300 y Fj(abs)48
+b(acos)23 b(asin)g(atan)g(ceil)h(cos)f(floor)g(max)h(min)-12
+2356 y(mod)48 b(pow)f(sin)g(sqrt)23 b(tan)59 2450 y Fm(The)f(functions)h
+Fj(floor)p Fm(,)f Fj(sqrt)p Fm(,)h Fj(pow)p Fm(,)f Fj(ceil)p
+Fm(,)h Fj(sin)p Fm(,)g Fj(cos)p Fm(,)g Fj(tan)p Fm(,)f Fj(asin)p
+Fm(,)h Fj(acos)p Fm(,)g(and)f Fj(atan)f Fm(are)h(only)-12 2506
+y(in)o(terfaces)h(to)f(the)h(homon)o(ymous)f(functions)i(in)f(the)g(C)g
+(library)l(,)i(with)e(the)g(di\013erence)h(that,)g(in)f(the)-12
+2563 y(trigonometric)15 b(functions,)h(all)g(angles)g(are)e(expressed)i(in)g
+(degrees.)59 2619 y(The)d(function)g Fj(max)g Fm(returns)f(the)h(maxim)o(um)g
+(v)m(alue)h(in)f(a)g(list)g(of)g(n)o(umeric)g(argumen)o(ts.)19
+b(Similarly)l(,)c Fj(min)-12 2676 y Fm(computes)g(the)h(minim)o(um.)21
+b(Both)15 b(can)g(b)q(e)h(used)g(with)f(an)g(unlimited)j(n)o(um)o(b)q(er)d
+(of)g(argumen)o(ts.)59 2732 y(The)g(function)h Fj(mod)f Fm(is)h(equiv)m(alen)
+o(t)h(to)d(the)h Fj(\045)g Fm(op)q(erator)g(in)h(C.)899 2976
+y(13)p eop
+%%Page: 14 14
+bop -12 160 a Fb(6.4)56 b(I/O)18 b(F)-5 b(acilities)-12 245
+y Fm(All)16 b(I/O)g(op)q(erations)f(in)h(Lua)f(are)g(done)g(o)o(v)o(er)f(t)o
+(w)o(o)g Fk(curr)n(ent)h Fm(\014les,)g(one)h(for)e(reading)i(and)f(one)g(for)
+f(writing.)-12 302 y(Initially)l(,)k(the)d(curren)o(t)g(input)h(\014le)h(is)e
+Fj(stdin)p Fm(,)f(and)i(the)f(curren)o(t)g(output)g(\014le)h(is)g
+Fj(stdout)p Fm(.)59 358 y(Unless)g(otherwised)g(stated,)e(all)i(I/O)g
+(functions)g(return)f(1)g(on)g(success)h(and)f Fi(nil)h Fm(on)f(failure.)-12
+477 y Fj(readfrom)23 b(\(filename\))-12 563 y Fm(This)17 b(function)g(op)q
+(ens)g(a)f(\014le)h(named)g Fj(filename)e Fm(and)i(sets)f(it)g(as)g(the)g
+Fk(curr)n(ent)h Fm(input)g(\014le.)24 b(When)17 b(called)-12
+620 y(without)e(parameters,)f(this)i(function)g(restores)e
+Fj(stdin)h Fm(as)g(the)g(curren)o(t)g(input)h(\014le.)-12 739
+y Fj(writeto)23 b(\(filename\))-12 825 y Fm(This)16 b(function)g(op)q(ens)g
+(a)f(\014le)h(named)f Fj(filename)f Fm(and)i(sets)e(it)i(as)f(the)g
+Fk(curr)n(ent)g Fm(output)g(\014le.)21 b(Notice)15 b(that,)-12
+881 y(if)21 b(the)g(\014le)g(already)g(exists,)h(it)f(is)g(completely)h
+(erased)e(with)h(this)g(op)q(eration.)36 b(When)21 b(called)h(without)-12
+938 y(parameters,)14 b(this)i(function)g(restores)e Fj(stdout)h
+Fm(as)f(the)i(curren)o(t)f(output)g(\014le.)-12 1057 y Fj(appendto)23
+b(\(filename\))-12 1143 y Fm(This)18 b(function)g(op)q(ens)f(a)g(\014le)h
+(named)f Fj(filename)f Fm(and)h(sets)g(it)g(as)g(the)g Fk(curr)n(ent)g
+Fm(output)f(\014le.)27 b(Unlik)o(e)18 b(the)-12 1199 y Fj(writeto)d
+Fm(op)q(eration,)h(this)g(function)g(do)q(es)g(not)g(erase)f(an)o(y)h
+(previous)g(con)o(ten)o(t)f(of)g(the)h(\014le.)23 b(When)16
+b(called)-12 1255 y(without)j(parameters,)g(this)h(function)g(restores)f
+Fj(stdout)f Fm(as)h(the)g(curren)o(t)g(output)h(\014le.)33
+b(This)19 b(function)-12 1312 y(returns)c(2)g(if)h(the)f(\014le)h(already)g
+(exists,)f(1)g(if)g(it)h(creates)f(a)g(new)g(\014le,)h(and)f
+Fi(nil)i Fm(on)e(failure.)-12 1431 y Fj(read)24 b(\([format]\))-12
+1517 y Fm(This)12 b(function)g(returns)e(a)h(v)m(alue)h(read)f(from)f(the)h
+(curren)o(t)g(input.)20 b(An)11 b(optional)g(string)g(argumen)o(t)f(sp)q
+(eci\014es)-12 1573 y(the)15 b(w)o(a)o(y)g(the)g(input)h(is)g(in)o
+(terpreted.)59 1630 y(Without)j(a)g(format)e(argumen)o(t,)i
+Fj(read)g Fm(\014rst)g(skips)h(blanks,)g(tabs)f(and)g(newlines.)34
+b(Then)20 b(it)f(c)o(hec)o(ks)-12 1686 y(whether)g(the)h(curren)o(t)e(c)o
+(haracter)h(is)g Fj(")g Fm(or)g Fj(')p Fm(.)31 b(If)19 b(so,)g(it)h(reads)f
+(a)f(string)h(up)h(to)e(the)h(ending)i(quotation)-12 1743 y(mark,)14
+b(and)h(returns)f(this)h(string,)g(without)f(the)h(quotation)f(marks.)19
+b(Otherwise)d(it)f(reads)f(up)h(to)g(a)f(blank,)-12 1799 y(tab)h(or)g
+(newline.)59 1856 y(The)g(format)f(string)h(can)h(ha)o(v)o(e)e(the)i(follo)o
+(wing)g(format:)60 1945 y Fj(?[n])-12 2033 y Fm(where)g Fj(?)f
+Fm(can)g(b)q(e:)-12 2122 y Fi('s')h(or)h('S')22 b Fm(to)15
+b(read)g(a)g(string;)-12 2214 y Fi('f)5 b(')17 b(or)g('F')k
+Fm(to)15 b(read)g(a)g(real)g(n)o(um)o(b)q(er;)-12 2306 y Fi('i')i(or)g('I')22
+b Fm(to)14 b(read)i(an)f(in)o(teger.)-12 2395 y(The)g(optional)g
+Fj(n)f Fm(is)h(a)g(n)o(um)o(b)q(er)f(whic)o(h)i(sp)q(eci\014es)g(ho)o(w)e
+(man)o(y)g(c)o(haracters)g(m)o(ust)g(b)q(e)h(read)g(to)f(comp)q(ose)g(the)-12
+2451 y(input)i(v)m(alue.)-12 2571 y Fj(write)23 b(\(value,)g([format]\))-12
+2656 y Fm(This)16 b(function)g(writes)f(the)h(v)m(alue)g(of)f(its)g(\014rst)g
+(argumen)o(t)g(to)f(the)i(curren)o(t)f(output.)k(An)d(optional)g(second)-12
+2713 y(argumen)o(t)g(sp)q(eci\014es)j(the)e(format)e(to)i(b)q(e)g(used.)26
+b(This)17 b(format)e(is)j(giv)o(en)f(as)g(a)f(string,)h(comp)q(osed)g(of)g
+(four)-12 2769 y(parts.)i(The)d(\014rst)f(part)f(is)i(the)f(only)h(not)f
+(optional,)g(and)h(m)o(ust)e(b)q(e)i(one)f(of)g(the)g(follo)o(wing)h(c)o
+(haracters:)-12 2858 y Fi('s')g(or)h('S')22 b Fm(to)15 b(write)g(strings;)899
+2976 y(14)p eop
+%%Page: 15 15
+bop -12 160 a Fi('f)5 b(')17 b(or)g('F')k Fm(to)15 b(write)g(\015oats;)-12
+253 y Fi('i')i(or)g('I')22 b Fm(to)14 b(write)i(in)o(tegers.)-12
+347 y(These)g(c)o(haracters)e(can)i(b)q(e)f(follo)o(w)o(ed)h(b)o(y)60
+441 y Fj([?][m][.n])-12 535 y Fm(where:)-12 629 y Fj(?)23 b
+Fm(indicates)16 b(justi\014cation)g(inside)h(the)f(\014eld.)130
+723 y(')p Fj(<)p Fm(')22 b(righ)o(t)15 b(justi\014cation;)130
+796 y(')p Fj(>)p Fm(')22 b(left)15 b(justi\014cation;)130 869
+y(')p Fj(|)p Fm(')22 b(cen)o(ter)15 b(justi\014cation.)-12
+962 y Fj(m)23 b Fm(Indicates)16 b(the)f(\014eld)i(size)f(in)g(c)o(haracters.)
+-12 1056 y Fj(.n)23 b Fm(F)l(or)16 b(reals,)i(indicates)g(the)f(n)o(um)o(b)q
+(er)h(of)e(digital)j(places.)26 b(F)l(or)16 b(in)o(tegers,)i(it)f(is)h(the)f
+(minim)o(um)h(n)o(um)o(b)q(er)102 1113 y(of)d(digits.)20 b(This)c(option)f
+(has)h(no)f(meaning)g(for)g(strings.)59 1207 y(When)e(called)i(without)e(a)g
+(format)f(string,)h(this)h(function)g(writes)f(n)o(um)o(b)q(ers)g(using)h
+(the)f Fj(\045g)g Fm(format)f(and)-12 1263 y(strings)j(with)h
+Fj(\045s)p Fm(.)-12 1406 y Fl(7)69 b(Some)21 b(Examples)-12
+1508 y Fm(This)f(section)h(giv)o(es)e(examples)i(sho)o(wing)e(some)h
+(features)f(of)g(Lua.)34 b(It)19 b(do)q(es)h(not)g(in)o(tend)g(to)f(co)o(v)o
+(er)g(the)-12 1564 y(whole)d(language,)f(but)g(only)h(to)f(illustrate)h(some)
+f(in)o(teresting)h(uses)f(of)g(the)g(system.)-12 1686 y Fb(7.1)56
+b(The)18 b(F)-5 b(unctions)19 b Fa(next)e Fb(and)j Fa(nextvar)-12
+1772 y Fm(This)c(example)g(sho)o(ws)f(ho)o(w)f(to)h(use)g(the)h(function)g
+Fj(next)e Fm(to)h(iterate)g(o)o(v)o(er)f(the)i(\014elds)g(of)f(a)g(table.)-12
+1865 y Fj(function)23 b(f)h(\(t\))357 b(--)24 b(t)g(is)f(a)h(table)36
+1922 y(local)f(i,)h(v)f(=)h(next\(t,)f(nil\))47 b(--)24 b(i)g(is)f(an)h
+(index)f(of)g(t,)h(v)g(=)g(t[i])36 1978 y(while)f(i)h(do)84
+2035 y(--)f(do)h(something)e(with)i(i)f(and)h(v)84 2091 y(i,)f(v)h(=)g
+(next\(t,)f(i\))190 b(--)24 b(get)f(next)h(index)36 2148 y(end)-12
+2204 y(end)59 2298 y Fm(The)13 b(next)g(example)h(prin)o(ts)f(the)g(names)g
+(of)f(all)i(global)g(v)m(ariables)g(in)g(the)f(system)g(with)g(non)g(nil)i(v)
+m(alues:)-12 2392 y Fj(function)23 b(printGlobalVariables)e(\(\))36
+2448 y(local)i(i,)h(v)f(=)h(nextvar\(nil\))36 2505 y(while)f(i)h(do)84
+2561 y(print\(i\))84 2618 y(i,)f(v)h(=)g(nextvar\(i\))36 2674
+y(end)-12 2731 y(end)899 2976 y Fm(15)p eop
+%%Page: 16 16
+bop -12 160 a Fb(7.2)56 b(String)18 b(Manipulation)-12 245
+y Fm(The)e(\014rst)e(example)i(is)g(a)f(function)h(to)f(trim)g(extra)f
+(blanks)i(at)f(the)g(b)q(eginning)i(and)f(end)g(of)e(a)h(string.)-12
+339 y Fj(function)23 b(trim\(s\))36 396 y(local)g(i)h(=)g(1)36
+452 y(while)f(strsub\(s,i,i\))f(=)i(')g(')f(do)84 509 y(i)g(=)h(i+1)36
+565 y(end)36 622 y(local)f(l)h(=)g(strlen\(s\))36 678 y(while)f
+(strsub\(s,l,l\))f(=)i(')g(')f(do)84 734 y(l)g(=)h(l-1)36 791
+y(end)36 847 y(return)f(strsub\(s,i,l\))-12 904 y(end)59 998
+y Fm(The)15 b(second)h(example)g(sho)o(ws)e(a)h(function)h(that)f(eliminates)
+i(all)f(blanks)g(of)f(a)f(string.)899 2976 y(16)p eop
+%%Page: 17 17
+bop -12 160 a Fj(function)23 b(remove_blanks)f(\(s\))36 216
+y(local)h(b)h(=)g(strfind\(s,)e(')i('\))36 273 y(while)f(b)h(do)84
+329 y(s)f(=)h(strsub\(s,)f(1,)g(b-1\))h(..)f(strsub\(s,)g(b+1\))84
+385 y(b)g(=)h(strfind\(s,)f(')g('\))36 442 y(end)36 498 y(return)g(s)-12
+555 y(end)-12 677 y Fb(7.3)56 b(P)n(ersistence)-12 762 y Fm(Because)19
+b(of)f(its)h(re\015exiv)o(e)g(facilities,)i(p)q(ersistence)e(in)g(Lua)g(can)g
+(b)q(e)f(ac)o(hiev)o(ed)i(with)e(Lua.)30 b(This)19 b(section)-12
+819 y(sho)o(ws)c(some)h(w)o(a)o(ys)e(to)i(store)f(and)h(retriev)o(e)f(v)m
+(alues)i(in)g(Lua,)f(using)g(a)g(text)f(\014le)i(written)f(in)g(the)g
+(language)-12 875 y(itself)g(as)f(the)g(storage)f(media.)59
+932 y(T)l(o)h(store)f(a)h(single)i(v)m(alue)f(with)g(a)e(name,)h(the)h(follo)
+o(wing)f(co)q(de)h(is)g(enough:)-12 1026 y Fj(function)23 b(store)g(\(name,)g
+(value\))36 1082 y(write\('\\n')f(..)i(name)f(..)h('='\))36
+1138 y(write_value\(value\))-12 1195 y(end)-12 1301 y(function)f(write_value)
+f(\(value\))36 1358 y(local)h(t)h(=)g(type\(value\))131 1414
+y(if)g(t)g(=)f('nil')95 b(then)23 b(write\('nil'\))36 1471
+y(elseif)g(t)h(=)f('number')g(then)g(write\(value\))36 1527
+y(elseif)g(t)h(=)f('string')g(then)g(write\('"')g(..)h(value)f(..)g('"'\))36
+1583 y(end)-12 1640 y(end)-12 1746 y Fm(In)16 b(order)f(to)g(restore)f(this)i
+(v)m(alue,)g(a)f Fj(lua_dofile)e Fm(su\016ces.)59 1803 y(Storing)k(tables)g
+(is)g(a)g(little)h(more)f(complex.)25 b(Assuming)18 b(that)e(the)h(table)h
+(is)f(a)g(tree,)f(and)h(all)h(indices)-12 1859 y(are)e(iden)o(ti\014ers)i
+(\(that)d(is,)h(the)h(tables)f(are)g(b)q(eing)i(used)e(as)g(records\),)g(its)
+g(v)m(alue)i(can)e(b)q(e)h(written)f(directly)-12 1916 y(with)g(table)f
+(constructors.)k(First,)c(the)g(function)h Fj(write_value)e
+Fm(is)i(c)o(hanged)f(to)-12 2009 y Fj(function)23 b(write_value)f(\(value\))
+36 2066 y(local)h(t)h(=)g(type\(value\))131 2122 y(if)g(t)g(=)f('nil')95
+b(then)23 b(write\('nil'\))36 2179 y(elseif)g(t)h(=)f('number')g(then)g
+(write\(value\))36 2235 y(elseif)g(t)h(=)f('string')g(then)g(write\('"')g(..)
+h(value)f(..)g('"'\))36 2292 y(elseif)g(t)h(=)f('table')47
+b(then)23 b(write_record\(value\))36 2348 y(end)-12 2405 y(end)-12
+2498 y Fm(The)16 b(function)g Fj(write_record)d Fm(is:)899
+2976 y(17)p eop
+%%Page: 18 18
+bop -12 160 a Fj(function)23 b(write_record\(t\))36 216 y(local)g(i,)h(v)f(=)
+h(next\(t,)f(nil\))36 273 y(write\('@{'\))46 b(--)24 b(starts)f(constructor)
+36 329 y(while)g(i)h(do)84 385 y(store\(i,)e(v\))84 442 y(i,)h(v)h(=)g
+(next\(t,)f(i\))84 498 y(if)g(i)h(then)f(write\(',)g('\))h(end)36
+555 y(end)36 611 y(write\('}'\))46 b(--)24 b(closes)f(constructor)-12
+668 y(end)-12 789 y Fb(7.4)56 b(A)19 b(Cfunction)-12 875 y
+Fm(A)c(Cfunction)h(to)f(compute)g(the)g(maxim)o(um)h(of)e(a)h(v)m(ariable)i
+(n)o(um)o(b)q(er)e(of)g(argumen)o(ts)f(ma)o(y)h(b)q(e)h(written)f(as:)-12
+969 y Fj(void)24 b(math_max)e(\(void\))-12 1026 y({)12 1082
+y(int)i(i=1;)71 b(/*)23 b(number)g(of)h(arguments)e(*/)12 1138
+y(double)h(d,)h(dmax;)12 1195 y(lua_Object)f(o;)12 1251 y(/*)h(the)f
+(function)g(must)g(get)h(at)f(least)g(one)h(argument)f(*/)12
+1308 y(if)h(\(\(o)f(=)h(lua_getparam\(i++\)\))d(==)j(0\))12
+1364 y({)g(lua_error)e(\("too)i(few)f(arguments)g(to)g(function)g(`max'"\);)g
+(return;)g(})12 1421 y(/*)h(and)f(this)g(argument)g(must)g(be)h(a)g(number)f
+(*/)12 1477 y(if)h(\(!lua_isnumber\(o\)\))12 1534 y({)g(lua_error)e
+(\("incorrect)h(arguments)f(to)i(function)f(`max'"\);)g(return;)f(})12
+1590 y(dmax)h(=)h(lua_getnumber)e(\(o\);)12 1647 y(/*)i(loops)f(until)g
+(there)g(is)h(no)f(more)h(arguments)e(*/)12 1703 y(while)h(\(\(o)h(=)f
+(lua_getparam\(i++\)\))f(!=)h(0\))12 1759 y({)36 1816 y(if)h
+(\(!lua_isnumber\(o\)\))36 1872 y({)g(lua_error)e(\("incorrect)h(arguments)f
+(to)i(function)f(`max'"\);)f(return;)h(})36 1929 y(d)h(=)f(lua_getnumber)f
+(\(o\);)36 1985 y(if)i(\(d)f(>)h(dmax\))f(dmax)g(=)h(d;)12
+2042 y(})12 2098 y(/*)g(push)f(the)g(result)g(to)h(be)g(returned)e(*/)12
+2155 y(lua_pushnumber)g(\(dmax\);)-12 2211 y(})59 2305 y Fm(After)15
+b(registered)g(with)-12 2399 y Fj(lua_register)22 b(\("max",)71
+b(math_max\);)-12 2493 y Fm(this)16 b(function)g(is)g(a)o(v)m(ailable)g(in)g
+(Lua,)g(as)e(follo)o(ws:)-12 2586 y Fj(i)24 b(=)g(max\(4,)f(5,)g(10,)h(-34\))
+47 b(--)23 b(i)h(receives)f(10)-12 2708 y Fb(7.5)56 b(Calling)18
+b(Lua)h(F)-5 b(unctions)-12 2794 y Fm(This)15 b(example)g(illustrates)g(ho)o
+(w)f(a)g(C)g(function)h(can)f(call)i(the)e(Lua)g(function)h
+Fj(remove_blanks)e Fm(presen)o(ted)-12 2850 y(in)j(Section)g(7.2.)899
+2976 y(18)p eop
+%%Page: 19 19
+bop -12 160 a Fj(void)24 b(remove_blanks)e(\(char)h(*s\))-12
+216 y({)36 273 y(lua_pushstring\(s\);)45 b(/*)24 b(prepare)f(parameter)f(*/)
+36 329 y(lua_call\("remove_blanks",)e(1\);)48 b(/*)23 b(call)h(Lua)f
+(function)g(with)g(1)h(parameter)e(*/)36 385 y(strcpy\(s,)h
+(lua_getstring\(lua_pop\(\))o(\)\);)45 b(/*)23 b(copy)h(result)f(back)g(to)h
+('s')f(*/)-12 442 y(})-12 585 y Fl(Ac)n(kno)n(wledgme)o(n)n(ts)-12
+687 y Fm(The)17 b(authors)f(w)o(ould)i(lik)o(e)g(to)e(thank)h(CENPES/PETR)o
+(OBR)1099 675 y(\023)1093 687 y(AS)g(whic)o(h,)h(join)o(tly)f(with)h(T)l
+(eCGraf,)e(used)-12 743 y(extensiv)o(ely)g(early)f(v)o(ersions)f(of)g(this)h
+(system)f(and)h(ga)o(v)o(e)f(v)m(aluable)i(commen)o(ts.)j(The)c(authors)e(w)o
+(ould)i(also)-12 799 y(lik)o(e)i(to)d(thank)h(Carlos)g(Henrique)h(Levy)l(,)g
+(who)f(found)h(the)f(name)g(of)g(the)g(game.)899 2976 y(19)p
+eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/domake b/domake
new file mode 100755
index 00000000..3acff092
--- /dev/null
+++ b/domake
@@ -0,0 +1,6 @@
+#!/bin/sh
+
+LUA=`pwd`
+export LUA
+
+make $*
diff --git a/fixed/iolib.c b/fixed/iolib.c
deleted file mode 100644
index dce91f9d..00000000
--- a/fixed/iolib.c
+++ /dev/null
@@ -1,402 +0,0 @@
-/*
-** iolib.c
-** Input/output library to LUA
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 19 May 93
-*/
-
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <ctype.h>
-#ifdef __GNUC__
-#include <floatingpoint.h>
-#endif
-
-#include "lua.h"
-
-static FILE *in=NULL, *out=NULL;
-
-/*
-** Open a file to read.
-** LUA interface:
-**			status = readfrom (filename)
-** where:
-**			status = 1 -> success
-**			status = 0 -> error
-*/
-static void io_readfrom (void)
-{
- lua_Object o = lua_getparam (1);
- if (o == NULL)			/* restore standart input */
- {
-  if (in != stdin)
-  {
-   fclose (in);
-   in = stdin;
-  }
-  lua_pushnumber (1);
- }
- else
- {
-  if (!lua_isstring (o))
-  {
-   lua_error ("incorrect argument to function 'readfrom`");
-   lua_pushnumber (0);
-  }
-  else
-  {
-   FILE *fp = fopen (lua_getstring(o),"r");
-   if (fp == NULL)
-   {
-    lua_pushnumber (0);
-   }
-   else
-   {
-    if (in != stdin) fclose (in);
-    in = fp;
-    lua_pushnumber (1);
-   }
-  }
- }
-}
-
-
-/*
-** Open a file to write.
-** LUA interface:
-**			status = writeto (filename)
-** where:
-**			status = 1 -> success
-**			status = 0 -> error
-*/
-static void io_writeto (void)
-{
- lua_Object o = lua_getparam (1);
- if (o == NULL)			/* restore standart output */
- {
-  if (out != stdout)
-  {
-   fclose (out);
-   out = stdout;
-  }
-  lua_pushnumber (1);
- }
- else
- {
-  if (!lua_isstring (o))
-  {
-   lua_error ("incorrect argument to function 'writeto`");
-   lua_pushnumber (0);
-  }
-  else
-  {
-   FILE *fp = fopen (lua_getstring(o),"w");
-   if (fp == NULL)
-   {
-    lua_pushnumber (0);
-   }
-   else
-   {
-    if (out != stdout) fclose (out);
-    out = fp;
-    lua_pushnumber (1);
-   }
-  }
- }
-}
-
-
-/*
-** Read a variable. On error put nil on stack.
-** LUA interface:
-**			variable = read ([format])
-**
-** O formato pode ter um dos seguintes especificadores:
-**
-**	s ou S -> para string
-**	f ou F, g ou G, e ou E -> para reais
-**	i ou I -> para inteiros
-**
-**	Estes especificadores podem vir seguidos de numero que representa
-**	o numero de campos a serem lidos.
-*/
-static void io_read (void)
-{
- lua_Object o = lua_getparam (1);
- if (o == NULL)			/* free format */
- {
-  int c;
-  char s[256];
-  while (isspace(c=fgetc(in)))
-   ;
-  if (c == '\"')
-  {
-   if (fscanf (in, "%[^\"]\"", s) != 1)
-   {
-    lua_pushnil ();
-    return;
-   }
-  }
-  else if (c == '\'')
-  {
-   if (fscanf (in, "%[^\']\'", s) != 1)
-   {
-    lua_pushnil ();
-    return;
-   }
-  }
-  else
-  {
-   char *ptr;
-   double d;
-   ungetc (c, in);
-   if (fscanf (in, "%s", s) != 1)
-   {
-    lua_pushnil ();
-    return;
-   }
-   d = strtod (s, &ptr);
-   if (!(*ptr))
-   {
-    lua_pushnumber (d);
-    return;
-   }
-  }
-  lua_pushstring (s);
-  return;
- }
- else				/* formatted */
- {
-  char *e = lua_getstring(o);
-  char t;
-  int  m=0;
-  while (isspace(*e)) e++;
-  t = *e++;
-  while (isdigit(*e))
-   m = m*10 + (*e++ - '0');
-  
-  if (m > 0)
-  {
-   char f[80];
-   char s[256];
-   sprintf (f, "%%%ds", m);
-   fscanf (in, f, s);
-   switch (tolower(t))
-   {
-    case 'i':
-    {
-     long int l;
-     sscanf (s, "%ld", &l);
-     lua_pushnumber(l);
-    }
-    break;
-    case 'f': case 'g': case 'e':
-    {
-     float f;
-     sscanf (s, "%f", &f);
-     lua_pushnumber(f);
-    }
-    break;
-    default: 
-     lua_pushstring(s); 
-    break;
-   }
-  }
-  else
-  {
-   switch (tolower(t))
-   {
-    case 'i':
-    {
-     long int l;
-     fscanf (in, "%ld", &l);
-     lua_pushnumber(l);
-    }
-    break;
-    case 'f': case 'g': case 'e':
-    {
-     float f;
-     fscanf (in, "%f", &f);
-     lua_pushnumber(f);
-    }
-    break;
-    default: 
-    {
-     char s[256];
-     fscanf (in, "%s", s);
-     lua_pushstring(s);
-    }
-    break;
-   }
-  }
- }
-}
-
-
-/*
-** Write a variable. On error put 0 on stack, otherwise put 1.
-** LUA interface:
-**			status = write (variable [,format])
-**
-** O formato pode ter um dos seguintes especificadores:
-**
-**	s ou S -> para string
-**	f ou F, g ou G, e ou E -> para reais
-**	i ou I -> para inteiros
-**
-**	Estes especificadores podem vir seguidos de:
-**
-**		[?][m][.n]
-**
-**	onde:
-**		? -> indica justificacao
-**			< = esquerda
-**			| = centro
-**			> = direita (default)
-**		m -> numero maximo de campos (se exceder estoura)
-**		n -> indica precisao para
-**			reais -> numero de casas decimais
-**			inteiros -> numero minimo de digitos
-**			string -> nao se aplica
-*/
-static char *buildformat (char *e, lua_Object o)
-{
- static char buffer[512];
- static char f[80];
- char *string = &buffer[255];
- char t, j='r';
- int  m=0, n=0, l;
- while (isspace(*e)) e++;
- t = *e++;
- if (*e == '<' || *e == '|' || *e == '>') j = *e++;
- while (isdigit(*e))
-  m = m*10 + (*e++ - '0');
- e++;	/* skip point */
- while (isdigit(*e))
-  n = n*10 + (*e++ - '0');
-
- sprintf(f,"%%");
- if (j == '<' || j == '|') sprintf(strchr(f,0),"-");
- if (m != 0)   sprintf(strchr(f,0),"%d", m);
- if (n != 0)   sprintf(strchr(f,0),".%d", n);
- sprintf(strchr(f,0), "%c", t);
- switch (tolower(t))
- {
-  case 'i': t = 'i';
-   sprintf (string, f, (long int)lua_getnumber(o));
-  break;
-  case 'f': case 'g': case 'e': t = 'f';
-   sprintf (string, f, (float)lua_getnumber(o));
-  break;
-  case 's': t = 's';
-   sprintf (string, f, lua_getstring(o));
-  break;
-  default: return "";
- }
- l = strlen(string);
- if (m!=0 && l>m)
- {
-  int i;
-  for (i=0; i<m; i++)
-   string[i] = '*';
-  string[i] = 0;
- }
- else if (m!=0 && j=='|')
- {
-  int i=l-1;
-  while (isspace(string[i])) i--;
-  string -= (m-i) / 2;
-  i=0;
-  while (string[i]==0) string[i++] = ' ';
-  string[l] = 0;
- }
- return string;
-}
-static void io_write (void)
-{
- lua_Object o1 = lua_getparam (1);
- lua_Object o2 = lua_getparam (2);
- if (o1 == NULL)			/* new line */
- {
-  fprintf (out, "\n");
-  lua_pushnumber(1);
- }
- else if (o2 == NULL)   		/* free format */
- {
-  int status=0;
-  if (lua_isnumber(o1))
-   status = fprintf (out, "%g", lua_getnumber(o1));
-  else if (lua_isstring(o1))
-   status = fprintf (out, "%s", lua_getstring(o1));
-  lua_pushnumber(status);
- }
- else					/* formated */
- {
-  if (!lua_isstring(o2))
-  { 
-   lua_error ("incorrect format to function `write'"); 
-   lua_pushnumber(0);
-   return;
-  }
-  lua_pushnumber(fprintf (out, "%s", buildformat(lua_getstring(o2),o1)));
- }
-}
-
-/*
-** Execute a executable program using "sustem".
-** On error put 0 on stack, otherwise put 1.
-*/
-void io_execute (void)
-{
- lua_Object o = lua_getparam (1);
- if (o == NULL || !lua_isstring (o))
- {
-  lua_error ("incorrect argument to function 'execute`");
-  lua_pushnumber (0);
- }
- else
- {
-  system(lua_getstring(o));
-  lua_pushnumber (1);
- }
- return;
-}
-
-/*
-** Remove a file.
-** On error put 0 on stack, otherwise put 1.
-*/
-void io_remove  (void)
-{
- lua_Object o = lua_getparam (1);
- if (o == NULL || !lua_isstring (o))
- {
-  lua_error ("incorrect argument to function 'execute`");
-  lua_pushnumber (0);
- }
- else
- {
-  if (remove(lua_getstring(o)) == 0)
-   lua_pushnumber (1);
-  else
-   lua_pushnumber (0);
- }
- return;
-}
-
-/*
-** Open io library
-*/
-void iolib_open (void)
-{
- in=stdin; out=stdout;
- lua_register ("readfrom", io_readfrom);
- lua_register ("writeto",  io_writeto);
- lua_register ("read",     io_read);
- lua_register ("write",    io_write);
- lua_register ("execute",  io_execute);
- lua_register ("remove",   io_remove);
-}
diff --git a/fixed/lex_yy.c b/fixed/lex_yy.c
deleted file mode 100644
index ab73ea6c..00000000
--- a/fixed/lex_yy.c
+++ /dev/null
@@ -1,923 +0,0 @@
-# include "stdio.h"
-# define U(x) x
-# define NLSTATE yyprevious=YYNEWLINE
-# define BEGIN yybgin = yysvec + 1 +
-# define INITIAL 0
-# define YYLERR yysvec
-# define YYSTATE (yyestate-yysvec-1)
-# define YYOPTIM 1
-# define YYLMAX BUFSIZ
-# define output(c) putc(c,yyout)
-# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
-# define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;}
-# define yymore() (yymorfg=1)
-# define ECHO fprintf(yyout, "%s",yytext)
-# define REJECT { nstr = yyreject(); goto yyfussy;}
-int yyleng; extern char yytext[];
-int yymorfg;
-extern char *yysptr, yysbuf[];
-int yytchar;
-FILE *yyin = {NULL}, *yyout = {NULL};
-extern int yylineno;
-struct yysvf { 
-	struct yywork *yystoff;
-	struct yysvf *yyother;
-	int *yystops;};
-struct yysvf *yyestate;
-extern struct yysvf yysvec[], *yybgin;
-#include <stdlib.h>
-#include <string.h>
-
-#include "opcode.h"
-#include "hash.h"
-#include "inout.h"
-#include "table.h"
-#include "y_tab.h"
-
-#undef input
-#undef unput
-
-static Input input;
-static Unput unput;
-
-void lua_setinput (Input fn)
-{
- input = fn;
-}
-
-void lua_setunput (Unput fn)
-{
- unput = fn;
-}
-
-char *lua_lasttext (void)
-{
- return yytext;
-}
-
-# define YYNEWLINE 10
-yylex(){
-int nstr; extern int yyprevious;
-while((nstr = yylook()) >= 0)
-yyfussy: switch(nstr){
-case 0:
-if(yywrap()) return(0); break;
-case 1:
-				;
-break;
-case 2:
-			{yylval.vInt = 1; return DEBUG;}
-break;
-case 3:
-			{yylval.vInt = 0; return DEBUG;}
-break;
-case 4:
-				lua_linenumber++;
-break;
-case 5:
-				;
-break;
-case 6:
-				return LOCAL;
-break;
-case 7:
-				return IF;
-break;
-case 8:
-				return THEN;
-break;
-case 9:
-				return ELSE;
-break;
-case 10:
-			return ELSEIF;
-break;
-case 11:
-				return WHILE;
-break;
-case 12:
-				return DO;
-break;
-case 13:
-			return REPEAT;
-break;
-case 14:
-				return UNTIL;
-break;
-case 15:
-			{
-                                         yylval.vWord = lua_nfile-1;
-                                         return FUNCTION;
-					}
-break;
-case 16:
-				return END;
-break;
-case 17:
-				return RETURN;
-break;
-case 18:
-				return LOCAL;
-break;
-case 19:
-				return NIL;
-break;
-case 20:
-				return AND;
-break;
-case 21:
-				return OR;
-break;
-case 22:
-				return NOT;
-break;
-case 23:
-				return NE;
-break;
-case 24:
-				return LE;
-break;
-case 25:
-				return GE;
-break;
-case 26:
-				return CONC;
-break;
-case 27:
-			case 28:
-		      {
-				       yylval.vWord = lua_findenclosedconstant (yytext);
-				       return STRING;
-				      }
-break;
-case 29:
-case 30:
-case 31:
-case 32:
-{
-				        yylval.vFloat = atof(yytext);
-				        return NUMBER;
-				       }
-break;
-case 33:
- 	       {
-					yylval.vWord = lua_findsymbol (yytext);
-					return NAME;
-				       }
-break;
-case 34:
-				return  *yytext;
-break;
-case -1:
-break;
-default:
-fprintf(yyout,"bad switch yylook %d",nstr);
-} return(0); }
-/* end of yylex */
-int yyvstop[] = {
-0,
-
-1,
-0,
-
-1,
-0,
-
-34,
-0,
-
-1,
-34,
-0,
-
-4,
-0,
-
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-29,
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-1,
-0,
-
-27,
-0,
-
-28,
-0,
-
-5,
-0,
-
-26,
-0,
-
-30,
-0,
-
-29,
-0,
-
-29,
-0,
-
-24,
-0,
-
-25,
-0,
-
-33,
-0,
-
-33,
-0,
-
-12,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-7,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-21,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-23,
-0,
-
-29,
-30,
-0,
-
-31,
-0,
-
-20,
-33,
-0,
-
-33,
-0,
-
-16,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-19,
-33,
-0,
-
-22,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-32,
-0,
-
-9,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-8,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-31,
-32,
-0,
-
-33,
-0,
-
-33,
-0,
-
-6,
-18,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-14,
-33,
-0,
-
-11,
-33,
-0,
-
-10,
-33,
-0,
-
-33,
-0,
-
-13,
-33,
-0,
-
-17,
-33,
-0,
-
-2,
-0,
-
-33,
-0,
-
-15,
-33,
-0,
-
-3,
-0,
-0};
-# define YYTYPE char
-struct yywork { YYTYPE verify, advance; } yycrank[] = {
-0,0,	0,0,	1,3,	0,0,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	1,4,	1,5,	
-6,29,	4,28,	0,0,	0,0,	
-0,0,	0,0,	7,31,	0,0,	
-6,29,	6,29,	0,0,	0,0,	
-0,0,	0,0,	7,31,	7,31,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	0,0,	1,6,	
-4,28,	0,0,	0,0,	0,0,	
-1,7,	0,0,	0,0,	0,0,	
-1,3,	6,30,	1,8,	1,9,	
-0,0,	1,10,	6,29,	7,31,	
-8,33,	0,0,	6,29,	0,0,	
-7,32,	0,0,	0,0,	6,29,	
-7,31,	1,11,	0,0,	1,12,	
-2,27,	7,31,	1,13,	11,39,	
-12,40,	1,13,	26,56,	0,0,	
-0,0,	2,8,	2,9,	0,0,	
-6,29,	0,0,	0,0,	6,29,	
-0,0,	0,0,	7,31,	0,0,	
-0,0,	7,31,	0,0,	0,0,	
-2,11,	0,0,	2,12,	0,0,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	1,14,	0,0,	
-0,0,	1,15,	1,16,	1,17,	
-0,0,	22,52,	1,18,	18,47,	
-23,53,	1,19,	42,63,	1,20,	
-1,21,	25,55,	14,42,	1,22,	
-15,43,	1,23,	1,24,	16,44,	
-1,25,	16,45,	17,46,	19,48,	
-21,51,	2,14,	20,49,	1,26,	
-2,15,	2,16,	2,17,	24,54,	
-20,50,	2,18,	44,64,	45,65,	
-2,19,	46,66,	2,20,	2,21,	
-27,57,	48,67,	2,22,	49,68,	
-2,23,	2,24,	50,69,	2,25,	
-52,70,	53,72,	27,58,	54,73,	
-52,71,	9,34,	2,26,	9,35,	
-9,35,	9,35,	9,35,	9,35,	
-9,35,	9,35,	9,35,	9,35,	
-9,35,	10,36,	55,74,	10,37,	
-10,37,	10,37,	10,37,	10,37,	
-10,37,	10,37,	10,37,	10,37,	
-10,37,	57,75,	58,76,	64,80,	
-66,81,	67,82,	70,83,	71,84,	
-72,85,	73,86,	74,87,	10,38,	
-10,38,	38,61,	10,38,	38,61,	
-75,88,	76,89,	38,62,	38,62,	
-38,62,	38,62,	38,62,	38,62,	
-38,62,	38,62,	38,62,	38,62,	
-80,92,	81,93,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-82,94,	83,95,	84,96,	10,38,	
-10,38,	86,97,	10,38,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	87,98,	88,99,	60,79,	
-60,79,	13,41,	60,79,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	33,33,	89,100,	60,79,	
-60,79,	92,101,	60,79,	93,102,	
-95,103,	33,33,	33,0,	96,104,	
-99,105,	100,106,	102,107,	106,108,	
-107,109,	35,35,	35,35,	35,35,	
-35,35,	35,35,	35,35,	35,35,	
-35,35,	35,35,	35,35,	108,110,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	33,33,	0,0,	
-0,0,	35,59,	35,59,	33,33,	
-35,59,	0,0,	0,0,	33,33,	
-0,0,	0,0,	0,0,	0,0,	
-33,33,	0,0,	0,0,	0,0,	
-0,0,	36,60,	36,60,	36,60,	
-36,60,	36,60,	36,60,	36,60,	
-36,60,	36,60,	36,60,	0,0,	
-0,0,	33,33,	0,0,	0,0,	
-33,33,	35,59,	35,59,	0,0,	
-35,59,	36,38,	36,38,	59,77,	
-36,38,	59,77,	0,0,	0,0,	
-59,78,	59,78,	59,78,	59,78,	
-59,78,	59,78,	59,78,	59,78,	
-59,78,	59,78,	61,62,	61,62,	
-61,62,	61,62,	61,62,	61,62,	
-61,62,	61,62,	61,62,	61,62,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	36,38,	36,38,	0,0,	
-36,38,	77,78,	77,78,	77,78,	
-77,78,	77,78,	77,78,	77,78,	
-77,78,	77,78,	77,78,	79,90,	
-0,0,	79,90,	0,0,	0,0,	
-79,91,	79,91,	79,91,	79,91,	
-79,91,	79,91,	79,91,	79,91,	
-79,91,	79,91,	90,91,	90,91,	
-90,91,	90,91,	90,91,	90,91,	
-90,91,	90,91,	90,91,	90,91,	
-0,0};
-struct yysvf yysvec[] = {
-0,	0,	0,
-yycrank+-1,	0,		yyvstop+1,
-yycrank+-28,	yysvec+1,	yyvstop+3,
-yycrank+0,	0,		yyvstop+5,
-yycrank+4,	0,		yyvstop+7,
-yycrank+0,	0,		yyvstop+10,
-yycrank+-11,	0,		yyvstop+12,
-yycrank+-17,	0,		yyvstop+14,
-yycrank+7,	0,		yyvstop+16,
-yycrank+107,	0,		yyvstop+18,
-yycrank+119,	0,		yyvstop+20,
-yycrank+6,	0,		yyvstop+23,
-yycrank+7,	0,		yyvstop+25,
-yycrank+158,	0,		yyvstop+27,
-yycrank+4,	yysvec+13,	yyvstop+30,
-yycrank+5,	yysvec+13,	yyvstop+33,
-yycrank+11,	yysvec+13,	yyvstop+36,
-yycrank+5,	yysvec+13,	yyvstop+39,
-yycrank+5,	yysvec+13,	yyvstop+42,
-yycrank+12,	yysvec+13,	yyvstop+45,
-yycrank+21,	yysvec+13,	yyvstop+48,
-yycrank+10,	yysvec+13,	yyvstop+51,
-yycrank+4,	yysvec+13,	yyvstop+54,
-yycrank+4,	yysvec+13,	yyvstop+57,
-yycrank+21,	yysvec+13,	yyvstop+60,
-yycrank+9,	yysvec+13,	yyvstop+63,
-yycrank+9,	0,		yyvstop+66,
-yycrank+40,	0,		yyvstop+68,
-yycrank+0,	yysvec+4,	yyvstop+70,
-yycrank+0,	yysvec+6,	0,	
-yycrank+0,	0,		yyvstop+72,
-yycrank+0,	yysvec+7,	0,	
-yycrank+0,	0,		yyvstop+74,
-yycrank+-280,	0,		yyvstop+76,
-yycrank+0,	0,		yyvstop+78,
-yycrank+249,	0,		yyvstop+80,
-yycrank+285,	0,		yyvstop+82,
-yycrank+0,	yysvec+10,	yyvstop+84,
-yycrank+146,	0,		0,	
-yycrank+0,	0,		yyvstop+86,
-yycrank+0,	0,		yyvstop+88,
-yycrank+0,	yysvec+13,	yyvstop+90,
-yycrank+10,	yysvec+13,	yyvstop+92,
-yycrank+0,	yysvec+13,	yyvstop+94,
-yycrank+19,	yysvec+13,	yyvstop+97,
-yycrank+35,	yysvec+13,	yyvstop+99,
-yycrank+27,	yysvec+13,	yyvstop+101,
-yycrank+0,	yysvec+13,	yyvstop+103,
-yycrank+42,	yysvec+13,	yyvstop+106,
-yycrank+35,	yysvec+13,	yyvstop+108,
-yycrank+30,	yysvec+13,	yyvstop+110,
-yycrank+0,	yysvec+13,	yyvstop+112,
-yycrank+36,	yysvec+13,	yyvstop+115,
-yycrank+48,	yysvec+13,	yyvstop+117,
-yycrank+35,	yysvec+13,	yyvstop+119,
-yycrank+61,	yysvec+13,	yyvstop+121,
-yycrank+0,	0,		yyvstop+123,
-yycrank+76,	0,		0,	
-yycrank+67,	0,		0,	
-yycrank+312,	0,		0,	
-yycrank+183,	yysvec+36,	yyvstop+125,
-yycrank+322,	0,		0,	
-yycrank+0,	yysvec+61,	yyvstop+128,
-yycrank+0,	yysvec+13,	yyvstop+130,
-yycrank+78,	yysvec+13,	yyvstop+133,
-yycrank+0,	yysvec+13,	yyvstop+135,
-yycrank+81,	yysvec+13,	yyvstop+138,
-yycrank+84,	yysvec+13,	yyvstop+140,
-yycrank+0,	yysvec+13,	yyvstop+142,
-yycrank+0,	yysvec+13,	yyvstop+145,
-yycrank+81,	yysvec+13,	yyvstop+148,
-yycrank+66,	yysvec+13,	yyvstop+150,
-yycrank+74,	yysvec+13,	yyvstop+152,
-yycrank+80,	yysvec+13,	yyvstop+154,
-yycrank+78,	yysvec+13,	yyvstop+156,
-yycrank+94,	0,		0,	
-yycrank+93,	0,		0,	
-yycrank+341,	0,		0,	
-yycrank+0,	yysvec+77,	yyvstop+158,
-yycrank+356,	0,		0,	
-yycrank+99,	yysvec+13,	yyvstop+160,
-yycrank+89,	yysvec+13,	yyvstop+163,
-yycrank+108,	yysvec+13,	yyvstop+165,
-yycrank+120,	yysvec+13,	yyvstop+167,
-yycrank+104,	yysvec+13,	yyvstop+169,
-yycrank+0,	yysvec+13,	yyvstop+171,
-yycrank+113,	yysvec+13,	yyvstop+174,
-yycrank+148,	yysvec+13,	yyvstop+176,
-yycrank+133,	0,		0,	
-yycrank+181,	0,		0,	
-yycrank+366,	0,		0,	
-yycrank+0,	yysvec+90,	yyvstop+178,
-yycrank+183,	yysvec+13,	yyvstop+181,
-yycrank+182,	yysvec+13,	yyvstop+183,
-yycrank+0,	yysvec+13,	yyvstop+185,
-yycrank+172,	yysvec+13,	yyvstop+189,
-yycrank+181,	yysvec+13,	yyvstop+191,
-yycrank+0,	yysvec+13,	yyvstop+193,
-yycrank+0,	yysvec+13,	yyvstop+196,
-yycrank+189,	0,		0,	
-yycrank+195,	0,		0,	
-yycrank+0,	yysvec+13,	yyvstop+199,
-yycrank+183,	yysvec+13,	yyvstop+202,
-yycrank+0,	yysvec+13,	yyvstop+204,
-yycrank+0,	yysvec+13,	yyvstop+207,
-yycrank+0,	0,		yyvstop+210,
-yycrank+178,	0,		0,	
-yycrank+186,	yysvec+13,	yyvstop+212,
-yycrank+204,	0,		0,	
-yycrank+0,	yysvec+13,	yyvstop+214,
-yycrank+0,	0,		yyvstop+217,
-0,	0,	0};
-struct yywork *yytop = yycrank+423;
-struct yysvf *yybgin = yysvec+1;
-char yymatch[] = {
-00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,011 ,012 ,01  ,01  ,01  ,01  ,01  ,
-01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-011 ,01  ,'"' ,01  ,01  ,01  ,01  ,047 ,
-01  ,01  ,01  ,'+' ,01  ,'+' ,01  ,01  ,
-'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,
-'0' ,'0' ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,'A' ,'A' ,'A' ,'D' ,'D' ,'A' ,'D' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,'A' ,
-01  ,'A' ,'A' ,'A' ,'D' ,'D' ,'A' ,'D' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,01  ,
-0};
-char yyextra[] = {
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0};
-#ifndef lint
-static	char ncform_sccsid[] = "@(#)ncform 1.6 88/02/08 SMI"; /* from S5R2 1.2 */
-#endif
-
-int yylineno =1;
-# define YYU(x) x
-# define NLSTATE yyprevious=YYNEWLINE
-char yytext[YYLMAX];
-struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
-char yysbuf[YYLMAX];
-char *yysptr = yysbuf;
-int *yyfnd;
-extern struct yysvf *yyestate;
-int yyprevious = YYNEWLINE;
-yylook(){
-	register struct yysvf *yystate, **lsp;
-	register struct yywork *yyt;
-	struct yysvf *yyz;
-	int yych, yyfirst;
-	struct yywork *yyr;
-# ifdef LEXDEBUG
-	int debug;
-# endif
-	char *yylastch;
-	/* start off machines */
-# ifdef LEXDEBUG
-	debug = 0;
-# endif
-	yyfirst=1;
-	if (!yymorfg)
-		yylastch = yytext;
-	else {
-		yymorfg=0;
-		yylastch = yytext+yyleng;
-		}
-	for(;;){
-		lsp = yylstate;
-		yyestate = yystate = yybgin;
-		if (yyprevious==YYNEWLINE) yystate++;
-		for (;;){
-# ifdef LEXDEBUG
-			if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
-# endif
-			yyt = yystate->yystoff;
-			if(yyt == yycrank && !yyfirst){  /* may not be any transitions */
-				yyz = yystate->yyother;
-				if(yyz == 0)break;
-				if(yyz->yystoff == yycrank)break;
-				}
-			*yylastch++ = yych = input();
-			yyfirst=0;
-		tryagain:
-# ifdef LEXDEBUG
-			if(debug){
-				fprintf(yyout,"char ");
-				allprint(yych);
-				putchar('\n');
-				}
-# endif
-			yyr = yyt;
-			if ( (int)yyt > (int)yycrank){
-				yyt = yyr + yych;
-				if (yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				}
-# ifdef YYOPTIM
-			else if((int)yyt < (int)yycrank) {		/* r < yycrank */
-				yyt = yyr = yycrank+(yycrank-yyt);
-# ifdef LEXDEBUG
-				if(debug)fprintf(yyout,"compressed state\n");
-# endif
-				yyt = yyt + yych;
-				if(yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				yyt = yyr + YYU(yymatch[yych]);
-# ifdef LEXDEBUG
-				if(debug){
-					fprintf(yyout,"try fall back character ");
-					allprint(YYU(yymatch[yych]));
-					putchar('\n');
-					}
-# endif
-				if(yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transition */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				}
-			if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
-# ifdef LEXDEBUG
-				if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
-# endif
-				goto tryagain;
-				}
-# endif
-			else
-				{unput(*--yylastch);break;}
-		contin:
-# ifdef LEXDEBUG
-			if(debug){
-				fprintf(yyout,"state %d char ",yystate-yysvec-1);
-				allprint(yych);
-				putchar('\n');
-				}
-# endif
-			;
-			}
-# ifdef LEXDEBUG
-		if(debug){
-			fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
-			allprint(yych);
-			putchar('\n');
-			}
-# endif
-		while (lsp-- > yylstate){
-			*yylastch-- = 0;
-			if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){
-				yyolsp = lsp;
-				if(yyextra[*yyfnd]){		/* must backup */
-					while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){
-						lsp--;
-						unput(*yylastch--);
-						}
-					}
-				yyprevious = YYU(*yylastch);
-				yylsp = lsp;
-				yyleng = yylastch-yytext+1;
-				yytext[yyleng] = 0;
-# ifdef LEXDEBUG
-				if(debug){
-					fprintf(yyout,"\nmatch ");
-					sprint(yytext);
-					fprintf(yyout," action %d\n",*yyfnd);
-					}
-# endif
-				return(*yyfnd++);
-				}
-			unput(*yylastch);
-			}
-		if (yytext[0] == 0  /* && feof(yyin) */)
-			{
-			yysptr=yysbuf;
-			return(0);
-			}
-		yyprevious = yytext[0] = input();
-		if (yyprevious>0)
-			output(yyprevious);
-		yylastch=yytext;
-# ifdef LEXDEBUG
-		if(debug)putchar('\n');
-# endif
-		}
-	}
-yyback(p, m)
-	int *p;
-{
-if (p==0) return(0);
-while (*p)
-	{
-	if (*p++ == m)
-		return(1);
-	}
-return(0);
-}
-	/* the following are only used in the lex library */
-yyinput(){
-	return(input());
-	}
-yyoutput(c)
-  int c; {
-	output(c);
-	}
-yyunput(c)
-   int c; {
-	unput(c);
-	}
diff --git a/fixed/lua.c b/fixed/lua.c
deleted file mode 100644
index f2cfc0b6..00000000
--- a/fixed/lua.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/*
-** lua.c
-** Linguagem para Usuarios de Aplicacao
-** TeCGraf - PUC-Rio
-** 28 Apr 93
-*/
-
-#include <stdio.h>
-
-#include "lua.h"
-#include "lualib.h"
-
-
-void test (void)
-{
-  lua_pushobject(lua_getparam(1));
-  lua_call ("c", 1);
-}
-
-
-static void callfunc (void)
-{
- lua_Object obj = lua_getparam (1);
- if (lua_isstring(obj)) lua_call(lua_getstring(obj),0);
-}
-
-static void execstr (void)
-{
- lua_Object obj = lua_getparam (1);
- if (lua_isstring(obj)) lua_dostring(lua_getstring(obj));
-}
-
-int main (int argc, char *argv[])
-{
- int i;
- if (argc < 2)
- {
-  puts ("usage: lua filename [functionnames]");
-  return;
- }
- lua_register ("callfunc", callfunc);
- lua_register ("execstr", execstr);
- lua_register ("test", test);
- iolib_open ();
- strlib_open ();
- mathlib_open ();
- lua_dofile (argv[1]);
- for (i=2; i<argc; i++)
- {
-  lua_call (argv[i],0);
- }
- return 0;
-}
-
-
diff --git a/floatingpoint.h b/floatingpoint.h
deleted file mode 100644
index 347d2047..00000000
--- a/floatingpoint.h
+++ /dev/null
@@ -1 +0,0 @@
-/* empty file to please silly code in iolib.c and opcode.c */
diff --git a/globals.lua b/globals.lua
deleted file mode 100644
index f204a9d5..00000000
--- a/globals.lua
+++ /dev/null
@@ -1,5 +0,0 @@
-k,v=nextvar(k)
-while k do
- print(k)
- k,v=nextvar(k)
-end
diff --git a/lua.h b/include/lua.h
index 2558075a..2bafd209 100644
--- a/lua.h
+++ b/include/lua.h
@@ -2,7 +2,7 @@
 ** LUA - Linguagem para Usuarios de Aplicacao
 ** Grupo de Tecnologia em Computacao Grafica
 ** TeCGraf - PUC-Rio
-** 19 May 93
+** $Id: lua.h,v 1.1 1993/12/17 18:41:19 celes Exp $
 */
 
 
diff --git a/lualib.h b/include/lualib.h
index fb4be040..37b23094 100644
--- a/lualib.h
+++ b/include/lualib.h
@@ -1,8 +1,8 @@
 /*
-** Libraries to use in LUA programs
+** Libraries to be used in LUA programs
 ** Grupo de Tecnologia em Computacao Grafica
 ** TeCGraf - PUC-Rio
-** 19 May 93
+** $Id: lualib.h,v 1.1 1993/12/17 19:01:46 celes Exp $
 */
 
 #ifndef lualib_h
@@ -13,3 +13,4 @@ void strlib_open  (void);
 void mathlib_open (void);
 
 #endif
+
diff --git a/include/mm.h b/include/mm.h
new file mode 100644
index 00000000..e69de29b
--- /dev/null
+++ b/include/mm.h
diff --git a/lex_yy.c b/lex_yy.c
deleted file mode 100644
index cc129d9b..00000000
--- a/lex_yy.c
+++ /dev/null
@@ -1,923 +0,0 @@
-# include "stdio.h"
-# define U(x) x
-# define NLSTATE yyprevious=YYNEWLINE
-# define BEGIN yybgin = yysvec + 1 +
-# define INITIAL 0
-# define YYLERR yysvec
-# define YYSTATE (yyestate-yysvec-1)
-# define YYOPTIM 1
-# define YYLMAX BUFSIZ
-# define output(c) putc(c,yyout)
-# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
-# define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;}
-# define yymore() (yymorfg=1)
-# define ECHO fprintf(yyout, "%s",yytext)
-# define REJECT { nstr = yyreject(); goto yyfussy;}
-int yyleng; extern char yytext[];
-int yymorfg;
-extern char *yysptr, yysbuf[];
-int yytchar;
-FILE *yyin = {stdin}, *yyout = {stdout};
-extern int yylineno;
-struct yysvf { 
-	struct yywork *yystoff;
-	struct yysvf *yyother;
-	int *yystops;};
-struct yysvf *yyestate;
-extern struct yysvf yysvec[], *yybgin;
-#include <stdlib.h>
-#include <string.h>
-
-#include "opcode.h"
-#include "hash.h"
-#include "inout.h"
-#include "table.h"
-#include "y_tab.h"
-
-#undef input
-#undef unput
-
-static Input input;
-static Unput unput;
-
-void lua_setinput (Input fn)
-{
- input = fn;
-}
-
-void lua_setunput (Unput fn)
-{
- unput = fn;
-}
-
-char *lua_lasttext (void)
-{
- return yytext;
-}
-
-# define YYNEWLINE 10
-yylex(){
-int nstr; extern int yyprevious;
-while((nstr = yylook()) >= 0)
-yyfussy: switch(nstr){
-case 0:
-if(yywrap()) return(0); break;
-case 1:
-				;
-break;
-case 2:
-			{yylval.vInt = 1; return DEBUG;}
-break;
-case 3:
-			{yylval.vInt = 0; return DEBUG;}
-break;
-case 4:
-				lua_linenumber++;
-break;
-case 5:
-				;
-break;
-case 6:
-				return LOCAL;
-break;
-case 7:
-				return IF;
-break;
-case 8:
-				return THEN;
-break;
-case 9:
-				return ELSE;
-break;
-case 10:
-			return ELSEIF;
-break;
-case 11:
-				return WHILE;
-break;
-case 12:
-				return DO;
-break;
-case 13:
-			return REPEAT;
-break;
-case 14:
-				return UNTIL;
-break;
-case 15:
-			{
-                                         yylval.vWord = lua_nfile-1;
-                                         return FUNCTION;
-					}
-break;
-case 16:
-				return END;
-break;
-case 17:
-				return RETURN;
-break;
-case 18:
-				return LOCAL;
-break;
-case 19:
-				return NIL;
-break;
-case 20:
-				return AND;
-break;
-case 21:
-				return OR;
-break;
-case 22:
-				return NOT;
-break;
-case 23:
-				return NE;
-break;
-case 24:
-				return LE;
-break;
-case 25:
-				return GE;
-break;
-case 26:
-				return CONC;
-break;
-case 27:
-			case 28:
-		      {
-				       yylval.vWord = lua_findenclosedconstant (yytext);
-				       return STRING;
-				      }
-break;
-case 29:
-case 30:
-case 31:
-case 32:
-{
-				        yylval.vFloat = atof(yytext);
-				        return NUMBER;
-				       }
-break;
-case 33:
- 	       {
-					yylval.vWord = lua_findsymbol (yytext);
-					return NAME;
-				       }
-break;
-case 34:
-				return  *yytext;
-break;
-case -1:
-break;
-default:
-fprintf(yyout,"bad switch yylook %d",nstr);
-} return(0); }
-/* end of yylex */
-int yyvstop[] = {
-0,
-
-1,
-0,
-
-1,
-0,
-
-34,
-0,
-
-1,
-34,
-0,
-
-4,
-0,
-
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-29,
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-33,
-34,
-0,
-
-34,
-0,
-
-34,
-0,
-
-1,
-0,
-
-27,
-0,
-
-28,
-0,
-
-5,
-0,
-
-26,
-0,
-
-30,
-0,
-
-29,
-0,
-
-29,
-0,
-
-24,
-0,
-
-25,
-0,
-
-33,
-0,
-
-33,
-0,
-
-12,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-7,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-21,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-23,
-0,
-
-29,
-30,
-0,
-
-31,
-0,
-
-20,
-33,
-0,
-
-33,
-0,
-
-16,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-19,
-33,
-0,
-
-22,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-32,
-0,
-
-9,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-8,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-31,
-32,
-0,
-
-33,
-0,
-
-33,
-0,
-
-6,
-18,
-33,
-0,
-
-33,
-0,
-
-33,
-0,
-
-14,
-33,
-0,
-
-11,
-33,
-0,
-
-10,
-33,
-0,
-
-33,
-0,
-
-13,
-33,
-0,
-
-17,
-33,
-0,
-
-2,
-0,
-
-33,
-0,
-
-15,
-33,
-0,
-
-3,
-0,
-0};
-# define YYTYPE char
-struct yywork { YYTYPE verify, advance; } yycrank[] = {
-0,0,	0,0,	1,3,	0,0,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	1,4,	1,5,	
-6,29,	4,28,	0,0,	0,0,	
-0,0,	0,0,	7,31,	0,0,	
-6,29,	6,29,	0,0,	0,0,	
-0,0,	0,0,	7,31,	7,31,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	0,0,	1,6,	
-4,28,	0,0,	0,0,	0,0,	
-1,7,	0,0,	0,0,	0,0,	
-1,3,	6,30,	1,8,	1,9,	
-0,0,	1,10,	6,29,	7,31,	
-8,33,	0,0,	6,29,	0,0,	
-7,32,	0,0,	0,0,	6,29,	
-7,31,	1,11,	0,0,	1,12,	
-2,27,	7,31,	1,13,	11,39,	
-12,40,	1,13,	26,56,	0,0,	
-0,0,	2,8,	2,9,	0,0,	
-6,29,	0,0,	0,0,	6,29,	
-0,0,	0,0,	7,31,	0,0,	
-0,0,	7,31,	0,0,	0,0,	
-2,11,	0,0,	2,12,	0,0,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	1,14,	0,0,	
-0,0,	1,15,	1,16,	1,17,	
-0,0,	22,52,	1,18,	18,47,	
-23,53,	1,19,	42,63,	1,20,	
-1,21,	25,55,	14,42,	1,22,	
-15,43,	1,23,	1,24,	16,44,	
-1,25,	16,45,	17,46,	19,48,	
-21,51,	2,14,	20,49,	1,26,	
-2,15,	2,16,	2,17,	24,54,	
-20,50,	2,18,	44,64,	45,65,	
-2,19,	46,66,	2,20,	2,21,	
-27,57,	48,67,	2,22,	49,68,	
-2,23,	2,24,	50,69,	2,25,	
-52,70,	53,72,	27,58,	54,73,	
-52,71,	9,34,	2,26,	9,35,	
-9,35,	9,35,	9,35,	9,35,	
-9,35,	9,35,	9,35,	9,35,	
-9,35,	10,36,	55,74,	10,37,	
-10,37,	10,37,	10,37,	10,37,	
-10,37,	10,37,	10,37,	10,37,	
-10,37,	57,75,	58,76,	64,80,	
-66,81,	67,82,	70,83,	71,84,	
-72,85,	73,86,	74,87,	10,38,	
-10,38,	38,61,	10,38,	38,61,	
-75,88,	76,89,	38,62,	38,62,	
-38,62,	38,62,	38,62,	38,62,	
-38,62,	38,62,	38,62,	38,62,	
-80,92,	81,93,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-82,94,	83,95,	84,96,	10,38,	
-10,38,	86,97,	10,38,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	87,98,	88,99,	60,79,	
-60,79,	13,41,	60,79,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	13,41,	13,41,	13,41,	
-13,41,	33,33,	89,100,	60,79,	
-60,79,	92,101,	60,79,	93,102,	
-95,103,	33,33,	33,0,	96,104,	
-99,105,	100,106,	102,107,	106,108,	
-107,109,	35,35,	35,35,	35,35,	
-35,35,	35,35,	35,35,	35,35,	
-35,35,	35,35,	35,35,	108,110,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	0,0,	33,33,	0,0,	
-0,0,	35,59,	35,59,	33,33,	
-35,59,	0,0,	0,0,	33,33,	
-0,0,	0,0,	0,0,	0,0,	
-33,33,	0,0,	0,0,	0,0,	
-0,0,	36,60,	36,60,	36,60,	
-36,60,	36,60,	36,60,	36,60,	
-36,60,	36,60,	36,60,	0,0,	
-0,0,	33,33,	0,0,	0,0,	
-33,33,	35,59,	35,59,	0,0,	
-35,59,	36,38,	36,38,	59,77,	
-36,38,	59,77,	0,0,	0,0,	
-59,78,	59,78,	59,78,	59,78,	
-59,78,	59,78,	59,78,	59,78,	
-59,78,	59,78,	61,62,	61,62,	
-61,62,	61,62,	61,62,	61,62,	
-61,62,	61,62,	61,62,	61,62,	
-0,0,	0,0,	0,0,	0,0,	
-0,0,	36,38,	36,38,	0,0,	
-36,38,	77,78,	77,78,	77,78,	
-77,78,	77,78,	77,78,	77,78,	
-77,78,	77,78,	77,78,	79,90,	
-0,0,	79,90,	0,0,	0,0,	
-79,91,	79,91,	79,91,	79,91,	
-79,91,	79,91,	79,91,	79,91,	
-79,91,	79,91,	90,91,	90,91,	
-90,91,	90,91,	90,91,	90,91,	
-90,91,	90,91,	90,91,	90,91,	
-0,0};
-struct yysvf yysvec[] = {
-0,	0,	0,
-yycrank+-1,	0,		yyvstop+1,
-yycrank+-28,	yysvec+1,	yyvstop+3,
-yycrank+0,	0,		yyvstop+5,
-yycrank+4,	0,		yyvstop+7,
-yycrank+0,	0,		yyvstop+10,
-yycrank+-11,	0,		yyvstop+12,
-yycrank+-17,	0,		yyvstop+14,
-yycrank+7,	0,		yyvstop+16,
-yycrank+107,	0,		yyvstop+18,
-yycrank+119,	0,		yyvstop+20,
-yycrank+6,	0,		yyvstop+23,
-yycrank+7,	0,		yyvstop+25,
-yycrank+158,	0,		yyvstop+27,
-yycrank+4,	yysvec+13,	yyvstop+30,
-yycrank+5,	yysvec+13,	yyvstop+33,
-yycrank+11,	yysvec+13,	yyvstop+36,
-yycrank+5,	yysvec+13,	yyvstop+39,
-yycrank+5,	yysvec+13,	yyvstop+42,
-yycrank+12,	yysvec+13,	yyvstop+45,
-yycrank+21,	yysvec+13,	yyvstop+48,
-yycrank+10,	yysvec+13,	yyvstop+51,
-yycrank+4,	yysvec+13,	yyvstop+54,
-yycrank+4,	yysvec+13,	yyvstop+57,
-yycrank+21,	yysvec+13,	yyvstop+60,
-yycrank+9,	yysvec+13,	yyvstop+63,
-yycrank+9,	0,		yyvstop+66,
-yycrank+40,	0,		yyvstop+68,
-yycrank+0,	yysvec+4,	yyvstop+70,
-yycrank+0,	yysvec+6,	0,	
-yycrank+0,	0,		yyvstop+72,
-yycrank+0,	yysvec+7,	0,	
-yycrank+0,	0,		yyvstop+74,
-yycrank+-280,	0,		yyvstop+76,
-yycrank+0,	0,		yyvstop+78,
-yycrank+249,	0,		yyvstop+80,
-yycrank+285,	0,		yyvstop+82,
-yycrank+0,	yysvec+10,	yyvstop+84,
-yycrank+146,	0,		0,	
-yycrank+0,	0,		yyvstop+86,
-yycrank+0,	0,		yyvstop+88,
-yycrank+0,	yysvec+13,	yyvstop+90,
-yycrank+10,	yysvec+13,	yyvstop+92,
-yycrank+0,	yysvec+13,	yyvstop+94,
-yycrank+19,	yysvec+13,	yyvstop+97,
-yycrank+35,	yysvec+13,	yyvstop+99,
-yycrank+27,	yysvec+13,	yyvstop+101,
-yycrank+0,	yysvec+13,	yyvstop+103,
-yycrank+42,	yysvec+13,	yyvstop+106,
-yycrank+35,	yysvec+13,	yyvstop+108,
-yycrank+30,	yysvec+13,	yyvstop+110,
-yycrank+0,	yysvec+13,	yyvstop+112,
-yycrank+36,	yysvec+13,	yyvstop+115,
-yycrank+48,	yysvec+13,	yyvstop+117,
-yycrank+35,	yysvec+13,	yyvstop+119,
-yycrank+61,	yysvec+13,	yyvstop+121,
-yycrank+0,	0,		yyvstop+123,
-yycrank+76,	0,		0,	
-yycrank+67,	0,		0,	
-yycrank+312,	0,		0,	
-yycrank+183,	yysvec+36,	yyvstop+125,
-yycrank+322,	0,		0,	
-yycrank+0,	yysvec+61,	yyvstop+128,
-yycrank+0,	yysvec+13,	yyvstop+130,
-yycrank+78,	yysvec+13,	yyvstop+133,
-yycrank+0,	yysvec+13,	yyvstop+135,
-yycrank+81,	yysvec+13,	yyvstop+138,
-yycrank+84,	yysvec+13,	yyvstop+140,
-yycrank+0,	yysvec+13,	yyvstop+142,
-yycrank+0,	yysvec+13,	yyvstop+145,
-yycrank+81,	yysvec+13,	yyvstop+148,
-yycrank+66,	yysvec+13,	yyvstop+150,
-yycrank+74,	yysvec+13,	yyvstop+152,
-yycrank+80,	yysvec+13,	yyvstop+154,
-yycrank+78,	yysvec+13,	yyvstop+156,
-yycrank+94,	0,		0,	
-yycrank+93,	0,		0,	
-yycrank+341,	0,		0,	
-yycrank+0,	yysvec+77,	yyvstop+158,
-yycrank+356,	0,		0,	
-yycrank+99,	yysvec+13,	yyvstop+160,
-yycrank+89,	yysvec+13,	yyvstop+163,
-yycrank+108,	yysvec+13,	yyvstop+165,
-yycrank+120,	yysvec+13,	yyvstop+167,
-yycrank+104,	yysvec+13,	yyvstop+169,
-yycrank+0,	yysvec+13,	yyvstop+171,
-yycrank+113,	yysvec+13,	yyvstop+174,
-yycrank+148,	yysvec+13,	yyvstop+176,
-yycrank+133,	0,		0,	
-yycrank+181,	0,		0,	
-yycrank+366,	0,		0,	
-yycrank+0,	yysvec+90,	yyvstop+178,
-yycrank+183,	yysvec+13,	yyvstop+181,
-yycrank+182,	yysvec+13,	yyvstop+183,
-yycrank+0,	yysvec+13,	yyvstop+185,
-yycrank+172,	yysvec+13,	yyvstop+189,
-yycrank+181,	yysvec+13,	yyvstop+191,
-yycrank+0,	yysvec+13,	yyvstop+193,
-yycrank+0,	yysvec+13,	yyvstop+196,
-yycrank+189,	0,		0,	
-yycrank+195,	0,		0,	
-yycrank+0,	yysvec+13,	yyvstop+199,
-yycrank+183,	yysvec+13,	yyvstop+202,
-yycrank+0,	yysvec+13,	yyvstop+204,
-yycrank+0,	yysvec+13,	yyvstop+207,
-yycrank+0,	0,		yyvstop+210,
-yycrank+178,	0,		0,	
-yycrank+186,	yysvec+13,	yyvstop+212,
-yycrank+204,	0,		0,	
-yycrank+0,	yysvec+13,	yyvstop+214,
-yycrank+0,	0,		yyvstop+217,
-0,	0,	0};
-struct yywork *yytop = yycrank+423;
-struct yysvf *yybgin = yysvec+1;
-char yymatch[] = {
-00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,011 ,012 ,01  ,01  ,01  ,01  ,01  ,
-01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
-011 ,01  ,'"' ,01  ,01  ,01  ,01  ,047 ,
-01  ,01  ,01  ,'+' ,01  ,'+' ,01  ,01  ,
-'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,
-'0' ,'0' ,01  ,01  ,01  ,01  ,01  ,01  ,
-01  ,'A' ,'A' ,'A' ,'D' ,'D' ,'A' ,'D' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,'A' ,
-01  ,'A' ,'A' ,'A' ,'D' ,'D' ,'A' ,'D' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
-'A' ,'A' ,'A' ,01  ,01  ,01  ,01  ,01  ,
-0};
-char yyextra[] = {
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0,0,0,0,0,0,0,0,
-0};
-#ifndef lint
-static	char ncform_sccsid[] = "@(#)ncform 1.6 88/02/08 SMI"; /* from S5R2 1.2 */
-#endif
-
-int yylineno =1;
-# define YYU(x) x
-# define NLSTATE yyprevious=YYNEWLINE
-char yytext[YYLMAX];
-struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
-char yysbuf[YYLMAX];
-char *yysptr = yysbuf;
-int *yyfnd;
-extern struct yysvf *yyestate;
-int yyprevious = YYNEWLINE;
-yylook(){
-	register struct yysvf *yystate, **lsp;
-	register struct yywork *yyt;
-	struct yysvf *yyz;
-	int yych, yyfirst;
-	struct yywork *yyr;
-# ifdef LEXDEBUG
-	int debug;
-# endif
-	char *yylastch;
-	/* start off machines */
-# ifdef LEXDEBUG
-	debug = 0;
-# endif
-	yyfirst=1;
-	if (!yymorfg)
-		yylastch = yytext;
-	else {
-		yymorfg=0;
-		yylastch = yytext+yyleng;
-		}
-	for(;;){
-		lsp = yylstate;
-		yyestate = yystate = yybgin;
-		if (yyprevious==YYNEWLINE) yystate++;
-		for (;;){
-# ifdef LEXDEBUG
-			if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
-# endif
-			yyt = yystate->yystoff;
-			if(yyt == yycrank && !yyfirst){  /* may not be any transitions */
-				yyz = yystate->yyother;
-				if(yyz == 0)break;
-				if(yyz->yystoff == yycrank)break;
-				}
-			*yylastch++ = yych = input();
-			yyfirst=0;
-		tryagain:
-# ifdef LEXDEBUG
-			if(debug){
-				fprintf(yyout,"char ");
-				allprint(yych);
-				putchar('\n');
-				}
-# endif
-			yyr = yyt;
-			if ( (int)yyt > (int)yycrank){
-				yyt = yyr + yych;
-				if (yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				}
-# ifdef YYOPTIM
-			else if((int)yyt < (int)yycrank) {		/* r < yycrank */
-				yyt = yyr = yycrank+(yycrank-yyt);
-# ifdef LEXDEBUG
-				if(debug)fprintf(yyout,"compressed state\n");
-# endif
-				yyt = yyt + yych;
-				if(yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				yyt = yyr + YYU(yymatch[yych]);
-# ifdef LEXDEBUG
-				if(debug){
-					fprintf(yyout,"try fall back character ");
-					allprint(YYU(yymatch[yych]));
-					putchar('\n');
-					}
-# endif
-				if(yyt <= yytop && yyt->verify+yysvec == yystate){
-					if(yyt->advance+yysvec == YYLERR)	/* error transition */
-						{unput(*--yylastch);break;}
-					*lsp++ = yystate = yyt->advance+yysvec;
-					goto contin;
-					}
-				}
-			if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
-# ifdef LEXDEBUG
-				if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
-# endif
-				goto tryagain;
-				}
-# endif
-			else
-				{unput(*--yylastch);break;}
-		contin:
-# ifdef LEXDEBUG
-			if(debug){
-				fprintf(yyout,"state %d char ",yystate-yysvec-1);
-				allprint(yych);
-				putchar('\n');
-				}
-# endif
-			;
-			}
-# ifdef LEXDEBUG
-		if(debug){
-			fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
-			allprint(yych);
-			putchar('\n');
-			}
-# endif
-		while (lsp-- > yylstate){
-			*yylastch-- = 0;
-			if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){
-				yyolsp = lsp;
-				if(yyextra[*yyfnd]){		/* must backup */
-					while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){
-						lsp--;
-						unput(*yylastch--);
-						}
-					}
-				yyprevious = YYU(*yylastch);
-				yylsp = lsp;
-				yyleng = yylastch-yytext+1;
-				yytext[yyleng] = 0;
-# ifdef LEXDEBUG
-				if(debug){
-					fprintf(yyout,"\nmatch ");
-					sprint(yytext);
-					fprintf(yyout," action %d\n",*yyfnd);
-					}
-# endif
-				return(*yyfnd++);
-				}
-			unput(*yylastch);
-			}
-		if (yytext[0] == 0  /* && feof(yyin) */)
-			{
-			yysptr=yysbuf;
-			return(0);
-			}
-		yyprevious = yytext[0] = input();
-		if (yyprevious>0)
-			output(yyprevious);
-		yylastch=yytext;
-# ifdef LEXDEBUG
-		if(debug)putchar('\n');
-# endif
-		}
-	}
-yyback(p, m)
-	int *p;
-{
-if (p==0) return(0);
-while (*p)
-	{
-	if (*p++ == m)
-		return(1);
-	}
-return(0);
-}
-	/* the following are only used in the lex library */
-yyinput(){
-	return(input());
-	}
-yyoutput(c)
-  int c; {
-	output(c);
-	}
-yyunput(c)
-   int c; {
-	unput(c);
-	}
diff --git a/lua.c b/lua.c
deleted file mode 100644
index be01b70f..00000000
--- a/lua.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/*
-** lua.c
-** Linguagem para Usuarios de Aplicacao
-** TeCGraf - PUC-Rio
-** 28 Apr 93
-*/
-
-#include <stdio.h>
-
-#include "lua.h"
-#include "lualib.h"
-
-
-void test (void)
-{
-  lua_pushobject(lua_getparam(1));
-  lua_call ("c", 1);
-}
-
-
-static void callfunc (void)
-{
- lua_Object obj = lua_getparam (1);
- if (lua_isstring(obj)) lua_call(lua_getstring(obj),0);
-}
-
-static void execstr (void)
-{
- lua_Object obj = lua_getparam (1);
- if (lua_isstring(obj)) lua_dostring(lua_getstring(obj));
-}
-
-void main (int argc, char *argv[])
-{
- int i;
- if (argc < 2)
- {
-  puts ("usage: lua filename [functionnames]");
-  return;
- }
- lua_register ("callfunc", callfunc);
- lua_register ("execstr", execstr);
- lua_register ("test", test);
- iolib_open ();
- strlib_open ();
- mathlib_open ();
- lua_dofile (argv[1]);
- for (i=2; i<argc; i++)
- {
-  lua_call (argv[i],0);
- }
-}
-
-
diff --git a/src/Makefile b/src/Makefile
new file mode 100644
index 00000000..7e833d4f
--- /dev/null
+++ b/src/Makefile
@@ -0,0 +1,24 @@
+# makefile for lua
+
+LIB= $(LUA)/lib
+INC= $(LUA)/include
+
+CC= gcc
+CFLAGS= -g -Wall -O2 -I$(INC) $(DEFS)
+DEFS= -DMAXCODE=64000 -DMAXCONSTANT=1024 -DMAXSYMBOL=1024 -DMAXARRAY=1024
+
+OBJS= hash.o inout.o lex.o opcode.o table.o y.tab.o
+SLIB= $(LIB)/liblua.a
+DLIB= $(LIB)/liblua.so.1.1
+
+libs: $(SLIB) $(DLIB)
+
+$(SLIB): $(OBJS)
+	ar ruvl $@ $(OBJS)
+	ranlib $(SLIB)
+
+$(DLIB): $(OBJS)
+	ld -o $@ $(OBJS)
+
+clean:
+	rm -f $(OBJS) $(SLIB) $(DLIB)
diff --git a/hash.c b/src/hash.c
index 8743d52c..287c1316 100644
--- a/hash.c
+++ b/src/hash.c
@@ -2,13 +2,15 @@
 ** hash.c
 ** hash manager for lua
 ** Luiz Henrique de Figueiredo - 17 Aug 90
-** Modified by Waldemar Celes Filho
-** 12 May 93
 */
 
+char *rcs_hash="$Id: hash.c,v 2.1 1994/04/20 22:07:57 celes Exp $";
+
 #include <string.h>
 #include <stdlib.h>
 
+#include "mm.h"
+
 #include "opcode.h"
 #include "hash.h"
 #include "inout.h"
@@ -24,10 +26,23 @@
 #define nhash(t)	((t)->nhash)
 #define nodelist(t)	((t)->list)
 #define list(t,i)	((t)->list[i])
+#define markarray(t)    ((t)->mark)
 #define ref_tag(n)	(tag(&(n)->ref))
 #define ref_nvalue(n)	(nvalue(&(n)->ref))
 #define ref_svalue(n)	(svalue(&(n)->ref))
 
+#ifndef ARRAYBLOCK
+#define ARRAYBLOCK 50
+#endif
+
+typedef struct ArrayList
+{
+ Hash *array;
+ struct ArrayList *next;
+} ArrayList;
+
+static ArrayList *listhead = NULL;
+
 static int head (Hash *t, Object *ref)		/* hash function */
 {
  if (tag(ref) == T_NUMBER) return (((int)nvalue(ref))%nhash(t));
@@ -89,7 +104,7 @@ static void freelist (Node *n)
 /*
 ** Create a new hash. Return the hash pointer or NULL on error.
 */
-Hash *lua_hashcreate (unsigned int nhash)
+static Hash *hashcreate (unsigned int nhash)
 {
  Hash *t = new (Hash);
  if (t == NULL)
@@ -111,7 +126,7 @@ Hash *lua_hashcreate (unsigned int nhash)
 /*
 ** Delete a hash
 */
-void lua_hashdelete (Hash *h)
+static void hashdelete (Hash *h)
 {
  int i;
  for (i=0; i<nhash(h); i++)
@@ -120,6 +135,86 @@ void lua_hashdelete (Hash *h)
  free(h);
 }
 
+
+/*
+** Mark a hash and check its elements 
+*/
+void lua_hashmark (Hash *h)
+{
+ if (markarray(h) == 0)
+ {
+  int i;
+  markarray(h) = 1;
+  for (i=0; i<nhash(h); i++)
+  {
+   Node *n;
+   for (n = list(h,i); n != NULL; n = n->next)
+   {
+    lua_markobject(&n->ref);
+    lua_markobject(&n->val);
+   }
+  }
+ } 
+}
+ 
+/*
+** Garbage collection to arrays
+** Delete all unmarked arrays.
+*/
+void lua_hashcollector (void)
+{
+ ArrayList *curr = listhead, *prev = NULL;
+ while (curr != NULL)
+ {
+  ArrayList *next = curr->next;
+  if (markarray(curr->array) != 1)
+  {
+   if (prev == NULL) listhead = next;
+   else              prev->next = next;
+   hashdelete(curr->array);
+   free(curr);
+  }
+  else
+  {
+   markarray(curr->array) = 0;
+   prev = curr;
+  }
+  curr = next;
+ }
+}
+
+
+/*
+** Create a new array
+** This function insert the new array at array list. It also
+** execute garbage collection if the number of array created
+** exceed a pre-defined range.
+*/
+Hash *lua_createarray (int nhash)
+{
+ ArrayList *new = new(ArrayList);
+ if (new == NULL)
+ {
+  lua_error ("not enough memory");
+  return NULL;
+ }
+ new->array = hashcreate(nhash);
+ if (new->array == NULL)
+ {
+  lua_error ("not enough memory");
+  return NULL;
+ }
+
+ if (lua_nentity == lua_block)
+  lua_pack(); 
+
+ lua_nentity++;
+ new->next = listhead;
+ listhead = new;
+ return new->array;
+}
+
+
 /*
 ** If the hash node is present, return its pointer, otherwise create a new
 ** node for the given reference and also return its pointer.
@@ -149,26 +244,6 @@ Object *lua_hashdefine (Hash *t, Object *ref)
  return (&n->val);
 }
 
-/*
-** Mark a hash and check its elements 
-*/
-void lua_hashmark (Hash *h)
-{
- int i;
- 
- markarray(h) = 1;
- 
- for (i=0; i<nhash(h); i++)
- {
-  Node *n;
-  for (n = list(h,i); n != NULL; n = n->next)
-  {
-   lua_markobject (&n->ref);
-   lua_markobject (&n->val);
-  }
- }
-}
-
 
 /*
 ** Internal function to manipulate arrays. 
@@ -176,7 +251,6 @@ void lua_hashmark (Hash *h)
 ** in the hash.
 ** This function pushs the element value and its reference to the stack.
 */
-#include "lua.h"
 static void firstnode (Hash *a, int h)
 {
  if (h < nhash(a))
@@ -184,11 +258,25 @@ static void firstnode (Hash *a, int h)
   int i;
   for (i=h; i<nhash(a); i++)
   {
-   if (list(a,i) != NULL && tag(&list(a,i)->val) != T_NIL)
+   if (list(a,i) != NULL)
    {
-    lua_pushobject (&list(a,i)->ref);
-    lua_pushobject (&list(a,i)->val);
-    return;
+    if (tag(&list(a,i)->val) != T_NIL)
+    {
+     lua_pushobject (&list(a,i)->ref);
+     lua_pushobject (&list(a,i)->val);
+     return;
+    }
+    else
+    {
+     Node *next = list(a,i)->next;
+     while (next != NULL && tag(&next->val) == T_NIL) next = next->next;
+     if (next != NULL)
+     {
+      lua_pushobject (&next->ref);
+      lua_pushobject (&next->val);
+      return;
+     }
+    }
    }
   }
  }
diff --git a/hash.h b/src/hash.h
index 28c50317..060031a5 100644
--- a/hash.h
+++ b/src/hash.h
@@ -2,8 +2,7 @@
 ** hash.h
 ** hash manager for lua
 ** Luiz Henrique de Figueiredo - 17 Aug 90
-** Modified by Waldemar Celes Filho
-** 26 Apr 93
+** $Id: hash.h,v 2.1 1994/04/20 22:07:57 celes Exp $
 */
 
 #ifndef hash_h
@@ -23,13 +22,11 @@ typedef struct Hash
  Node         **list;
 } Hash;
 
-#define markarray(t)		((t)->mark)
 
-Hash 	*lua_hashcreate (unsigned int nhash);
-void 	 lua_hashdelete (Hash *h);
+Hash    *lua_createarray (int nhash);
+void     lua_hashmark (Hash *h);
+void     lua_hashcollector (void);
 Object 	*lua_hashdefine (Hash *t, Object *ref);
-void 	 lua_hashmark   (Hash *h);
-
 void     lua_next (void);
 
 #endif
diff --git a/inout.c b/src/inout.c
index 3ba32ba7..d985c1b7 100644
--- a/inout.c
+++ b/src/inout.c
@@ -2,12 +2,10 @@
 ** inout.c
 ** Provide function to realise the input/output function and debugger 
 ** facilities.
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 11 May 93
 */
 
+char *rcs_inout="$Id: inout.c,v 1.2 1993/12/22 21:15:16 roberto Exp $";
+
 #include <stdio.h>
 #include <string.h>
 
@@ -50,14 +48,6 @@ static int fileinput (void)
 }
 
 /*
-** Function to unget the next character from to input file
-*/
-static void fileunput (int c)
-{
- ungetc (c, fp);
-}
-
-/*
 ** Function to get the next character from the input string
 */
 static int stringinput (void)
@@ -67,14 +57,6 @@ static int stringinput (void)
 }
 
 /*
-** Function to unget the next character from to input string
-*/
-static void stringunput (int c)
-{
- st--;
-}
-
-/*
 ** Function to open a file to be input unit. 
 ** Return 0 on success or 1 on error.
 */
@@ -82,7 +64,6 @@ int lua_openfile (char *fn)
 {
  lua_linenumber = 1;
  lua_setinput (fileinput);
- lua_setunput (fileunput);
  fp = fopen (fn, "r");
  if (fp == NULL) return 1;
  if (lua_addfile (fn)) return 1;
@@ -96,6 +77,7 @@ void lua_closefile (void)
 {
  if (fp != NULL)
  {
+  lua_delfile();
   fclose (fp);
   fp = NULL;
  }
@@ -108,7 +90,6 @@ int lua_openstring (char *s)
 {
  lua_linenumber = 1;
  lua_setinput (stringinput);
- lua_setunput (stringunput);
  st = s;
  {
   char sn[64];
@@ -119,6 +100,14 @@ int lua_openstring (char *s)
 }
 
 /*
+** Function to close an opened string
+*/
+void lua_closestring (void)
+{
+ lua_delfile();
+}
+
+/*
 ** Call user function to handle error messages, if registred. Or report error
 ** using standard function (fprintf).
 */
diff --git a/inout.h b/src/inout.h
index 5a72261c..ca5920ca 100644
--- a/inout.h
+++ b/src/inout.h
@@ -1,9 +1,5 @@
 /*
-** inout.h
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 11 May 93
+** $Id: inout.h,v 1.1 1993/12/17 18:41:19 celes Exp $
 */
 
 
@@ -17,6 +13,7 @@ extern int lua_debugline;
 int  lua_openfile     (char *fn);
 void lua_closefile    (void);
 int  lua_openstring   (char *s);
+void lua_closestring  (void);
 int  lua_pushfunction (int file, int function);
 void lua_popfunction  (void);
 void lua_reportbug    (char *s);
diff --git a/src/lex.c b/src/lex.c
new file mode 100644
index 00000000..14f41434
--- /dev/null
+++ b/src/lex.c
@@ -0,0 +1,238 @@
+char *rcs_lex = "$Id: lex.c,v 2.1 1994/04/15 19:00:28 celes Exp $";
+/*$Log: lex.c,v $
+ * Revision 2.1  1994/04/15  19:00:28  celes
+ * Retirar chamada da funcao lua_findsymbol associada a cada
+ * token NAME. A decisao de chamar lua_findsymbol ou lua_findconstant
+ * fica a cargo do modulo "lua.stx".
+ *
+ * Revision 1.3  1993/12/28  16:42:29  roberto
+ * "include"s de string.h e stdlib.h para evitar warnings
+ *
+ * Revision 1.2  1993/12/22  21:39:15  celes
+ * Tratamento do token $debug e $nodebug
+ *
+ * Revision 1.1  1993/12/22  21:15:16  roberto
+ * Initial revision
+ **/
+
+#include <ctype.h>
+#include <math.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "opcode.h"
+#include "hash.h"
+#include "inout.h"
+#include "table.h"
+#include "y.tab.h"
+
+#define next() { current = input(); }
+#define save(x) { *yytextLast++ = (x); }
+#define save_and_next()  { save(current); next(); }
+
+static int current;
+static char yytext[256];
+static char *yytextLast;
+
+static Input input;
+
+void lua_setinput (Input fn)
+{
+  current = ' ';
+  input = fn;
+}
+
+char *lua_lasttext (void)
+{
+  *yytextLast = 0;
+  return yytext;
+}
+
+
+static struct 
+  {
+    char *name;
+    int token;
+  } reserved [] = {
+      {"and", AND},
+      {"do", DO},
+      {"else", ELSE},
+      {"elseif", ELSEIF},
+      {"end", END},
+      {"function", FUNCTION},
+      {"if", IF},
+      {"local", LOCAL},
+      {"nil", NIL},
+      {"not", NOT},
+      {"or", OR},
+      {"repeat", REPEAT},
+      {"return", RETURN},
+      {"then", THEN},
+      {"until", UNTIL},
+      {"while", WHILE} };
+
+#define RESERVEDSIZE (sizeof(reserved)/sizeof(reserved[0]))
+
+
+int findReserved (char *name)
+{
+  int l = 0;
+  int h = RESERVEDSIZE - 1;
+  while (l <= h)
+  {
+    int m = (l+h)/2;
+    int comp = strcmp(name, reserved[m].name);
+    if (comp < 0)
+      h = m-1;
+    else if (comp == 0)
+      return reserved[m].token;
+    else
+      l = m+1;
+  }
+  return 0;
+}
+
+
+int yylex ()
+{
+  while (1)
+  {
+    yytextLast = yytext;
+    switch (current)
+    {
+      case '\n': lua_linenumber++;
+      case ' ':
+      case '\t':
+        next();
+        continue;
+
+      case '$':
+	next();
+	while (isalnum(current) || current == '_')
+          save_and_next();
+        *yytextLast = 0;
+	if (strcmp(yytext, "debug") == 0)
+	{
+	  yylval.vInt = 1;
+	  return DEBUG;
+        }
+	else if (strcmp(yytext, "nodebug") == 0)
+	{
+	  yylval.vInt = 0;
+	  return DEBUG;
+        }
+	return WRONGTOKEN;
+  
+      case '-':
+        save_and_next();
+        if (current != '-') return '-';
+        do { next(); } while (current != '\n' && current != 0);
+        continue;
+  
+      case '<':
+        save_and_next();
+        if (current != '=') return '<';
+        else { save_and_next(); return LE; }
+  
+      case '>':
+        save_and_next();
+        if (current != '=') return '>';
+        else { save_and_next(); return GE; }
+  
+      case '~':
+        save_and_next();
+        if (current != '=') return '~';
+        else { save_and_next(); return NE; }
+
+      case '"':
+      case '\'':
+      {
+        int del = current;
+        next();  /* skip the delimiter */
+        while (current != del) 
+        {
+          switch (current)
+          {
+            case 0: 
+            case '\n': 
+              return WRONGTOKEN;
+            case '\\':
+              next();  /* do not save the '\' */
+              switch (current)
+              {
+                case 'n': save('\n'); next(); break;
+                case 't': save('\t'); next(); break;
+                case 'r': save('\r'); next(); break;
+                default : save('\\'); break;
+              }
+              break;
+            default: 
+              save_and_next();
+          }
+        }
+        next();  /* skip the delimiter */
+        *yytextLast = 0;
+        yylval.vWord = lua_findconstant (yytext);
+        return STRING;
+      }
+
+      case 'a': case 'b': case 'c': case 'd': case 'e':
+      case 'f': case 'g': case 'h': case 'i': case 'j':
+      case 'k': case 'l': case 'm': case 'n': case 'o':
+      case 'p': case 'q': case 'r': case 's': case 't':
+      case 'u': case 'v': case 'w': case 'x': case 'y':
+      case 'z':
+      case 'A': case 'B': case 'C': case 'D': case 'E':
+      case 'F': case 'G': case 'H': case 'I': case 'J':
+      case 'K': case 'L': case 'M': case 'N': case 'O':
+      case 'P': case 'Q': case 'R': case 'S': case 'T':
+      case 'U': case 'V': case 'W': case 'X': case 'Y':
+      case 'Z':
+      case '_':
+      {
+        int res;
+        do { save_and_next(); } while (isalnum(current) || current == '_');
+        *yytextLast = 0;
+        res = findReserved(yytext);
+        if (res) return res;
+        yylval.pChar = yytext;
+        return NAME;
+      }
+   
+      case '.':
+        save_and_next();
+        if (current == '.') 
+        { 
+          save_and_next(); 
+          return CONC;
+        }
+        else if (!isdigit(current)) return '.';
+        /* current is a digit: goes through to number */
+        goto fraction;
+
+      case '0': case '1': case '2': case '3': case '4':
+      case '5': case '6': case '7': case '8': case '9':
+      
+        do { save_and_next(); } while (isdigit(current));
+        if (current == '.') save_and_next();
+fraction: while (isdigit(current)) save_and_next();
+        if (current == 'e' || current == 'E')
+        {
+          save_and_next();
+          if (current == '+' || current == '-') save_and_next();
+          if (!isdigit(current)) return WRONGTOKEN;
+          do { save_and_next(); } while (isdigit(current));
+        }
+        *yytextLast = 0;
+        yylval.vFloat = atof(yytext);
+        return NUMBER;
+
+      default: 		/* also end of file */
+      {
+        save_and_next();
+        return *yytext;      
+      }
+    }
+  }
+}
+        
diff --git a/opcode.c b/src/opcode.c
index 97975ba1..6006f7ac 100644
--- a/opcode.c
+++ b/src/opcode.c
@@ -1,15 +1,18 @@
 /*
 ** opcode.c
 ** TecCGraf - PUC-Rio
-** 26 Apr 93
 */
 
+char *rcs_opcode="$Id: opcode.c,v 2.1 1994/04/20 22:07:57 celes Exp $";
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#ifdef __GNUC__
-#include <floatingpoint.h>
-#endif
+
+/* stdlib.h does not have this in SunOS */
+extern double strtod(const char *, char **);
+
+#include "mm.h"
 
 #include "opcode.h"
 #include "hash.h"
@@ -137,12 +140,13 @@ static int lua_tostring (Object *obj)
 */
 int lua_execute (Byte *pc)
 {
+ Object *oldbase = base;
+ base = top;
  while (1)
  {
-  switch ((OpCode)*pc++)
+  OpCode opcode;
+  switch (opcode = (OpCode)*pc++)
   {
-   case NOP: break;
-   
    case PUSHNIL: tag(top++) = T_NIL; break;
    
    case PUSH0: tag(top) = T_NUMBER; nvalue(top++) = 0; break;
@@ -152,35 +156,42 @@ int lua_execute (Byte *pc)
    case PUSHBYTE: tag(top) = T_NUMBER; nvalue(top++) = *pc++; break;
    
    case PUSHWORD: 
-    tag(top) = T_NUMBER; nvalue(top++) = *((Word *)(pc)); pc += sizeof(Word);
+   {
+    CodeWord code;
+    get_word(code,pc);
+    tag(top) = T_NUMBER; nvalue(top++) = code.w;
+   }
    break;
    
    case PUSHFLOAT:
-    tag(top) = T_NUMBER; nvalue(top++) = *((float *)(pc)); pc += sizeof(float);
+   {
+    CodeFloat code;
+    get_float(code,pc);
+    tag(top) = T_NUMBER; nvalue(top++) = code.f;
+   }
    break;
+
    case PUSHSTRING:
    {
-    int w = *((Word *)(pc));
-    pc += sizeof(Word);
-    tag(top) = T_STRING; svalue(top++) = lua_constant[w];
+    CodeWord code;
+    get_word(code,pc);
+    tag(top) = T_STRING; svalue(top++) = lua_constant[code.w];
    }
    break;
    
-   case PUSHLOCAL0: *top++ = *(base + 0); break;
-   case PUSHLOCAL1: *top++ = *(base + 1); break;
-   case PUSHLOCAL2: *top++ = *(base + 2); break;
-   case PUSHLOCAL3: *top++ = *(base + 3); break;
-   case PUSHLOCAL4: *top++ = *(base + 4); break;
-   case PUSHLOCAL5: *top++ = *(base + 5); break;
-   case PUSHLOCAL6: *top++ = *(base + 6); break;
-   case PUSHLOCAL7: *top++ = *(base + 7); break;
-   case PUSHLOCAL8: *top++ = *(base + 8); break;
-   case PUSHLOCAL9: *top++ = *(base + 9); break;
+   case PUSHLOCAL0: case PUSHLOCAL1: case PUSHLOCAL2:
+   case PUSHLOCAL3: case PUSHLOCAL4: case PUSHLOCAL5:
+   case PUSHLOCAL6: case PUSHLOCAL7: case PUSHLOCAL8:
+   case PUSHLOCAL9: *top++ = *(base + (int)(opcode-PUSHLOCAL0)); break;
    
    case PUSHLOCAL: *top++ = *(base + (*pc++)); break;
    
    case PUSHGLOBAL: 
-    *top++ = s_object(*((Word *)(pc))); pc += sizeof(Word);
+   {
+    CodeWord code;
+    get_word(code,pc);
+    *top++ = s_object(code.w);
+   }
    break;
    
    case PUSHINDEXED:
@@ -201,21 +212,19 @@ int lua_execute (Byte *pc)
    
    case PUSHOBJECT: *top = *(top-3); top++; break;
    
-   case STORELOCAL0: *(base + 0) = *(--top); break;
-   case STORELOCAL1: *(base + 1) = *(--top); break;
-   case STORELOCAL2: *(base + 2) = *(--top); break;
-   case STORELOCAL3: *(base + 3) = *(--top); break;
-   case STORELOCAL4: *(base + 4) = *(--top); break;
-   case STORELOCAL5: *(base + 5) = *(--top); break;
-   case STORELOCAL6: *(base + 6) = *(--top); break;
-   case STORELOCAL7: *(base + 7) = *(--top); break;
-   case STORELOCAL8: *(base + 8) = *(--top); break;
-   case STORELOCAL9: *(base + 9) = *(--top); break;
+   case STORELOCAL0: case STORELOCAL1: case STORELOCAL2:
+   case STORELOCAL3: case STORELOCAL4: case STORELOCAL5:
+   case STORELOCAL6: case STORELOCAL7: case STORELOCAL8:
+   case STORELOCAL9: *(base + (int)(opcode-STORELOCAL0)) = *(--top); break;
     
    case STORELOCAL: *(base + (*pc++)) = *(--top); break;
    
    case STOREGLOBAL:
-    s_object(*((Word *)(pc))) = *(--top); pc += sizeof(Word);
+   {
+    CodeWord code;
+    get_word(code,pc);
+    s_object(code.w) = *(--top);
+   }
    break;
 
    case STOREINDEXED0:
@@ -245,31 +254,63 @@ int lua_execute (Byte *pc)
      if (h == NULL) return 1;
      *h = *(top-1);
     }
-    --top;
+    top--;
    }
    break;
    
-   case STOREFIELD:
-    if (tag(top-3) != T_ARRAY)
+   case STORELIST0:
+   case STORELIST:
+   {
+    int m, n;
+    Object *arr;
+    if (opcode == STORELIST0) m = 0;
+    else m = *(pc++) * FIELDS_PER_FLUSH;
+    n = *(pc++);
+    arr = top-n-1;
+    if (tag(arr) != T_ARRAY)
     {
-     lua_error ("internal error - table expected");
+     lua_reportbug ("internal error - table expected");
      return 1;
     }
-    *(lua_hashdefine (avalue(top-3), top-2)) = *(top-1);
-    top -= 2;
+    while (n)
+    {
+     tag(top) = T_NUMBER; nvalue(top) = n+m;
+     *(lua_hashdefine (avalue(arr), top)) = *(top-1);
+     top--;
+     n--;
+    }
+   }
    break;
    
-   case ADJUST:
+   case STORERECORD:
    {
-    Object *newtop = base + *(pc++);
-    if (top != newtop)
+    int n = *(pc++);
+    Object *arr = top-n-1;
+    if (tag(arr) != T_ARRAY)
+    {
+     lua_reportbug ("internal error - table expected");
+     return 1;
+    }
+    while (n)
     {
-     while (top < newtop) tag(top++) = T_NIL;
-     top = newtop;
+     CodeWord code;
+     get_word(code,pc);
+     tag(top) = T_STRING; svalue(top) = lua_constant[code.w];
+     *(lua_hashdefine (avalue(arr), top)) = *(top-1);
+     top--;
+     n--;
     }
    }
    break;
    
+   case ADJUST:
+   {
+    Object *newtop = base + *(pc++);
+    while (top < newtop) tag(top++) = T_NIL;
+    top = newtop;  /* top could be bigger than newtop */
+   }
+   break;
+   
    case CREATEARRAY:
     if (tag(top-1) == T_NIL) 
      nvalue(top-1) = 101;
@@ -278,7 +319,7 @@ int lua_execute (Byte *pc)
      if (tonumber(top-1)) return 1;
      if (nvalue(top-1) <= 0) nvalue(top-1) = 101;
     }
-    avalue(top-1) = lua_createarray(lua_hashcreate(nvalue(top-1)));
+    avalue(top-1) = lua_createarray(nvalue(top-1));
     if (avalue(top-1) == NULL)
      return 1;
     tag(top-1) = T_ARRAY;
@@ -412,39 +453,51 @@ int lua_execute (Byte *pc)
    
    case ONTJMP:
    {
-    int n = *((Word *)(pc));
-    pc += sizeof(Word);
-    if (tag(top-1) != T_NIL) pc += n;
+    CodeWord code;
+    get_word(code,pc);
+    if (tag(top-1) != T_NIL) pc += code.w;
    }
    break;
    
    case ONFJMP:	   
    {
-    int n = *((Word *)(pc));
-    pc += sizeof(Word);
-    if (tag(top-1) == T_NIL) pc += n;
+    CodeWord code;
+    get_word(code,pc);
+    if (tag(top-1) == T_NIL) pc += code.w;
    }
    break;
    
-   case JMP: pc += *((Word *)(pc)) + sizeof(Word); break;
+   case JMP:
+   {
+    CodeWord code;
+    get_word(code,pc);
+    pc += code.w;
+   }
+   break;
     
-   case UPJMP: pc -= *((Word *)(pc)) - sizeof(Word); break; 
+   case UPJMP:
+   {
+    CodeWord code;
+    get_word(code,pc);
+    pc -= code.w;
+   }
+   break;
    
    case IFFJMP:
    {
-    int n = *((Word *)(pc));
-    pc += sizeof(Word);
+    CodeWord code;
+    get_word(code,pc);
     top--;
-    if (tag(top) == T_NIL) pc += n;
+    if (tag(top) == T_NIL) pc += code.w;
    }
    break;
 
    case IFFUPJMP:
    {
-    int n = *((Word *)(pc));
-    pc += sizeof(Word);
+    CodeWord code;
+    get_word(code,pc);
     top--;
-    if (tag(top) == T_NIL) pc -= n;
+    if (tag(top) == T_NIL) pc -= code.w;
    }
    break;
 
@@ -516,23 +569,25 @@ int lua_execute (Byte *pc)
    break;
    
    case HALT:
+    base = oldbase;
    return 0;		/* success */
    
    case SETFUNCTION:
    {
-    int file, func;
-    file = *((Word *)(pc));
-    pc += sizeof(Word);
-    func = *((Word *)(pc));
-    pc += sizeof(Word);
-    if (lua_pushfunction (file, func))
+    CodeWord file, func;
+    get_word(file,pc);
+    get_word(func,pc);
+    if (lua_pushfunction (file.w, func.w))
      return 1;
    }
    break;
    
    case SETLINE:
-    lua_debugline = *((Word *)(pc));
-    pc += sizeof(Word);
+   {
+    CodeWord code;
+    get_word(code,pc);
+    lua_debugline = code.w;
+   }
    break;
    
    case RESET:
@@ -548,13 +603,13 @@ int lua_execute (Byte *pc)
 
 
 /*
-** Mark all strings and arrays used by any object stored at stack.
+** Traverse all objects on stack
 */
-void lua_markstack (void)
+void lua_travstack (void (*fn)(Object *))
 {
  Object *o;
  for (o = top-1; o >= stack; o--)
-  lua_markobject (o);
+  fn (o);
 }
 
 /*
@@ -577,6 +632,7 @@ int lua_dostring (char *string)
 {
  if (lua_openstring (string)) return 1;
  if (lua_parse ()) return 1;
+ lua_closestring();
  return 0;
 }
 
@@ -612,6 +668,7 @@ Object *lua_getparam (int number)
 */
 real lua_getnumber (Object *object)
 {
+ if (object == NULL || tag(object) == T_NIL) return 0.0;
  if (tonumber (object)) return 0.0;
  else                   return (nvalue(object));
 }
@@ -621,6 +678,7 @@ real lua_getnumber (Object *object)
 */
 char *lua_getstring (Object *object)
 {
+ if (object == NULL || tag(object) == T_NIL) return NULL;
  if (tostring (object)) return NULL;
  else                   return (svalue(object));
 }
@@ -630,6 +688,7 @@ char *lua_getstring (Object *object)
 */
 char *lua_copystring (Object *object)
 {
+ if (object == NULL || tag(object) == T_NIL) return NULL;
  if (tostring (object)) return NULL;
  else                   return (strdup(svalue(object)));
 }
@@ -639,6 +698,7 @@ char *lua_copystring (Object *object)
 */
 lua_CFunction lua_getcfunction (Object *object)
 {
+ if (object == NULL) return NULL;
  if (tag(object) != T_CFUNCTION) return NULL;
  else                            return (fvalue(object));
 }
@@ -648,6 +708,7 @@ lua_CFunction lua_getcfunction (Object *object)
 */
 void *lua_getuserdata (Object *object)
 {
+ if (object == NULL) return NULL;
  if (tag(object) != T_USERDATA) return NULL;
  else                           return (uvalue(object));
 }
@@ -658,6 +719,7 @@ void *lua_getuserdata (Object *object)
 */
 Object *lua_getfield (Object *object, char *field)
 {
+ if (object == NULL) return NULL;
  if (tag(object) != T_ARRAY)
   return NULL;
  else
@@ -675,6 +737,7 @@ Object *lua_getfield (Object *object, char *field)
 */
 Object *lua_getindexed (Object *object, float index)
 {
+ if (object == NULL) return NULL;
  if (tag(object) != T_ARRAY)
   return NULL;
  else
@@ -931,3 +994,28 @@ void lua_print (void)
  }
 }
 
+/*
+** Internal function: do a file
+*/
+void lua_internaldofile (void)
+{
+ lua_Object obj = lua_getparam (1);
+ if (lua_isstring(obj) && !lua_dofile(lua_getstring(obj)))
+  lua_pushnumber(1);
+ else
+  lua_pushnil();
+}
+
+/*
+** Internal function: do a string
+*/
+void lua_internaldostring (void)
+{
+ lua_Object obj = lua_getparam (1);
+ if (lua_isstring(obj) && !lua_dostring(lua_getstring(obj)))
+  lua_pushnumber(1);
+ else
+  lua_pushnil();
+}
+
+
diff --git a/opcode.h b/src/opcode.h
index b32969d5..abf284c4 100644
--- a/opcode.h
+++ b/src/opcode.h
@@ -1,7 +1,6 @@
 /*
-** opcode.h
 ** TeCGraf - PUC-Rio
-** 16 Apr 92
+** $Id: opcode.h,v 2.1 1994/04/20 22:07:57 celes Exp $
 */
 
 #ifndef opcode_h
@@ -15,13 +14,26 @@
 #define real float
 #endif
 
+#define FIELDS_PER_FLUSH 40
+
 typedef unsigned char  Byte;
 
 typedef unsigned short Word;
 
+typedef union
+{
+ struct {char c1; char c2;} m;
+ Word w;
+} CodeWord;
+
+typedef union
+{
+ struct {char c1; char c2; char c3; char c4;} m;
+ float f;
+} CodeFloat;
+
 typedef enum 
 { 
- NOP,
  PUSHNIL,
  PUSH0, PUSH1, PUSH2,
  PUSHBYTE,
@@ -41,7 +53,9 @@ typedef enum
  STOREGLOBAL,
  STOREINDEXED0,
  STOREINDEXED,
- STOREFIELD,
+ STORELIST0,
+ STORELIST,
+ STORERECORD,
  ADJUST,
  CREATEARRAY,
  EQOP,
@@ -83,7 +97,6 @@ typedef enum
 
 typedef void (*Cfunction) (void);
 typedef int  (*Input) (void);
-typedef void (*Unput) (int );
 
 typedef union
 {
@@ -127,18 +140,25 @@ typedef struct
 #define s_fvalue(i)	(fvalue(&s_object(i)))
 #define s_uvalue(i)	(uvalue(&s_object(i)))
 
+#define get_word(code,pc)    {code.m.c1 = *pc++; code.m.c2 = *pc++;}
+#define get_float(code,pc)   {code.m.c1 = *pc++; code.m.c2 = *pc++;\
+                              code.m.c3 = *pc++; code.m.c4 = *pc++;}
+ 
+
 
 /* Exported functions */
 int     lua_execute   (Byte *pc);
 void    lua_markstack (void);
 char   *lua_strdup (char *l);
 
-void    lua_setinput   (Input fn);	/* from "lua.lex" module */
-void    lua_setunput   (Unput fn);	/* from "lua.lex" module */
-char   *lua_lasttext   (void);		/* from "lua.lex" module */
+void    lua_setinput   (Input fn);	/* from "lex.c" module */
+char   *lua_lasttext   (void);		/* from "lex.c" module */
 int     lua_parse      (void); 		/* from "lua.stx" module */
 void    lua_type       (void);
 void 	lua_obj2number (void);
 void 	lua_print      (void);
+void 	lua_internaldofile (void);
+void 	lua_internaldostring (void);
+void    lua_travstack (void (*fn)(Object *));
 
 #endif
diff --git a/table.c b/src/table.c
index 3bae7ebd..7b93df76 100644
--- a/table.c
+++ b/src/table.c
@@ -1,20 +1,22 @@
 /*
 ** table.c
 ** Module to control static tables
-** TeCGraf - PUC-Rio
-** 11 May 93
 */
 
+char *rcs_table="$Id: table.c,v 2.1 1994/04/20 22:07:57 celes Exp $";
+
 #include <stdlib.h>
 #include <string.h>
 
+#include "mm.h"
+
 #include "opcode.h"
 #include "hash.h"
 #include "inout.h"
 #include "table.h"
 #include "lua.h"
 
-#define streq(s1,s2)	(strcmp(s1,s2)==0)
+#define streq(s1,s2)	(s1[0]==s2[0]&&strcmp(s1+1,s2+1)==0)
 
 #ifndef MAXSYMBOL
 #define MAXSYMBOL	512
@@ -24,20 +26,47 @@ static Symbol  		tablebuffer[MAXSYMBOL] = {
                                     {"tonumber",{T_CFUNCTION,{lua_obj2number}}},
                                     {"next",{T_CFUNCTION,{lua_next}}},
                                     {"nextvar",{T_CFUNCTION,{lua_nextvar}}},
-                                    {"print",{T_CFUNCTION,{lua_print}}}
+                                    {"print",{T_CFUNCTION,{lua_print}}},
+                                    {"dofile",{T_CFUNCTION,{lua_internaldofile}}},
+                                    {"dostring",{T_CFUNCTION,{lua_internaldostring}}}
                                                  };
 Symbol	       	       *lua_table=tablebuffer;
-Word   	 		lua_ntable=5;
+Word   	 		lua_ntable=7;
+
+struct List
+{
+ Symbol *s;
+ struct List *next;
+};
+
+static struct List o6={ tablebuffer+6, 0};
+static struct List o5={ tablebuffer+5, &o6 };
+static struct List o4={ tablebuffer+4, &o5 };
+static struct List o3={ tablebuffer+3, &o4 };
+static struct List o2={ tablebuffer+2, &o3 };
+static struct List o1={ tablebuffer+1, &o2 };
+static struct List o0={ tablebuffer+0, &o1 };
+static struct List *searchlist=&o0;
 
 #ifndef MAXCONSTANT
 #define MAXCONSTANT	256
 #endif
-static char  	       *constantbuffer[MAXCONSTANT] = {"mark","nil","number",
-                                                       "string","table",
-                                                       "function","cfunction"
+/* pre-defined constants need garbage collection extra byte */ 
+static char tm[] = " mark";
+static char ti[] = " nil";
+static char tn[] = " number";
+static char ts[] = " string";
+static char tt[] = " table";
+static char tf[] = " function";
+static char tc[] = " cfunction";
+static char tu[] = " userdata";
+static char  	       *constantbuffer[MAXCONSTANT] = {tm+1, ti+1,
+						       tn+1, ts+1,
+						       tt+1, tf+1,
+						       tc+1, tu+1
                                                       };
 char  	      	      **lua_constant = constantbuffer;
-Word    		lua_nconstant=T_CFUNCTION+1;
+Word    		lua_nconstant=T_USERDATA+1;
 
 #ifndef MAXSTRING
 #define MAXSTRING	512
@@ -46,18 +75,19 @@ static char 	       *stringbuffer[MAXSTRING];
 char  		      **lua_string = stringbuffer;
 Word    		lua_nstring=0;
 
-#ifndef MAXARRAY
-#define MAXARRAY	512
-#endif
-static Hash             *arraybuffer[MAXARRAY];
-Hash  	              **lua_array = arraybuffer;
-Word    		lua_narray=0;
-
 #define MAXFILE 	20
 char  		       *lua_file[MAXFILE];
 int      		lua_nfile;
 
 
+#define markstring(s)   (*((s)-1))
+
+
+/* Variables to controll garbage collection */
+Word lua_block=10; /* to check when garbage collector will be called */
+Word lua_nentity;   /* counter of new entities (strings and arrays) */
+
+
 /*
 ** Given a name, search it at symbol table and return its index. If not
 ** found, allocate at end of table, checking oveflow and return its index.
@@ -65,10 +95,19 @@ int      		lua_nfile;
 */
 int lua_findsymbol (char *s)
 {
- int i;
- for (i=0; i<lua_ntable; i++)
-  if (streq(s,s_name(i)))
-   return i;
+ struct List *l, *p;
+ for (p=NULL, l=searchlist; l!=NULL; p=l, l=l->next)
+  if (streq(s,l->s->name))
+  {
+   if (p!=NULL)
+   {
+    p->next = l->next;
+    l->next = searchlist;
+    searchlist = l;
+   }
+   return (l->s-lua_table);
+  }
+
  if (lua_ntable >= MAXSYMBOL-1)
  {
   lua_error ("symbol table overflow");
@@ -80,60 +119,13 @@ int lua_findsymbol (char *s)
   lua_error ("not enough memory");
   return -1;
  }
- s_tag(lua_ntable++) = T_NIL;
- 
- return (lua_ntable-1);
-}
-
-/*
-** Given a constant string, eliminate its delimeters (" or '), search it at 
-** constant table and return its index. If not found, allocate at end of 
-** the table, checking oveflow and return its index.
-**
-** For each allocation, the function allocate a extra char to be used to
-** mark used string (it's necessary to deal with constant and string 
-** uniformily). The function store at the table the second position allocated,
-** that represents the beginning of the real string. On error, return -1.
-** 
-*/
-int lua_findenclosedconstant (char *s)
-{
- int i, j, l=strlen(s);
- char *c = calloc (l, sizeof(char)); 	/* make a copy */
- 
- c++;		/* create mark space */
+ s_tag(lua_ntable) = T_NIL;
+ p = malloc(sizeof(*p)); 
+ p->s = lua_table+lua_ntable;
+ p->next = searchlist;
+ searchlist = p;
 
- /* introduce scape characters */ 
- for (i=1,j=0; i<l-1; i++)
- {
-  if (s[i] == '\\')
-  {
-   switch (s[++i])
-   {
-    case 'n': c[j++] = '\n'; break;
-    case 't': c[j++] = '\t'; break;
-    case 'r': c[j++] = '\r'; break;
-    default : c[j++] = '\\'; c[j++] = c[i]; break;
-   }
-  }
-  else
-   c[j++] = s[i];
- }
- c[j++] = 0;
- 
- for (i=0; i<lua_nconstant; i++)
-  if (streq(c,lua_constant[i]))
-  {
-   free (c-1);
-   return i;
-  }
- if (lua_nconstant >= MAXCONSTANT-1)
- {
-  lua_error ("lua: constant string table overflow"); 
-  return -1;
- }
- lua_constant[lua_nconstant++] = c;
- return (lua_nconstant-1);
+ return lua_ntable++;
 }
 
 /*
@@ -168,65 +160,64 @@ int lua_findconstant (char *s)
 
 
 /*
+** Traverse symbol table objects
+*/
+void lua_travsymbol (void (*fn)(Object *))
+{
+ int i;
+ for (i=0; i<lua_ntable; i++)
+  fn(&s_object(i));
+}
+
+
+/*
 ** Mark an object if it is a string or a unmarked array.
 */
 void lua_markobject (Object *o)
 {
  if (tag(o) == T_STRING)
-  lua_markstring (svalue(o)) = 1;
- else if (tag(o) == T_ARRAY && markarray(avalue(o)) == 0)
+  markstring (svalue(o)) = 1;
+ else if (tag(o) == T_ARRAY)
    lua_hashmark (avalue(o));
 }
 
+
 /*
-** Mark all strings and arrays used by any object stored at symbol table.
+** Garbage collection. 
+** Delete all unused strings and arrays.
 */
-static void lua_marktable (void)
+void lua_pack (void)
 {
- int i;
- for (i=0; i<lua_ntable; i++)
-  lua_markobject (&s_object(i));
+ /* mark stack strings */
+ lua_travstack(lua_markobject);
+ 
+ /* mark symbol table strings */
+ lua_travsymbol(lua_markobject);
+
+ lua_stringcollector();
+ lua_hashcollector();
+
+ lua_nentity = 0;      /* reset counter */
 } 
 
 /*
-** Simulate a garbage colection. When string table or array table overflows,
-** this function check if all allocated strings and arrays are in use. If
-** there are unused ones, pack (compress) the tables.
+** Garbage collection to atrings.
+** Delete all unmarked strings
 */
-static void lua_pack (void)
+void lua_stringcollector (void)
 {
- lua_markstack ();
- lua_marktable ();
- 
- { /* pack string */
-  int i, j;
-  for (i=j=0; i<lua_nstring; i++)
-   if (lua_markstring(lua_string[i]) == 1)
-   {
-    lua_string[j++] = lua_string[i];
-    lua_markstring(lua_string[i]) = 0;
-   }
-   else
-   {
-    free (lua_string[i]-1);
-   }
-  lua_nstring = j;
- }
-
- { /* pack array */
-  int i, j;
-  for (i=j=0; i<lua_narray; i++)
-   if (markarray(lua_array[i]) == 1)
-   {
-    lua_array[j++] = lua_array[i];
-    markarray(lua_array[i]) = 0;
-   }
-   else
-   {
-    lua_hashdelete (lua_array[i]);
-   }
-  lua_narray = j;
- }
+ int i, j;
+ for (i=j=0; i<lua_nstring; i++)
+  if (markstring(lua_string[i]) == 1)
+  {
+   lua_string[j++] = lua_string[i];
+   markstring(lua_string[i]) = 0;
+  }
+  else
+  {
+   free (lua_string[i]-1);
+  }
+ lua_nstring = j;
 }
 
 /*
@@ -236,9 +227,17 @@ static void lua_pack (void)
 */
 char *lua_createstring (char *s)
 {
+ int i;
  if (s == NULL) return NULL;
  
- if (lua_nstring >= MAXSTRING-1)
+ for (i=0; i<lua_nstring; i++)
+  if (streq(s,lua_string[i]))
+  {
+   free(s-1);
+   return lua_string[i];
+  }
+
+ if (lua_nentity == lua_block || lua_nstring >= MAXSTRING-1)
  {
   lua_pack ();
   if (lua_nstring >= MAXSTRING-1)
@@ -248,33 +247,11 @@ char *lua_createstring (char *s)
   }
  } 
  lua_string[lua_nstring++] = s;
+ lua_nentity++;
  return s;
 }
 
 /*
-** Allocate a new array, already created, at array table. The function puts 
-** it at the end of the table, checking overflow, and returns its own pointer,
-** or NULL on error.
-*/
-void *lua_createarray (void *a)
-{
- if (a == NULL) return NULL;
- 
- if (lua_narray >= MAXARRAY-1)
- {
-  lua_pack ();
-  if (lua_narray >= MAXARRAY-1)
-  {
-   lua_error ("indexed table overflow");
-   return NULL;
-  }
- } 
- lua_array[lua_narray++] = a;
- return a;
-}
-
-
-/*
 ** Add a file name at file table, checking overflow. This function also set
 ** the external variable "lua_filename" with the function filename set.
 ** Return 0 on success or 1 on error.
@@ -295,6 +272,15 @@ int lua_addfile (char *fn)
 }
 
 /*
+** Delete a file from file stack
+*/
+int lua_delfile (void)
+{
+ lua_nfile--; 
+ return 1;
+}
+
+/*
 ** Return the last file name set.
 */
 char *lua_filename (void)
@@ -332,9 +318,9 @@ void lua_nextvar (void)
    return;
   }
   index++;
-  while (index < lua_ntable-1 && tag(&s_object(index)) == T_NIL) index++;
+  while (index < lua_ntable && tag(&s_object(index)) == T_NIL) index++;
   
-  if (index == lua_ntable-1)
+  if (index == lua_ntable)
   {
    lua_pushnil();
    lua_pushnil();
diff --git a/src/table.h b/src/table.h
new file mode 100644
index 00000000..a1da6639
--- /dev/null
+++ b/src/table.h
@@ -0,0 +1,42 @@
+/*
+** Module to control static tables
+** TeCGraf - PUC-Rio
+** $Id: table.h,v 2.1 1994/04/20 22:07:57 celes Exp $
+*/
+
+#ifndef table_h
+#define table_h
+
+extern Symbol *lua_table;
+extern Word    lua_ntable;
+
+extern char  **lua_constant;
+extern Word    lua_nconstant;
+
+extern char  **lua_string;
+extern Word    lua_nstring;
+
+extern Hash  **lua_array;
+extern Word    lua_narray;
+
+extern char   *lua_file[];
+extern int     lua_nfile;
+
+extern Word    lua_block;
+extern Word    lua_nentity;
+
+
+
+int   lua_findsymbol      (char *s);
+int   lua_findconstant    (char *s);
+void  lua_travsymbol      (void (*fn)(Object *));
+void  lua_markobject      (Object *o);
+void  lua_pack            (void);
+void  lua_stringcollector (void);
+char *lua_createstring    (char *s);
+int   lua_addfile         (char *fn);
+int   lua_delfile 	  (void);
+char *lua_filename        (void);
+void  lua_nextvar         (void);
+
+#endif
diff --git a/y_tab.c b/src/y.tab.c
index d34d2147..70dbd3cd 100644
--- a/y_tab.c
+++ b/src/y.tab.c
@@ -1,71 +1,125 @@
+
 # line 2 "lua.stx"
 
+char *rcs_luastx = "$Id: lua.stx,v 2.4 1994/04/20 16:22:21 celes Exp $";
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 
+#include "mm.h"
+
 #include "opcode.h"
 #include "hash.h"
 #include "inout.h"
 #include "table.h"
 #include "lua.h"
 
-#ifndef ALIGNMENT
-#define ALIGNMENT	(sizeof(void *))
-#endif
+#define LISTING 0
 
-#ifndef MAXCODE
-#define MAXCODE 1024
+#ifndef GAPCODE
+#define GAPCODE 50
 #endif
-static long   buffer[MAXCODE];
-static Byte  *code = (Byte *)buffer;
-static long   mainbuffer[MAXCODE];
-static Byte  *maincode = (Byte *)mainbuffer;
+static Word   maxcode;
+static Word   maxmain;
+static Word   maxcurr ;
+static Byte  *code = NULL;
+static Byte  *initcode;
 static Byte  *basepc;
-static Byte  *pc;
+static Word   maincode;
+static Word   pc;
 
 #define MAXVAR 32
-static long    varbuffer[MAXVAR];
-static Byte    nvarbuffer=0;	     /* number of variables at a list */
+static long    varbuffer[MAXVAR];    /* variables in an assignment list;
+				it's long to store negative Word values */
+static int     nvarbuffer=0;	     /* number of variables at a list */
+
+static Word    localvar[STACKGAP];   /* store local variable names */
+static int     nlocalvar=0;	     /* number of local variables */
 
-static Word    localvar[STACKGAP];
-static Byte    nlocalvar=0;	     /* number of local variables */
+#define MAXFIELDS FIELDS_PER_FLUSH*2
+static Word    fields[MAXFIELDS];     /* fieldnames to be flushed */
+static int     nfields=0;
 static int     ntemp;		     /* number of temporary var into stack */
 static int     err;		     /* flag to indicate error */
 
 /* Internal functions */
-#define align(n)  align_n(sizeof(n))
 
 static void code_byte (Byte c)
 {
- if (pc-basepc>MAXCODE-1)
+ if (pc>maxcurr-2)  /* 1 byte free to code HALT of main code */
  {
-  lua_error ("code buffer overflow");
-  err = 1;
+  maxcurr += GAPCODE;
+  basepc = (Byte *)realloc(basepc, maxcurr*sizeof(Byte));
+  if (basepc == NULL)
+  {
+   lua_error ("not enough memory");
+   err = 1;
+  }
  }
- *pc++ = c;
+ basepc[pc++] = c;
 }
 
 static void code_word (Word n)
 {
- if (pc-basepc>MAXCODE-sizeof(Word))
- {
-  lua_error ("code buffer overflow");
-  err = 1;
- }
- *((Word *)pc) = n;
- pc += sizeof(Word);
+ CodeWord code;
+ code.w = n;
+ code_byte(code.m.c1);
+ code_byte(code.m.c2);
 }
 
 static void code_float (float n)
 {
- if (pc-basepc>MAXCODE-sizeof(float))
- {
-  lua_error ("code buffer overflow");
-  err = 1;
- }
- *((float *)pc) = n;
- pc += sizeof(float);
+ CodeFloat code;
+ code.f = n;
+ code_byte(code.m.c1);
+ code_byte(code.m.c2);
+ code_byte(code.m.c3);
+ code_byte(code.m.c4);
+}
+
+static void code_word_at (Byte *p, Word n)
+{
+ CodeWord code;
+ code.w = n;
+ *p++ = code.m.c1;
+ *p++ = code.m.c2;
+}
+
+static void push_field (Word name)
+{
+  if (nfields < STACKGAP-1)
+    fields[nfields++] = name;
+  else
+  {
+   lua_error ("too many fields in a constructor");
+   err = 1;
+  }
+}
+
+static void flush_record (int n)
+{
+  int i;
+  if (n == 0) return;
+  code_byte(STORERECORD);
+  code_byte(n);
+  for (i=0; i<n; i++)
+    code_word(fields[--nfields]);
+  ntemp -= n;
+}
+
+static void flush_list (int m, int n)
+{
+  if (n == 0) return;
+  if (m == 0)
+    code_byte(STORELIST0); 
+  else
+  {
+    code_byte(STORELIST);
+    code_byte(m);
+  }
+  code_byte(n);
+  ntemp-=n;
 }
 
 static void incr_ntemp (void)
@@ -79,10 +133,10 @@ static void incr_ntemp (void)
  }
 }
 
-static void incr_nlocalvar (void)
+static void add_nlocalvar (int n)
 {
- if (ntemp+nlocalvar+MAXVAR+1 < STACKGAP)
-  nlocalvar++;
+ if (ntemp+nlocalvar+MAXVAR+n < STACKGAP)
+  nlocalvar += n;
  else
  {
   lua_error ("too many local variables or expression too complicate");
@@ -101,16 +155,9 @@ static void incr_nvarbuffer (void)
  }
 }
 
-static void align_n (unsigned size)
-{
- if (size > ALIGNMENT) size = ALIGNMENT;
- while (((pc+1-code)%size) != 0)	/* +1 to include BYTECODE */
-  code_byte (NOP);
-}
-
 static void code_number (float f)
-{ int i = f;
-  if (f == i)  /* f has an integer value */
+{ Word i = (Word)f;
+  if (f == (float)i)  /* f has an (short) integer value */
   {
    if (i <= 2) code_byte(PUSH0 + i);
    else if (i <= 255)
@@ -120,14 +167,12 @@ static void code_number (float f)
    }
    else
    {
-    align(Word);
     code_byte(PUSHWORD);
     code_word(i);
    }
   }
   else
   {
-   align(float);
    code_byte(PUSHFLOAT);
    code_float(f);
   }
@@ -135,33 +180,34 @@ static void code_number (float f)
 }
 
 
-# line 140 "lua.stx"
+# line 184 "lua.stx"
 typedef union  
 {
  int   vInt;
  long  vLong;
  float vFloat;
+ char *pChar;
  Word  vWord;
  Byte *pByte;
 } YYSTYPE;
-# define NIL 257
-# define IF 258
-# define THEN 259
-# define ELSE 260
-# define ELSEIF 261
-# define WHILE 262
-# define DO 263
-# define REPEAT 264
-# define UNTIL 265
-# define END 266
-# define RETURN 267
-# define LOCAL 268
-# define NUMBER 269
-# define FUNCTION 270
-# define NAME 271
+# define WRONGTOKEN 257
+# define NIL 258
+# define IF 259
+# define THEN 260
+# define ELSE 261
+# define ELSEIF 262
+# define WHILE 263
+# define DO 264
+# define REPEAT 265
+# define UNTIL 266
+# define END 267
+# define RETURN 268
+# define LOCAL 269
+# define NUMBER 270
+# define FUNCTION 271
 # define STRING 272
-# define DEBUG 273
-# define NOT 274
+# define NAME 273
+# define DEBUG 274
 # define AND 275
 # define OR 276
 # define NE 277
@@ -169,6 +215,7 @@ typedef union
 # define GE 279
 # define CONC 280
 # define UNARY 281
+# define NOT 282
 #define yyclearin yychar = -1
 #define yyerrok yyerrflag = 0
 extern int yychar;
@@ -179,7 +226,7 @@ extern int yyerrflag;
 YYSTYPE yylval, yyval;
 # define YYERRCODE 256
 
-# line 530 "lua.stx"
+# line 622 "lua.stx"
 
 
 /*
@@ -202,7 +249,6 @@ static void lua_pushvar (long number)
 { 
  if (number > 0)	/* global var */
  {
-  align(Word);
   code_byte(PUSHGLOBAL);
   code_word(number-1);
   incr_ntemp();
@@ -235,7 +281,6 @@ static void lua_codestore (int i)
 {
  if (varbuffer[i] > 0)		/* global var */
  {
-  align(Word);
   code_byte(STOREGLOBAL);
   code_word(varbuffer[i]-1);
  }
@@ -288,27 +333,37 @@ int yywrap (void)
 */
 int lua_parse (void)
 {
- Byte *initcode = maincode;
+ Byte *init = initcode = (Byte *) calloc(GAPCODE, sizeof(Byte));
+ maincode = 0; 
+ maxmain = GAPCODE;
+ if (init == NULL)
+ {
+  lua_error("not enough memory");
+  return 1;
+ }
  err = 0;
  if (yyparse () || (err==1)) return 1;
- *maincode++ = HALT;
- if (lua_execute (initcode)) return 1;
- maincode = initcode;
+ initcode[maincode++] = HALT;
+ init = initcode;
+#if LISTING
+ PrintCode(init,init+maincode);
+#endif
+ if (lua_execute (init)) return 1;
+ free(init);
  return 0;
 }
 
 
-#if 0
+#if LISTING
 
-static void PrintCode (void)
+static void PrintCode (Byte *code, Byte *end)
 {
  Byte *p = code;
  printf ("\n\nCODE\n");
- while (p != pc)
+ while (p != end)
  {
   switch ((OpCode)*p)
   {
-   case NOP:		printf ("%d    NOP\n", (p++)-code); break;
    case PUSHNIL:	printf ("%d    PUSHNIL\n", (p++)-code); break;
    case PUSH0: case PUSH1: case PUSH2:
     			printf ("%d    PUSH%c\n", p-code, *p-PUSH0+'0');
@@ -319,16 +374,31 @@ static void PrintCode (void)
     			p++;
    			break;
    case PUSHWORD:
-    			printf ("%d    PUSHWORD   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
+                        {
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHWORD   %d\n", n, c.w);
+			}
    			break;
    case PUSHFLOAT:
-    			printf ("%d    PUSHFLOAT  %f\n", p-code, *((float *)(p+1)));
-    			p += 1 + sizeof(float);
+			{
+			 CodeFloat c;
+			 int n = p-code;
+			 p++;
+			 get_float(c,p);
+    			 printf ("%d    PUSHFLOAT  %f\n", n, c.f);
+			}
    			break;
    case PUSHSTRING:
-    			printf ("%d    PUSHSTRING   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHSTRING   %d\n", n, c.w);
+			}
    			break;
    case PUSHLOCAL0: case PUSHLOCAL1: case PUSHLOCAL2: case PUSHLOCAL3:
    case PUSHLOCAL4: case PUSHLOCAL5: case PUSHLOCAL6: case PUSHLOCAL7:
@@ -340,8 +410,13 @@ static void PrintCode (void)
     			p++;
    			break;
    case PUSHGLOBAL:
-    			printf ("%d    PUSHGLOBAL   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHGLOBAL   %d\n", n, c.w);
+			}
    			break;
    case PUSHINDEXED:    printf ("%d    PUSHINDEXED\n", (p++)-code); break;
    case PUSHMARK:       printf ("%d    PUSHMARK\n", (p++)-code); break;
@@ -353,18 +428,34 @@ static void PrintCode (void)
     			p++;
    			break;
    case STORELOCAL:
-    			printf ("%d    STORELOCAK   %d\n", p-code, *(++p));
+    			printf ("%d    STORELOCAL   %d\n", p-code, *(++p));
     			p++;
    			break;
    case STOREGLOBAL:
-    			printf ("%d    STOREGLOBAL   %d\n", p-code, *((Word *)(p+1)));
-    			p += 1 + sizeof(Word);
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    STOREGLOBAL   %d\n", n, c.w);
+			}
    			break;
    case STOREINDEXED0:  printf ("%d    STOREINDEXED0\n", (p++)-code); break;
    case STOREINDEXED:   printf ("%d    STOREINDEXED   %d\n", p-code, *(++p));
     			p++;
    			break;
-   case STOREFIELD:     printf ("%d    STOREFIELD\n", (p++)-code); break;
+   case STORELIST0:
+	printf("%d      STORELIST0  %d\n", p-code, *(++p));
+        p++;
+        break;
+   case STORELIST:
+	printf("%d      STORELIST  %d %d\n", p-code, *(p+1), *(p+2));
+        p+=3;
+        break;
+   case STORERECORD:
+       printf("%d      STORERECORD  %d\n", p-code, *(++p));
+       p += *p*sizeof(Word) + 1;
+       break;
    case ADJUST:
     			printf ("%d    ADJUST   %d\n", p-code, *(++p));
     			p++;
@@ -381,28 +472,58 @@ static void PrintCode (void)
    case MINUSOP:       	printf ("%d    MINUSOP\n", (p++)-code); break;
    case NOTOP:       	printf ("%d    NOTOP\n", (p++)-code); break;
    case ONTJMP:	   
-    			printf ("%d    ONTJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    ONTJMP  %d\n", n, c.w);
+			}
    			break;
    case ONFJMP:	   
-    			printf ("%d    ONFJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    ONFJMP  %d\n", n, c.w);
+			}
    			break;
    case JMP:	   
-    			printf ("%d    JMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    JMP  %d\n", n, c.w);
+			}
    			break;
    case UPJMP:
-    			printf ("%d    UPJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    UPJMP  %d\n", n, c.w);
+			}
    			break;
    case IFFJMP:
-    			printf ("%d    IFFJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    IFFJMP  %d\n", n, c.w);
+			}
    			break;
    case IFFUPJMP:
-    			printf ("%d    IFFUPJMP  %d\n", p-code, *((Word *)(p+1)));
-    			p += sizeof(Word) + 1;
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    IFFUPJMP  %d\n", n, c.w);
+			}
    			break;
    case POP:       	printf ("%d    POP\n", (p++)-code); break;
    case CALLFUNC:	printf ("%d    CALLFUNC\n", (p++)-code); break;
@@ -410,7 +531,29 @@ static void PrintCode (void)
     			printf ("%d    RETCODE   %d\n", p-code, *(++p));
     			p++;
    			break;
-   default:		printf ("%d    Cannot happen\n", (p++)-code); break;
+   case HALT:		printf ("%d    HALT\n", (p++)-code); break;
+   case SETFUNCTION:
+                        {
+                         CodeWord c1, c2;
+                         int n = p-code;
+                         p++;
+                         get_word(c1,p);
+                         get_word(c2,p);
+                         printf ("%d    SETFUNCTION  %d  %d\n", n, c1.w, c2.w);
+                        }
+                        break;
+   case SETLINE:
+                        {
+                         CodeWord c;
+                         int n = p-code;
+                         p++;
+                         get_word(c,p);
+                         printf ("%d    SETLINE  %d\n", n, c.w);
+                        }
+                        break;
+
+   case RESET:		printf ("%d    RESET\n", (p++)-code); break;
+   default:		printf ("%d    Cannot happen: code %d\n", (p++)-code, *(p-1)); break;
   }
  }
 }
@@ -420,194 +563,195 @@ int yyexca[] ={
 -1, 1,
 	0, -1,
 	-2, 2,
--1, 19,
-	40, 65,
-	91, 95,
-	46, 97,
-	-2, 92,
--1, 29,
-	40, 65,
-	91, 95,
-	46, 97,
+-1, 20,
+	40, 67,
+	91, 94,
+	46, 96,
+	-2, 91,
+-1, 32,
+	40, 67,
+	91, 94,
+	46, 96,
 	-2, 51,
--1, 70,
-	275, 33,
-	276, 33,
-	61, 33,
-	277, 33,
-	62, 33,
-	60, 33,
-	278, 33,
-	279, 33,
-	280, 33,
-	43, 33,
-	45, 33,
-	42, 33,
-	47, 33,
-	-2, 68,
--1, 71,
-	91, 95,
-	46, 97,
-	-2, 93,
--1, 102,
-	260, 27,
-	261, 27,
-	265, 27,
-	266, 27,
-	267, 27,
-	-2, 11,
--1, 117,
-	93, 85,
-	-2, 87,
--1, 122,
-	267, 30,
-	-2, 29,
--1, 145,
-	275, 33,
-	276, 33,
-	61, 33,
-	277, 33,
-	62, 33,
-	60, 33,
-	278, 33,
-	279, 33,
-	280, 33,
-	43, 33,
-	45, 33,
-	42, 33,
-	47, 33,
+-1, 73,
+	275, 34,
+	276, 34,
+	61, 34,
+	277, 34,
+	62, 34,
+	60, 34,
+	278, 34,
+	279, 34,
+	280, 34,
+	43, 34,
+	45, 34,
+	42, 34,
+	47, 34,
 	-2, 70,
+-1, 74,
+	91, 94,
+	46, 96,
+	-2, 92,
+-1, 105,
+	261, 28,
+	262, 28,
+	266, 28,
+	267, 28,
+	268, 28,
+	-2, 11,
+-1, 125,
+	268, 31,
+	-2, 30,
+-1, 146,
+	275, 34,
+	276, 34,
+	61, 34,
+	277, 34,
+	62, 34,
+	60, 34,
+	278, 34,
+	279, 34,
+	280, 34,
+	43, 34,
+	45, 34,
+	42, 34,
+	47, 34,
+	-2, 72,
 	};
-# define YYNPROD 105
-# define YYLAST 318
+# define YYNPROD 103
+# define YYLAST 364
 int yyact[]={
 
-    54,    52,   136,    53,    13,    55,    54,    52,    14,    53,
-    15,    55,     5,   166,    18,     6,   129,    21,    47,    46,
-    48,   107,   104,    97,    47,    46,    48,    54,    52,    80,
-    53,    21,    55,    54,    52,    40,    53,     9,    55,    54,
-    52,   158,    53,   160,    55,    47,    46,    48,   159,   101,
-    81,    47,    46,    48,    10,    54,    52,   126,    53,    67,
-    55,    54,    52,    60,    53,   155,    55,   148,   149,   135,
-   147,   108,   150,    47,    46,    48,    73,    23,    75,    47,
-    46,    48,     7,    25,    38,   153,    26,   164,    27,   117,
-    61,    62,    74,    11,    76,    54,    24,   127,    65,    66,
-    55,    37,   154,   151,   103,   111,    72,    28,    93,    94,
-    82,    83,    84,    85,    86,    87,    88,    89,    90,    91,
-    92,   116,    59,    77,    54,    52,   118,    53,    99,    55,
-   110,    95,    64,    44,    70,   109,    29,    33,   105,   106,
-    42,   112,    41,   165,   139,    19,    17,   152,    79,   123,
-    43,   119,    20,   114,   113,    98,    63,   144,   143,   122,
-    68,    39,    36,   130,    35,   120,    12,     8,   102,   125,
-   128,   141,    78,    69,    70,    71,   142,   131,   132,   140,
-    22,   124,     4,     3,     2,   121,    96,   138,   146,   137,
-   134,   157,   133,   115,    16,     1,     0,     0,     0,     0,
-     0,     0,     0,   156,     0,     0,     0,     0,   161,     0,
-     0,     0,     0,   162,     0,     0,     0,   168,     0,   172,
-   145,   163,   171,     0,   174,     0,     0,     0,   169,   156,
-   167,   170,   173,    57,    58,    49,    50,    51,    56,    57,
-    58,    49,    50,    51,    56,   175,     0,     0,   100,     0,
-    45,     0,     0,     0,     0,    70,     0,     0,     0,     0,
-    57,    58,    49,    50,    51,    56,    57,    58,    49,    50,
-    51,    56,     0,     0,     0,     0,     0,    56,     0,     0,
-     0,     0,     0,     0,     0,     0,     0,     0,    57,    58,
-    49,    50,    51,    56,     0,     0,    49,    50,    51,    56,
-    32,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-     0,     0,    30,     0,    21,    31,     0,    34 };
+    58,    56,    22,    57,   132,    59,    58,    56,   137,    57,
+   110,    59,    58,    56,   107,    57,    85,    59,    51,    50,
+    52,    82,    23,    43,    51,    50,    52,    58,    56,     9,
+    57,   157,    59,    58,    56,   165,    57,     5,    59,   162,
+     6,   161,   104,   154,   155,    51,    50,    52,    64,   153,
+    70,    51,    50,    52,    26,    58,    56,   127,    57,    10,
+    59,   111,    25,    78,    27,    58,    56,    28,    57,    29,
+    59,   131,   147,    51,    50,    52,     7,    65,    66,   115,
+   150,   112,    63,    51,    50,    52,    68,    69,    31,   159,
+    11,    79,    58,    76,   128,    73,    41,    59,   151,    87,
+    88,    89,    90,    91,    92,    93,    94,    95,    96,    97,
+    77,   114,   148,    40,    58,    56,   102,    57,   106,    59,
+   117,    32,    72,   121,   116,   100,    80,   109,    67,    48,
+    20,    36,    73,    30,    45,    73,    44,   118,   149,    84,
+    17,   126,    18,    46,    21,    47,   120,   119,   101,   145,
+   144,   125,    71,   123,    75,    39,    38,    12,     8,   108,
+   105,   136,    83,    74,   135,    24,     4,     3,   139,   140,
+     2,    81,   134,   141,   133,   130,   129,    42,   113,    16,
+     1,   146,   124,     0,   143,     0,     0,   152,     0,     0,
+     0,    86,     0,     0,     0,     0,     0,    13,     0,     0,
+   160,    14,     0,    15,   164,   163,     0,    19,   167,     0,
+     0,    23,    73,     0,     0,     0,     0,     0,   168,   166,
+   158,   171,   173,     0,     0,     0,   169,     0,     0,     0,
+     0,     0,     0,    61,    62,    53,    54,    55,    60,    61,
+    62,    53,    54,    55,    60,     0,     0,     0,     0,   103,
+    60,    49,     0,    98,    99,     0,     0,     0,     0,     0,
+    61,    62,    53,    54,    55,    60,    61,    62,    53,    54,
+    55,    60,     0,     0,     0,     0,     0,     0,     0,     0,
+     0,     0,    35,     0,     0,     0,     0,     0,    61,    62,
+    53,    54,    55,    60,    33,   122,    34,    23,     0,     0,
+    53,    54,    55,    60,     0,     0,    37,     0,     0,     0,
+   138,     0,     0,     0,     0,   142,     0,     0,     0,     0,
+     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+     0,     0,     0,   156,     0,     0,     0,     0,     0,     0,
+     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+   170,     0,     0,   172 };
 int yypact[]={
 
- -1000,  -258, -1000, -1000, -1000,  -234, -1000,    34,  -254, -1000,
- -1000, -1000, -1000,    43, -1000, -1000,    40, -1000,  -236, -1000,
- -1000, -1000,    93,    -9, -1000,    43,    43,    43,    92, -1000,
- -1000, -1000, -1000, -1000,    43,    43, -1000,    43,  -240,    62,
-    31,   -13,    48,    83,  -242, -1000,    43,    43,    43,    43,
-    43,    43,    43,    43,    43,    43,    43, -1000, -1000,    90,
-    13, -1000, -1000,  -248,    43,    19,   -15,  -216, -1000,    60,
- -1000, -1000,  -249, -1000, -1000,    43,  -250,    43,    89,    61,
- -1000, -1000,    -3,    -3,    -3,    -3,    -3,    -3,    53,    53,
- -1000, -1000,    82, -1000, -1000, -1000,    -2, -1000,    85,    13,
- -1000,    43, -1000, -1000,    31,    43,   -36, -1000,    56,    60,
- -1000,  -255, -1000,    43,    43, -1000,  -269, -1000, -1000, -1000,
-    13,    34, -1000,    43, -1000,    13, -1000, -1000, -1000, -1000,
-  -193,    19,    19,   -53,    59, -1000, -1000,    -8,    58,    43,
- -1000, -1000, -1000, -1000,  -226, -1000,  -218,  -223, -1000,    43,
- -1000,  -269,    26, -1000, -1000, -1000,    13,  -253,    43, -1000,
- -1000, -1000,   -42, -1000,    43,    43, -1000,    34, -1000,    13,
- -1000, -1000, -1000, -1000,  -193, -1000 };
+ -1000,  -234, -1000, -1000, -1000,  -244, -1000,    31,   -62, -1000,
+ -1000, -1000, -1000,    24, -1000, -1000,    52, -1000, -1000,  -250,
+ -1000, -1000, -1000, -1000,    89,    -9, -1000,    24,    24,    24,
+ -1000,    88, -1000, -1000, -1000, -1000, -1000,    24,    24, -1000,
+    24,  -251,    49, -1000,   -28,    45,    86,  -252,  -257, -1000,
+    24,    24,    24,    24,    24,    24,    24,    24,    24,    24,
+    24, -1000, -1000,    84,    13, -1000, -1000,    24, -1000,   -15,
+  -224, -1000,    74, -1000, -1000, -1000,  -259,    24,    24,  -263,
+    24,   -12, -1000,    83,    76, -1000, -1000,   -30,   -30,   -30,
+   -30,   -30,   -30,    50,    50, -1000, -1000,    72, -1000, -1000,
+ -1000,    82,    13, -1000,    24, -1000, -1000, -1000,    74,   -36,
+ -1000,    53,    74, -1000,  -269,    24, -1000,  -265, -1000,    24,
+    24, -1000, -1000,    13,    31, -1000,    24, -1000, -1000,   -53,
+    68, -1000, -1000,   -13,    54,    13, -1000, -1000,  -218,    23,
+    23, -1000, -1000, -1000, -1000,  -237, -1000, -1000,  -269,    28,
+ -1000,    24,  -226,  -228, -1000,    24,  -232,    24, -1000,    24,
+    13, -1000, -1000, -1000,   -42, -1000,    31,    13, -1000, -1000,
+ -1000, -1000,  -218, -1000 };
 int yypgo[]={
 
-     0,   195,    50,    96,    71,   135,   194,   193,   192,   190,
-   189,   187,   136,   186,   184,    82,    54,   183,   182,   180,
-   172,   170,    59,   168,   167,   166,    63,    70,   164,   162,
-   137,   161,   160,   159,   158,   157,   156,   155,   154,   153,
-   152,   150,   149,   148,    69,   147,   144,    65,   143,   142,
-   140,    76,   138 };
+     0,   180,   191,    54,    61,    81,   179,   133,   178,   177,
+   176,   175,   174,   172,   121,   171,   170,    76,    59,   167,
+   166,   165,   162,   161,    50,   160,   158,   157,    48,    49,
+   156,   155,   131,   154,   152,   151,   150,   149,   148,   147,
+   146,   145,   144,   143,   141,   139,    71,   138,   136,   134 };
 int yyr1[]={
 
-     0,     1,    14,     1,     1,     1,    19,    21,    17,    23,
-    23,    24,    15,    16,    16,    25,    28,    25,    29,    25,
-    25,    25,    25,    27,    27,    27,    32,    33,    22,    34,
-    35,    34,     2,    26,     3,     3,     3,     3,     3,     3,
-     3,     3,     3,     3,     3,     3,     3,     3,    36,     3,
-     3,     3,     3,     3,     3,     3,     3,    38,     3,    39,
-     3,    37,    37,    41,    30,    40,     4,     4,     5,    42,
-     5,    20,    20,    43,    43,    13,    13,     7,     7,     8,
-     8,     9,     9,    45,    44,    10,    10,    46,    11,    48,
-    11,    47,     6,     6,    12,    49,    12,    50,    12,    31,
-    31,    51,    52,    51,    18 };
+     0,     1,    16,     1,     1,     1,    21,    23,    19,    25,
+    25,    26,    17,    18,    18,    27,    30,    27,    31,    27,
+    27,    27,    27,    27,    29,    29,    29,    34,    35,    24,
+    36,    37,    36,     2,    28,     3,     3,     3,     3,     3,
+     3,     3,     3,     3,     3,     3,     3,     3,     3,     3,
+     3,     3,     3,     3,     3,     3,     3,    39,     3,    40,
+     3,    41,     7,    38,    38,    43,    32,    42,     4,     4,
+     5,    44,     5,    22,    22,    45,    45,    15,    15,     8,
+     8,    10,    10,    11,    11,    47,    46,    12,    12,    13,
+    13,     6,     6,    14,    48,    14,    49,    14,     9,     9,
+    33,    33,    20 };
 int yyr2[]={
 
      0,     0,     1,     9,     4,     4,     1,     1,    19,     0,
      6,     1,     4,     0,     2,    17,     1,    17,     1,    13,
-     7,     3,     4,     0,     4,    15,     1,     1,     9,     0,
-     1,     9,     1,     3,     7,     7,     7,     7,     7,     7,
-     7,     7,     7,     7,     7,     7,     5,     5,     1,     9,
+     7,     3,     3,     7,     0,     4,    15,     1,     1,     9,
+     0,     1,     9,     1,     3,     7,     7,     7,     7,     7,
+     7,     7,     7,     7,     7,     7,     7,     5,     5,     3,
      9,     3,     3,     3,     3,     3,     5,     1,    11,     1,
-    11,     1,     2,     1,    11,     3,     1,     3,     3,     1,
-     9,     0,     2,     3,     7,     1,     3,     7,     7,     1,
-     3,     3,     7,     1,     9,     1,     3,     1,     5,     1,
-     9,     3,     3,     7,     3,     1,    11,     1,     9,     5,
-     9,     1,     1,     6,     3 };
+    11,     1,     9,     1,     2,     1,    11,     3,     1,     3,
+     3,     1,     9,     0,     2,     3,     7,     1,     3,     7,
+     7,     1,     3,     3,     7,     1,     9,     1,     3,     3,
+     7,     3,     7,     3,     1,    11,     1,     9,     3,     7,
+     0,     4,     3 };
 int yychk[]={
 
- -1000,    -1,   -14,   -17,   -18,   270,   273,   -15,   -24,   271,
-   -16,    59,   -25,   258,   262,   264,    -6,   -30,   268,   -12,
-   -40,   271,   -19,   -26,    -3,    40,    43,    45,    64,   -12,
-   269,   272,   257,   -30,   274,   -28,   -29,    61,    44,   -31,
-   271,   -49,   -50,   -41,    40,   259,    61,    60,    62,   277,
-   278,   279,    43,    45,    42,    47,   280,   275,   276,    -3,
-   -26,   -26,   -26,   -36,    40,   -26,   -26,   -22,   -32,    -5,
-    -3,   -12,    44,   -51,    61,    91,    46,    40,   -20,   -43,
-   271,    -2,   -26,   -26,   -26,   -26,   -26,   -26,   -26,   -26,
-   -26,   -26,   -26,    -2,    -2,    41,   -13,   271,   -37,   -26,
-   263,   265,   -23,    44,   271,   -52,   -26,   271,    -4,    -5,
-    41,    44,   -22,   -38,   -39,    -7,   123,    91,    41,    -2,
-   -26,   -15,   -33,   -42,   -51,   -26,    93,    41,   -21,   271,
-    -2,   -26,   -26,    -8,    -9,   -44,   271,   -10,   -11,   -46,
-   -22,    -2,   -16,   -34,   -35,    -3,   -22,   -27,   260,   261,
-   125,    44,   -45,    93,    44,   -47,   -26,    -2,   267,   266,
-   266,   -22,   -26,   -44,    61,   -48,   266,    -4,   259,   -26,
-   -47,   -16,    -2,   -22,    -2,   -27 };
+ -1000,    -1,   -16,   -19,   -20,   271,   274,   -17,   -26,   273,
+   -18,    59,   -27,   259,   263,   265,    -6,   -32,    -7,   269,
+   -14,   -42,    64,   273,   -21,   -28,    -3,    40,    43,    45,
+    -7,    64,   -14,   270,   272,   258,   -32,   282,   -30,   -31,
+    61,    44,    -9,   273,   -48,   -49,   -43,   -41,    40,   260,
+    61,    60,    62,   277,   278,   279,    43,    45,    42,    47,
+   280,   275,   276,    -3,   -28,   -28,   -28,    40,   -28,   -28,
+   -24,   -34,    -5,    -3,   -14,   -33,    44,    61,    91,    46,
+    40,   -15,   273,   -22,   -45,   273,    -2,   -28,   -28,   -28,
+   -28,   -28,   -28,   -28,   -28,   -28,   -28,   -28,    -2,    -2,
+    41,   -38,   -28,   264,   266,   -25,    44,   273,    -5,   -28,
+   273,    -4,    -5,    -8,   123,    91,    41,    44,   -24,   -39,
+   -40,    41,    -2,   -28,   -17,   -35,   -44,    93,    41,   -10,
+   -11,   -46,   273,   -12,   -13,   -28,   -23,   273,    -2,   -28,
+   -28,   -24,    -2,   -18,   -36,   -37,    -3,   125,    44,   -47,
+    93,    44,   -24,   -29,   261,   262,    -2,   268,   -46,    61,
+   -28,   267,   267,   -24,   -28,   267,    -4,   -28,   260,   -18,
+    -2,   -24,    -2,   -29 };
 int yydef[]={
 
-     1,    -2,    11,     4,     5,     0,   104,    13,     0,     6,
-     3,    14,    12,     0,    16,    18,     0,    21,     0,    -2,
-    63,    94,     0,     0,    33,     0,     0,     0,    48,    -2,
-    52,    53,    54,    55,     0,     0,    26,     0,     0,    22,
-   101,     0,     0,     0,    71,    32,     0,     0,     0,     0,
-     0,     0,     0,     0,     0,     0,     0,    32,    32,    33,
-     0,    46,    47,    75,    61,    56,     0,     0,     9,    20,
-    -2,    -2,     0,    99,   102,     0,     0,    66,     0,    72,
-    73,    26,    35,    36,    37,    38,    39,    40,    41,    42,
-    43,    44,    45,    57,    59,    34,     0,    76,     0,    62,
-    32,     0,    -2,    69,   101,     0,     0,    98,     0,    67,
-     7,     0,    32,     0,     0,    49,    79,    -2,    50,    26,
-    32,    13,    -2,     0,   100,   103,    96,    64,    26,    74,
-    23,    58,    60,     0,    80,    81,    83,     0,    86,     0,
-    32,    19,    10,    28,     0,    -2,     0,     0,    26,     0,
-    77,     0,     0,    78,    89,    88,    91,     0,    66,     8,
-    15,    24,     0,    82,     0,     0,    17,    13,    32,    84,
-    90,    31,    26,    32,    23,    25 };
+     1,    -2,    11,     4,     5,     0,   102,    13,     0,     6,
+     3,    14,    12,     0,    16,    18,     0,    21,    22,     0,
+    -2,    65,    61,    93,     0,     0,    34,     0,     0,     0,
+    49,    61,    -2,    52,    53,    54,    55,     0,     0,    27,
+     0,     0,   100,    98,     0,     0,     0,    77,    73,    33,
+     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+     0,    33,    33,    34,     0,    47,    48,    63,    56,     0,
+     0,     9,    20,    -2,    -2,    23,     0,     0,     0,     0,
+    68,     0,    78,     0,    74,    75,    27,    36,    37,    38,
+    39,    40,    41,    42,    43,    44,    45,    46,    57,    59,
+    35,     0,    64,    33,     0,    -2,    71,    99,   101,     0,
+    97,     0,    69,    62,    81,    87,     7,     0,    33,     0,
+     0,    50,    27,    33,    13,    -2,     0,    95,    66,     0,
+    82,    83,    85,     0,    88,    89,    27,    76,    24,    58,
+    60,    33,    19,    10,    29,     0,    -2,    79,     0,     0,
+    80,     0,     0,     0,    27,     0,     0,    68,    84,     0,
+    90,     8,    15,    25,     0,    17,    13,    86,    33,    32,
+    27,    33,    24,    26 };
 typedef struct { char *t_name; int t_val; } yytoktype;
 #ifndef YYDEBUG
 #	define YYDEBUG	0	/* don't allow debugging */
@@ -617,24 +761,24 @@ typedef struct { char *t_name; int t_val; } yytoktype;
 
 yytoktype yytoks[] =
 {
-	"NIL",	257,
-	"IF",	258,
-	"THEN",	259,
-	"ELSE",	260,
-	"ELSEIF",	261,
-	"WHILE",	262,
-	"DO",	263,
-	"REPEAT",	264,
-	"UNTIL",	265,
-	"END",	266,
-	"RETURN",	267,
-	"LOCAL",	268,
-	"NUMBER",	269,
-	"FUNCTION",	270,
-	"NAME",	271,
+	"WRONGTOKEN",	257,
+	"NIL",	258,
+	"IF",	259,
+	"THEN",	260,
+	"ELSE",	261,
+	"ELSEIF",	262,
+	"WHILE",	263,
+	"DO",	264,
+	"REPEAT",	265,
+	"UNTIL",	266,
+	"END",	267,
+	"RETURN",	268,
+	"LOCAL",	269,
+	"NUMBER",	270,
+	"FUNCTION",	271,
 	"STRING",	272,
-	"DEBUG",	273,
-	"NOT",	274,
+	"NAME",	273,
+	"DEBUG",	274,
 	"AND",	275,
 	"OR",	276,
 	"=",	61,
@@ -648,8 +792,8 @@ yytoktype yytoks[] =
 	"-",	45,
 	"*",	42,
 	"/",	47,
-	"%",	37,
 	"UNARY",	281,
+	"NOT",	282,
 	"-unknown-",	-1	/* ends search */
 };
 
@@ -677,7 +821,8 @@ char * yyreds[] =
 	"stat1 : REPEAT block UNTIL expr1 PrepJump",
 	"stat1 : varlist1 '=' exprlist1",
 	"stat1 : functioncall",
-	"stat1 : LOCAL declist",
+	"stat1 : typeconstructor",
+	"stat1 : LOCAL localdeclist decinit",
 	"elsepart : /* empty */",
 	"elsepart : ELSE block",
 	"elsepart : ELSEIF expr1 THEN PrepJump block PrepJump elsepart",
@@ -703,8 +848,7 @@ char * yyreds[] =
 	"expr : expr1 CONC expr1",
 	"expr : '+' expr1",
 	"expr : '-' expr1",
-	"expr : '@'",
-	"expr : '@' objectname fieldlist",
+	"expr : typeconstructor",
 	"expr : '@' '(' dimension ')'",
 	"expr : var",
 	"expr : NUMBER",
@@ -716,6 +860,8 @@ char * yyreds[] =
 	"expr : expr1 AND PrepJump expr1",
 	"expr : expr1 OR PrepJump",
 	"expr : expr1 OR PrepJump expr1",
+	"typeconstructor : '@'",
+	"typeconstructor : '@' objectname fieldlist",
 	"dimension : /* empty */",
 	"dimension : expr1",
 	"functioncall : functionvalue",
@@ -742,11 +888,8 @@ char * yyreds[] =
 	"ffield : NAME '=' expr1",
 	"lfieldlist : /* empty */",
 	"lfieldlist : lfieldlist1",
-	"lfieldlist1 : /* empty */",
-	"lfieldlist1 : lfield",
-	"lfieldlist1 : lfieldlist1 ','",
-	"lfieldlist1 : lfieldlist1 ',' lfield",
-	"lfield : expr1",
+	"lfieldlist1 : expr1",
+	"lfieldlist1 : lfieldlist1 ',' expr1",
 	"varlist1 : var",
 	"varlist1 : varlist1 ',' var",
 	"var : NAME",
@@ -754,11 +897,10 @@ char * yyreds[] =
 	"var : var '[' expr1 ']'",
 	"var : var",
 	"var : var '.' NAME",
-	"declist : NAME init",
-	"declist : declist ',' NAME init",
-	"init : /* empty */",
-	"init : '='",
-	"init : '=' expr1",
+	"localdeclist : NAME",
+	"localdeclist : localdeclist ',' NAME",
+	"decinit : /* empty */",
+	"decinit : '=' exprlist1",
 	"setdebug : DEBUG",
 };
 #endif /* YYDEBUG */
@@ -1203,87 +1345,113 @@ yyparse()
 	{
 		
 case 2:
-# line 179 "lua.stx"
-{pc=basepc=maincode; nlocalvar=0;} break;
+# line 227 "lua.stx"
+{
+	  	  pc=maincode; basepc=initcode; maxcurr=maxmain;
+		  nlocalvar=0;
+	        } break;
 case 3:
-# line 179 "lua.stx"
-{maincode=pc;} break;
+# line 232 "lua.stx"
+{
+		  maincode=pc; initcode=basepc; maxmain=maxcurr;
+		} break;
 case 6:
-# line 184 "lua.stx"
-{pc=basepc=code; nlocalvar=0;} break;
+# line 240 "lua.stx"
+{
+		if (code == NULL)	/* first function */
+		{
+		 code = (Byte *) calloc(GAPCODE, sizeof(Byte));
+		 if (code == NULL)
+		 {
+		  lua_error("not enough memory");
+		  err = 1;
+		 }
+		 maxcode = GAPCODE;
+		}
+		pc=0; basepc=code; maxcurr=maxcode; 
+		nlocalvar=0;
+		yyval.vWord = lua_findsymbol(yypvt[-0].pChar); 
+	       } break;
 case 7:
-# line 185 "lua.stx"
+# line 256 "lua.stx"
 {
 	        if (lua_debug)
 		{
-		 align(Word);
 	         code_byte(SETFUNCTION); 
-                 code_word(yypvt[-5].vWord);
-		 code_word(yypvt[-4].vWord);
+                 code_word(lua_nfile-1);
+		 code_word(yypvt[-3].vWord);
 		}
 	        lua_codeadjust (0);
 	       } break;
 case 8:
-# line 197 "lua.stx"
+# line 267 "lua.stx"
 { 
                 if (lua_debug) code_byte(RESET); 
 	        code_byte(RETCODE); code_byte(nlocalvar);
-	        s_tag(yypvt[-7].vWord) = T_FUNCTION;
-	        s_bvalue(yypvt[-7].vWord) = calloc (pc-code, sizeof(Byte));
-	        memcpy (s_bvalue(yypvt[-7].vWord), code, (pc-code)*sizeof(Byte));
+	        s_tag(yypvt[-6].vWord) = T_FUNCTION;
+	        s_bvalue(yypvt[-6].vWord) = calloc (pc, sizeof(Byte));
+		if (s_bvalue(yypvt[-6].vWord) == NULL)
+		{
+		 lua_error("not enough memory");
+		 err = 1;
+		}
+	        memcpy (s_bvalue(yypvt[-6].vWord), basepc, pc*sizeof(Byte));
+		code = basepc; maxcode=maxcurr;
+#if LISTING
+PrintCode(code,code+pc);
+#endif
 	       } break;
 case 11:
-# line 210 "lua.stx"
+# line 289 "lua.stx"
 {
             ntemp = 0; 
             if (lua_debug)
             {
-             align(Word); code_byte(SETLINE); code_word(lua_linenumber);
+             code_byte(SETLINE); code_word(lua_linenumber);
             }
 	   } break;
 case 15:
-# line 223 "lua.stx"
+# line 302 "lua.stx"
 {
         {
-	 Byte *elseinit = yypvt[-2].pByte + sizeof(Word)+1;
+	 Word elseinit = yypvt[-2].vWord+sizeof(Word)+1;
 	 if (pc - elseinit == 0)		/* no else */
 	 {
 	  pc -= sizeof(Word)+1;
-	 /* if (*(pc-1) == NOP) --pc; */
 	  elseinit = pc;
 	 }
 	 else
 	 {
-	  *(yypvt[-2].pByte) = JMP;
-	  *((Word *)(yypvt[-2].pByte+1)) = pc - elseinit;
+	  basepc[yypvt[-2].vWord] = JMP;
+	  code_word_at(basepc+yypvt[-2].vWord+1, pc - elseinit);
 	 }
-	 *(yypvt[-4].pByte) = IFFJMP;
-	 *((Word *)(yypvt[-4].pByte+1)) = elseinit - (yypvt[-4].pByte + sizeof(Word)+1);
+	 basepc[yypvt[-4].vWord] = IFFJMP;
+	 code_word_at(basepc+yypvt[-4].vWord+1,elseinit-(yypvt[-4].vWord+sizeof(Word)+1));
 	}
        } break;
 case 16:
-# line 242 "lua.stx"
-{yyval.pByte = pc;} break;
+# line 320 "lua.stx"
+{yyval.vWord=pc;} break;
 case 17:
-# line 244 "lua.stx"
+# line 322 "lua.stx"
 {
-        *(yypvt[-3].pByte) = IFFJMP;
-        *((Word *)(yypvt[-3].pByte+1)) = pc - (yypvt[-3].pByte + sizeof(Word)+1);
+        basepc[yypvt[-3].vWord] = IFFJMP;
+	code_word_at(basepc+yypvt[-3].vWord+1, pc - (yypvt[-3].vWord + sizeof(Word)+1));
         
-        *(yypvt[-1].pByte) = UPJMP;
-        *((Word *)(yypvt[-1].pByte+1)) = pc - yypvt[-6].pByte;
+        basepc[yypvt[-1].vWord] = UPJMP;
+	code_word_at(basepc+yypvt[-1].vWord+1, pc - (yypvt[-6].vWord));
        } break;
 case 18:
-# line 252 "lua.stx"
-{yyval.pByte = pc;} break;
+# line 330 "lua.stx"
+{yyval.vWord=pc;} break;
 case 19:
-# line 254 "lua.stx"
+# line 332 "lua.stx"
 {
-        *(yypvt[-0].pByte) = IFFUPJMP;
-        *((Word *)(yypvt[-0].pByte+1)) = pc - yypvt[-4].pByte;
+        basepc[yypvt[-0].vWord] = IFFUPJMP;
+	code_word_at(basepc+yypvt[-0].vWord+1, pc - (yypvt[-4].vWord));
        } break;
 case 20:
-# line 261 "lua.stx"
+# line 339 "lua.stx"
 {
         {
          int i;
@@ -1296,36 +1464,41 @@ case 20:
 	}
        } break;
 case 21:
-# line 272 "lua.stx"
+# line 350 "lua.stx"
 { lua_codeadjust (0); } break;
-case 25:
-# line 279 "lua.stx"
+case 22:
+# line 351 "lua.stx"
+{ lua_codeadjust (0); } break;
+case 23:
+# line 352 "lua.stx"
+{ add_nlocalvar(yypvt[-1].vInt); lua_codeadjust (0); } break;
+case 26:
+# line 358 "lua.stx"
 {
           {
-  	   Byte *elseinit = yypvt[-1].pByte + sizeof(Word)+1;
+  	   Word elseinit = yypvt[-1].vWord+sizeof(Word)+1;
   	   if (pc - elseinit == 0)		/* no else */
   	   {
   	    pc -= sizeof(Word)+1;
-  	    /* if (*(pc-1) == NOP) --pc; */
 	    elseinit = pc;
 	   }
 	   else
 	   {
-	    *(yypvt[-1].pByte) = JMP;
-	    *((Word *)(yypvt[-1].pByte+1)) = pc - elseinit;
+	    basepc[yypvt[-1].vWord] = JMP;
+	    code_word_at(basepc+yypvt[-1].vWord+1, pc - elseinit);
 	   }
-	   *(yypvt[-3].pByte) = IFFJMP;
-	   *((Word *)(yypvt[-3].pByte+1)) = elseinit - (yypvt[-3].pByte + sizeof(Word)+1);
+	   basepc[yypvt[-3].vWord] = IFFJMP;
+	   code_word_at(basepc+yypvt[-3].vWord+1, elseinit - (yypvt[-3].vWord + sizeof(Word)+1));
 	  }  
          } break;
-case 26:
-# line 299 "lua.stx"
-{yyval.vInt = nlocalvar;} break;
 case 27:
-# line 299 "lua.stx"
-{ntemp = 0;} break;
+# line 377 "lua.stx"
+{yyval.vInt = nlocalvar;} break;
 case 28:
-# line 300 "lua.stx"
+# line 377 "lua.stx"
+{ntemp = 0;} break;
+case 29:
+# line 378 "lua.stx"
 {
 	  if (nlocalvar != yypvt[-3].vInt)
 	  {
@@ -1333,306 +1506,305 @@ case 28:
 	   lua_codeadjust (0);
 	  }
          } break;
-case 30:
-# line 310 "lua.stx"
-{ if (lua_debug){align(Word);code_byte(SETLINE);code_word(lua_linenumber);}} break;
 case 31:
-# line 312 "lua.stx"
+# line 388 "lua.stx"
+{ if (lua_debug){code_byte(SETLINE);code_word(lua_linenumber);}} break;
+case 32:
+# line 390 "lua.stx"
 { 
            if (lua_debug) code_byte(RESET); 
            code_byte(RETCODE); code_byte(nlocalvar);
           } break;
-case 32:
-# line 319 "lua.stx"
+case 33:
+# line 397 "lua.stx"
 { 
-          align(Word); 
-	  yyval.pByte = pc;
+	  yyval.vWord = pc;
 	  code_byte(0);		/* open space */
 	  code_word (0);
          } break;
-case 33:
-# line 326 "lua.stx"
-{ if (yypvt[-0].vInt == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}} break;
 case 34:
-# line 329 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
+# line 403 "lua.stx"
+{ if (yypvt[-0].vInt == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}} break;
 case 35:
-# line 330 "lua.stx"
-{ code_byte(EQOP);   yyval.vInt = 1; ntemp--;} break;
+# line 406 "lua.stx"
+{ yyval.vInt = yypvt[-1].vInt; } break;
 case 36:
-# line 331 "lua.stx"
-{ code_byte(LTOP);   yyval.vInt = 1; ntemp--;} break;
+# line 407 "lua.stx"
+{ code_byte(EQOP);   yyval.vInt = 1; ntemp--;} break;
 case 37:
-# line 332 "lua.stx"
-{ code_byte(LEOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
+# line 408 "lua.stx"
+{ code_byte(LTOP);   yyval.vInt = 1; ntemp--;} break;
 case 38:
-# line 333 "lua.stx"
-{ code_byte(EQOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
+# line 409 "lua.stx"
+{ code_byte(LEOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
 case 39:
-# line 334 "lua.stx"
-{ code_byte(LEOP);   yyval.vInt = 1; ntemp--;} break;
+# line 410 "lua.stx"
+{ code_byte(EQOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
 case 40:
-# line 335 "lua.stx"
-{ code_byte(LTOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
+# line 411 "lua.stx"
+{ code_byte(LEOP);   yyval.vInt = 1; ntemp--;} break;
 case 41:
-# line 336 "lua.stx"
-{ code_byte(ADDOP);  yyval.vInt = 1; ntemp--;} break;
+# line 412 "lua.stx"
+{ code_byte(LTOP); code_byte(NOTOP); yyval.vInt = 1; ntemp--;} break;
 case 42:
-# line 337 "lua.stx"
-{ code_byte(SUBOP);  yyval.vInt = 1; ntemp--;} break;
+# line 413 "lua.stx"
+{ code_byte(ADDOP);  yyval.vInt = 1; ntemp--;} break;
 case 43:
-# line 338 "lua.stx"
-{ code_byte(MULTOP); yyval.vInt = 1; ntemp--;} break;
+# line 414 "lua.stx"
+{ code_byte(SUBOP);  yyval.vInt = 1; ntemp--;} break;
 case 44:
-# line 339 "lua.stx"
-{ code_byte(DIVOP);  yyval.vInt = 1; ntemp--;} break;
+# line 415 "lua.stx"
+{ code_byte(MULTOP); yyval.vInt = 1; ntemp--;} break;
 case 45:
-# line 340 "lua.stx"
-{ code_byte(CONCOP);  yyval.vInt = 1; ntemp--;} break;
+# line 416 "lua.stx"
+{ code_byte(DIVOP);  yyval.vInt = 1; ntemp--;} break;
 case 46:
-# line 341 "lua.stx"
-{ yyval.vInt = 1; } break;
+# line 417 "lua.stx"
+{ code_byte(CONCOP);  yyval.vInt = 1; ntemp--;} break;
 case 47:
-# line 342 "lua.stx"
-{ code_byte(MINUSOP); yyval.vInt = 1;} break;
+# line 418 "lua.stx"
+{ yyval.vInt = 1; } break;
 case 48:
-# line 344 "lua.stx"
-{
-      code_byte(PUSHBYTE);
-      yyval.pByte = pc; code_byte(0);
-      incr_ntemp();
-      code_byte(CREATEARRAY);
-     } break;
+# line 419 "lua.stx"
+{ code_byte(MINUSOP); yyval.vInt = 1;} break;
 case 49:
-# line 351 "lua.stx"
-{
-      *(yypvt[-2].pByte) = yypvt[-0].vInt; 
-      if (yypvt[-1].vLong < 0)	/* there is no function to be called */
-      {
-       yyval.vInt = 1;
-      }
-      else
-      {
-       lua_pushvar (yypvt[-1].vLong+1);
-       code_byte(PUSHMARK);
-       incr_ntemp();
-       code_byte(PUSHOBJECT);
-       incr_ntemp();
-       code_byte(CALLFUNC); 
-       ntemp -= 4;
-       yyval.vInt = 0;
-       if (lua_debug)
-       {
-        align(Word); code_byte(SETLINE); code_word(lua_linenumber);
-       }
-      }
-     } break;
+# line 420 "lua.stx"
+{ yyval.vInt = yypvt[-0].vInt; } break;
 case 50:
-# line 374 "lua.stx"
+# line 422 "lua.stx"
 { 
       code_byte(CREATEARRAY);
       yyval.vInt = 1;
      } break;
 case 51:
-# line 378 "lua.stx"
+# line 426 "lua.stx"
 { lua_pushvar (yypvt[-0].vLong); yyval.vInt = 1;} break;
 case 52:
-# line 379 "lua.stx"
+# line 427 "lua.stx"
 { code_number(yypvt[-0].vFloat); yyval.vInt = 1; } break;
 case 53:
-# line 381 "lua.stx"
+# line 429 "lua.stx"
 {
-      align(Word);
       code_byte(PUSHSTRING);
       code_word(yypvt[-0].vWord);
       yyval.vInt = 1;
       incr_ntemp();
      } break;
 case 54:
-# line 388 "lua.stx"
+# line 435 "lua.stx"
 {code_byte(PUSHNIL); yyval.vInt = 1; incr_ntemp();} break;
 case 55:
-# line 390 "lua.stx"
+# line 437 "lua.stx"
 {
       yyval.vInt = 0;
       if (lua_debug)
       {
-       align(Word); code_byte(SETLINE); code_word(lua_linenumber);
+       code_byte(SETLINE); code_word(lua_linenumber);
       }
      } break;
 case 56:
-# line 397 "lua.stx"
+# line 444 "lua.stx"
 { code_byte(NOTOP);  yyval.vInt = 1;} break;
 case 57:
-# line 398 "lua.stx"
+# line 445 "lua.stx"
 {code_byte(POP); ntemp--;} break;
 case 58:
-# line 399 "lua.stx"
+# line 446 "lua.stx"
 { 
-      *(yypvt[-2].pByte) = ONFJMP;
-      *((Word *)(yypvt[-2].pByte+1)) = pc - (yypvt[-2].pByte + sizeof(Word)+1);
+      basepc[yypvt[-2].vWord] = ONFJMP;
+      code_word_at(basepc+yypvt[-2].vWord+1, pc - (yypvt[-2].vWord + sizeof(Word)+1));
       yyval.vInt = 1;
      } break;
 case 59:
-# line 404 "lua.stx"
+# line 451 "lua.stx"
 {code_byte(POP); ntemp--;} break;
 case 60:
-# line 405 "lua.stx"
+# line 452 "lua.stx"
 { 
-      *(yypvt[-2].pByte) = ONTJMP;
-      *((Word *)(yypvt[-2].pByte+1)) = pc - (yypvt[-2].pByte + sizeof(Word)+1);
+      basepc[yypvt[-2].vWord] = ONTJMP;
+      code_word_at(basepc+yypvt[-2].vWord+1, pc - (yypvt[-2].vWord + sizeof(Word)+1));
       yyval.vInt = 1;
      } break;
 case 61:
-# line 412 "lua.stx"
-{ code_byte(PUSHNIL); incr_ntemp();} break;
+# line 460 "lua.stx"
+{
+      code_byte(PUSHBYTE);
+      yyval.vWord = pc; code_byte(0);
+      incr_ntemp();
+      code_byte(CREATEARRAY);
+     } break;
+case 62:
+# line 467 "lua.stx"
+{
+      basepc[yypvt[-2].vWord] = yypvt[-0].vInt; 
+      if (yypvt[-1].vLong < 0)	/* there is no function to be called */
+      {
+       yyval.vInt = 1;
+      }
+      else
+      {
+       lua_pushvar (yypvt[-1].vLong+1);
+       code_byte(PUSHMARK);
+       incr_ntemp();
+       code_byte(PUSHOBJECT);
+       incr_ntemp();
+       code_byte(CALLFUNC); 
+       ntemp -= 4;
+       yyval.vInt = 0;
+       if (lua_debug)
+       {
+        code_byte(SETLINE); code_word(lua_linenumber);
+       }
+      }
+     } break;
 case 63:
-# line 416 "lua.stx"
+# line 491 "lua.stx"
+{ code_byte(PUSHNIL); incr_ntemp();} break;
+case 65:
+# line 495 "lua.stx"
 {code_byte(PUSHMARK); yyval.vInt = ntemp; incr_ntemp();} break;
-case 64:
-# line 417 "lua.stx"
+case 66:
+# line 496 "lua.stx"
 { code_byte(CALLFUNC); ntemp = yypvt[-3].vInt-1;} break;
-case 65:
-# line 419 "lua.stx"
+case 67:
+# line 498 "lua.stx"
 {lua_pushvar (yypvt[-0].vLong); } break;
-case 66:
-# line 422 "lua.stx"
+case 68:
+# line 501 "lua.stx"
 { yyval.vInt = 1; } break;
-case 67:
-# line 423 "lua.stx"
+case 69:
+# line 502 "lua.stx"
 { yyval.vInt = yypvt[-0].vInt; } break;
-case 68:
-# line 426 "lua.stx"
+case 70:
+# line 505 "lua.stx"
 { yyval.vInt = yypvt[-0].vInt; } break;
-case 69:
-# line 427 "lua.stx"
+case 71:
+# line 506 "lua.stx"
 {if (!yypvt[-1].vInt){lua_codeadjust (ntemp+1); incr_ntemp();}} break;
-case 70:
-# line 428 "lua.stx"
+case 72:
+# line 507 "lua.stx"
 {yyval.vInt = yypvt[-0].vInt;} break;
-case 73:
-# line 435 "lua.stx"
-{localvar[nlocalvar]=yypvt[-0].vWord; incr_nlocalvar();} break;
-case 74:
-# line 436 "lua.stx"
-{localvar[nlocalvar]=yypvt[-0].vWord; incr_nlocalvar();} break;
 case 75:
-# line 439 "lua.stx"
-{yyval.vLong=-1;} break;
+# line 515 "lua.stx"
+{
+		 localvar[nlocalvar]=lua_findsymbol(yypvt[-0].pChar); 
+		 add_nlocalvar(1);
+		} break;
 case 76:
-# line 440 "lua.stx"
-{yyval.vLong=yypvt[-0].vWord;} break;
+# line 520 "lua.stx"
+{
+		 localvar[nlocalvar]=lua_findsymbol(yypvt[-0].pChar); 
+		 add_nlocalvar(1);
+		} break;
 case 77:
-# line 443 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
+# line 526 "lua.stx"
+{yyval.vLong=-1;} break;
 case 78:
-# line 444 "lua.stx"
-{ yyval.vInt = yypvt[-1].vInt; } break;
+# line 527 "lua.stx"
+{yyval.vLong=lua_findsymbol(yypvt[-0].pChar);} break;
 case 79:
-# line 447 "lua.stx"
-{ yyval.vInt = 0; } break;
+# line 531 "lua.stx"
+{ 
+	       flush_record(yypvt[-1].vInt%FIELDS_PER_FLUSH); 
+	       yyval.vInt = yypvt[-1].vInt;
+	      } break;
 case 80:
-# line 448 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
+# line 536 "lua.stx"
+{ 
+	       flush_list(yypvt[-1].vInt/FIELDS_PER_FLUSH, yypvt[-1].vInt%FIELDS_PER_FLUSH);
+	       yyval.vInt = yypvt[-1].vInt;
+     	      } break;
 case 81:
-# line 451 "lua.stx"
-{yyval.vInt=1;} break;
+# line 542 "lua.stx"
+{ yyval.vInt = 0; } break;
 case 82:
-# line 452 "lua.stx"
-{yyval.vInt=yypvt[-2].vInt+1;} break;
+# line 543 "lua.stx"
+{ yyval.vInt = yypvt[-0].vInt; } break;
 case 83:
-# line 456 "lua.stx"
-{
-            align(Word); 
-            code_byte(PUSHSTRING);
-	    code_word(lua_findconstant (s_name(yypvt[-0].vWord)));
-            incr_ntemp();
-	   } break;
+# line 546 "lua.stx"
+{yyval.vInt=1;} break;
 case 84:
-# line 463 "lua.stx"
+# line 548 "lua.stx"
 {
-	    code_byte(STOREFIELD);
-	    ntemp-=2;
-	   } break;
+		  yyval.vInt=yypvt[-2].vInt+1;
+		  if (yyval.vInt%FIELDS_PER_FLUSH == 0) flush_record(FIELDS_PER_FLUSH);
+		} break;
 case 85:
-# line 469 "lua.stx"
-{ yyval.vInt = 0; } break;
+# line 554 "lua.stx"
+{yyval.vWord = lua_findconstant(yypvt[-0].pChar);} break;
 case 86:
-# line 470 "lua.stx"
-{ yyval.vInt = yypvt[-0].vInt; } break;
+# line 555 "lua.stx"
+{ 
+	       push_field(yypvt[-2].vWord);
+	      } break;
 case 87:
-# line 473 "lua.stx"
-{ code_number(1); } break;
+# line 560 "lua.stx"
+{ yyval.vInt = 0; } break;
 case 88:
-# line 473 "lua.stx"
-{yyval.vInt=1;} break;
+# line 561 "lua.stx"
+{ yyval.vInt = yypvt[-0].vInt; } break;
 case 89:
-# line 474 "lua.stx"
-{ code_number(yypvt[-1].vInt+1); } break;
+# line 564 "lua.stx"
+{yyval.vInt=1;} break;
 case 90:
-# line 475 "lua.stx"
-{yyval.vInt=yypvt[-3].vInt+1;} break;
-case 91:
-# line 479 "lua.stx"
+# line 566 "lua.stx"
 {
-	    code_byte(STOREFIELD);
-	    ntemp-=2;
-	   } break;
-case 92:
-# line 486 "lua.stx"
+		  yyval.vInt=yypvt[-2].vInt+1;
+		  if (yyval.vInt%FIELDS_PER_FLUSH == 0) 
+		    flush_list(yyval.vInt/FIELDS_PER_FLUSH - 1, FIELDS_PER_FLUSH);
+		} break;
+case 91:
+# line 574 "lua.stx"
 {
 	   nvarbuffer = 0; 
            varbuffer[nvarbuffer] = yypvt[-0].vLong; incr_nvarbuffer();
 	   yyval.vInt = (yypvt[-0].vLong == 0) ? 1 : 0;
 	  } break;
-case 93:
-# line 492 "lua.stx"
+case 92:
+# line 580 "lua.stx"
 { 
            varbuffer[nvarbuffer] = yypvt[-0].vLong; incr_nvarbuffer();
 	   yyval.vInt = (yypvt[-0].vLong == 0) ? yypvt[-2].vInt + 1 : yypvt[-2].vInt;
 	  } break;
-case 94:
-# line 499 "lua.stx"
-{ 
-	   int local = lua_localname (yypvt[-0].vWord);
+case 93:
+# line 587 "lua.stx"
+{
+	   Word s = lua_findsymbol(yypvt[-0].pChar);
+	   int local = lua_localname (s);
 	   if (local == -1)	/* global var */
-	    yyval.vLong = yypvt[-0].vWord + 1;		/* return positive value */
+	    yyval.vLong = s + 1;		/* return positive value */
            else
 	    yyval.vLong = -(local+1);		/* return negative value */
 	  } break;
-case 95:
-# line 507 "lua.stx"
+case 94:
+# line 596 "lua.stx"
 {lua_pushvar (yypvt[-0].vLong);} break;
-case 96:
-# line 508 "lua.stx"
+case 95:
+# line 597 "lua.stx"
 {
 	   yyval.vLong = 0;		/* indexed variable */
 	  } break;
-case 97:
-# line 511 "lua.stx"
+case 96:
+# line 600 "lua.stx"
 {lua_pushvar (yypvt[-0].vLong);} break;
-case 98:
-# line 512 "lua.stx"
+case 97:
+# line 601 "lua.stx"
 {
-	   align(Word);
 	   code_byte(PUSHSTRING);
-	   code_word(lua_findconstant (s_name(yypvt[-0].vWord))); incr_ntemp();
+	   code_word(lua_findconstant(yypvt[-0].pChar)); incr_ntemp();
 	   yyval.vLong = 0;		/* indexed variable */
 	  } break;
+case 98:
+# line 608 "lua.stx"
+{localvar[nlocalvar]=lua_findsymbol(yypvt[-0].pChar); yyval.vInt = 1;} break;
 case 99:
-# line 520 "lua.stx"
-{localvar[nlocalvar]=yypvt[-1].vWord; incr_nlocalvar();} break;
-case 100:
-# line 521 "lua.stx"
-{localvar[nlocalvar]=yypvt[-1].vWord; incr_nlocalvar();} break;
-case 101:
-# line 524 "lua.stx"
-{ code_byte(PUSHNIL); } break;
+# line 610 "lua.stx"
+{
+	     localvar[nlocalvar+yypvt[-2].vInt]=lua_findsymbol(yypvt[-0].pChar); 
+	     yyval.vInt = yypvt[-2].vInt+1;
+	    } break;
 case 102:
-# line 525 "lua.stx"
-{ntemp = 0;} break;
-case 104:
-# line 528 "lua.stx"
+# line 620 "lua.stx"
 {lua_debug = yypvt[-0].vInt;} break;
 	}
 	goto yystack;		/* reset registers in driver code */
diff --git a/src/y.tab.h b/src/y.tab.h
new file mode 100644
index 00000000..5bee29f9
--- /dev/null
+++ b/src/y.tab.h
@@ -0,0 +1,37 @@
+
+typedef union  
+{
+ int   vInt;
+ long  vLong;
+ float vFloat;
+ char *pChar;
+ Word  vWord;
+ Byte *pByte;
+} YYSTYPE;
+extern YYSTYPE yylval;
+# define WRONGTOKEN 257
+# define NIL 258
+# define IF 259
+# define THEN 260
+# define ELSE 261
+# define ELSEIF 262
+# define WHILE 263
+# define DO 264
+# define REPEAT 265
+# define UNTIL 266
+# define END 267
+# define RETURN 268
+# define LOCAL 269
+# define NUMBER 270
+# define FUNCTION 271
+# define STRING 272
+# define NAME 273
+# define DEBUG 274
+# define AND 275
+# define OR 276
+# define NE 277
+# define LE 278
+# define GE 279
+# define CONC 280
+# define UNARY 281
+# define NOT 282
diff --git a/src/yacc/Makefile b/src/yacc/Makefile
new file mode 100644
index 00000000..1d887e10
--- /dev/null
+++ b/src/yacc/Makefile
@@ -0,0 +1,27 @@
+# makefile for lua
+
+LIB= $(LUA)/lib
+INC= $(LUA)/inc
+
+CC= gcc
+CFLAGS= -g -Wall -O2 -I$(INC) $(DEFS)
+DEFS= -DMAXCODE=64000 -DMAXCONSTANT=1024 -DMAXSYMBOL=1024 -DMAXARRAY=1024
+
+OBJS= hash.o inout.o lex.o opcode.o table.o y.tab.o
+SLIB= $(LIB)/lua.a
+DLIB= $(LIB)/liblua.so.1.1
+
+libs: $(SLIB) $(DLIB)
+
+$(SLIB): y.tab.c $(OBJS)
+	ar ruvl $@ $(OBJS)
+	ranlib $(SLIB)
+
+$(DLIB): $(OBJS)
+	ld -o $@ $(OBJS)
+
+y.tab.c: lua.stx exscript
+	yacc -d lua.stx ; ex y.tab.c <exscript
+
+clean:
+	rm -f $(OBJS) $(SLIB) $(DLIB)
diff --git a/src/yacc/exscript b/src/yacc/exscript
new file mode 100644
index 00000000..0a0f2a9f
--- /dev/null
+++ b/src/yacc/exscript
@@ -0,0 +1,3 @@
+1d
+x
+
diff --git a/src/yacc/lua.lex b/src/yacc/lua.lex
new file mode 100644
index 00000000..cbb0232a
--- /dev/null
+++ b/src/yacc/lua.lex
@@ -0,0 +1,85 @@
+%{
+
+char *rcs_lualex = "$Id: lua.lex,v 1.1 1993/12/17 18:53:41 celes Exp $";
+
+#include <stdlib.h>
+#include <string.h>
+
+#include "opcode.h"
+#include "hash.h"
+#include "inout.h"
+#include "table.h"
+#include "y.tab.h"
+
+#undef input
+#undef unput
+
+static Input input;
+static Unput unput;
+
+void lua_setinput (Input fn)
+{
+ input = fn;
+}
+
+void lua_setunput (Unput fn)
+{
+ unput = fn;
+}
+
+char *lua_lasttext (void)
+{
+ return yytext;
+}
+
+%}
+
+
+%%
+[ \t]*					;
+^"$debug"				{yylval.vInt = 1; return DEBUG;}
+^"$nodebug"				{yylval.vInt = 0; return DEBUG;}
+\n					lua_linenumber++;
+"--".*					;
+"local"					return LOCAL;
+"if"					return IF;
+"then"					return THEN;
+"else"					return ELSE;
+"elseif"				return ELSEIF;
+"while"					return WHILE;
+"do"					return DO;
+"repeat"				return REPEAT;
+"until"					return UNTIL;
+"function"				{
+                                         yylval.vWord = lua_nfile-1;
+                                         return FUNCTION;
+					}
+"end"					return END;
+"return" 				return RETURN;
+"local" 				return LOCAL;
+"nil"					return NIL;
+"and"					return AND;
+"or"					return OR;
+"not"					return NOT;
+"~="					return NE;
+"<="					return LE;
+">="					return GE;
+".."					return CONC;
+\"[^\"]*\" 			| 
+\'[^\']*\'			      {
+				       yylval.vWord = lua_findenclosedconstant (yytext);
+				       return STRING;
+				      }
+[0-9]+("."[0-9]*)?	|
+([0-9]+)?"."[0-9]+	|
+[0-9]+("."[0-9]*)?[dDeEgG][+-]?[0-9]+ |
+([0-9]+)?"."[0-9]+[dDeEgG][+-]?[0-9]+ {
+				        yylval.vFloat = atof(yytext);
+				        return NUMBER;
+				       }
+[a-zA-Z_][a-zA-Z0-9_]*  	       {
+					yylval.vWord = lua_findsymbol (yytext);
+					return NAME;
+				       }
+.					return  *yytext;
+
diff --git a/src/yacc/lua.stx b/src/yacc/lua.stx
new file mode 100644
index 00000000..118a240c
--- /dev/null
+++ b/src/yacc/lua.stx
@@ -0,0 +1,953 @@
+%{
+
+char *rcs_luastx = "$Id: lua.stx,v 2.4 1994/04/20 16:22:21 celes Exp $";
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "mm.h"
+
+#include "opcode.h"
+#include "hash.h"
+#include "inout.h"
+#include "table.h"
+#include "lua.h"
+
+#define LISTING 0
+
+#ifndef GAPCODE
+#define GAPCODE 50
+#endif
+static Word   maxcode;
+static Word   maxmain;
+static Word   maxcurr ;
+static Byte  *code = NULL;
+static Byte  *initcode;
+static Byte  *basepc;
+static Word   maincode;
+static Word   pc;
+
+#define MAXVAR 32
+static long    varbuffer[MAXVAR];    /* variables in an assignment list;
+				it's long to store negative Word values */
+static int     nvarbuffer=0;	     /* number of variables at a list */
+
+static Word    localvar[STACKGAP];   /* store local variable names */
+static int     nlocalvar=0;	     /* number of local variables */
+
+#define MAXFIELDS FIELDS_PER_FLUSH*2
+static Word    fields[MAXFIELDS];     /* fieldnames to be flushed */
+static int     nfields=0;
+static int     ntemp;		     /* number of temporary var into stack */
+static int     err;		     /* flag to indicate error */
+
+/* Internal functions */
+
+static void code_byte (Byte c)
+{
+ if (pc>maxcurr-2)  /* 1 byte free to code HALT of main code */
+ {
+  maxcurr += GAPCODE;
+  basepc = (Byte *)realloc(basepc, maxcurr*sizeof(Byte));
+  if (basepc == NULL)
+  {
+   lua_error ("not enough memory");
+   err = 1;
+  }
+ }
+ basepc[pc++] = c;
+}
+
+static void code_word (Word n)
+{
+ CodeWord code;
+ code.w = n;
+ code_byte(code.m.c1);
+ code_byte(code.m.c2);
+}
+
+static void code_float (float n)
+{
+ CodeFloat code;
+ code.f = n;
+ code_byte(code.m.c1);
+ code_byte(code.m.c2);
+ code_byte(code.m.c3);
+ code_byte(code.m.c4);
+}
+
+static void code_word_at (Byte *p, Word n)
+{
+ CodeWord code;
+ code.w = n;
+ *p++ = code.m.c1;
+ *p++ = code.m.c2;
+}
+
+static void push_field (Word name)
+{
+  if (nfields < STACKGAP-1)
+    fields[nfields++] = name;
+  else
+  {
+   lua_error ("too many fields in a constructor");
+   err = 1;
+  }
+}
+
+static void flush_record (int n)
+{
+  int i;
+  if (n == 0) return;
+  code_byte(STORERECORD);
+  code_byte(n);
+  for (i=0; i<n; i++)
+    code_word(fields[--nfields]);
+  ntemp -= n;
+}
+
+static void flush_list (int m, int n)
+{
+  if (n == 0) return;
+  if (m == 0)
+    code_byte(STORELIST0); 
+  else
+  {
+    code_byte(STORELIST);
+    code_byte(m);
+  }
+  code_byte(n);
+  ntemp-=n;
+}
+
+static void incr_ntemp (void)
+{
+ if (ntemp+nlocalvar+MAXVAR+1 < STACKGAP)
+  ntemp++;
+ else
+ {
+  lua_error ("stack overflow");
+  err = 1;
+ }
+}
+
+static void add_nlocalvar (int n)
+{
+ if (ntemp+nlocalvar+MAXVAR+n < STACKGAP)
+  nlocalvar += n;
+ else
+ {
+  lua_error ("too many local variables or expression too complicate");
+  err = 1;
+ }
+}
+
+static void incr_nvarbuffer (void)
+{
+ if (nvarbuffer < MAXVAR-1)
+  nvarbuffer++;
+ else
+ {
+  lua_error ("variable buffer overflow");
+  err = 1;
+ }
+}
+
+static void code_number (float f)
+{ Word i = (Word)f;
+  if (f == (float)i)  /* f has an (short) integer value */
+  {
+   if (i <= 2) code_byte(PUSH0 + i);
+   else if (i <= 255)
+   {
+    code_byte(PUSHBYTE);
+    code_byte(i);
+   }
+   else
+   {
+    code_byte(PUSHWORD);
+    code_word(i);
+   }
+  }
+  else
+  {
+   code_byte(PUSHFLOAT);
+   code_float(f);
+  }
+  incr_ntemp();
+}
+
+%}
+
+
+%union 
+{
+ int   vInt;
+ long  vLong;
+ float vFloat;
+ char *pChar;
+ Word  vWord;
+ Byte *pByte;
+}
+
+%start functionlist
+
+%token WRONGTOKEN
+%token NIL
+%token IF THEN ELSE ELSEIF WHILE DO REPEAT UNTIL END
+%token RETURN
+%token LOCAL
+%token <vFloat> NUMBER
+%token <vWord>  FUNCTION STRING
+%token <pChar>   NAME 
+%token <vInt>   DEBUG
+
+%type <vWord> PrepJump
+%type <vInt>  expr, exprlist, exprlist1, varlist1, typeconstructor
+%type <vInt>  fieldlist, localdeclist
+%type <vInt>  ffieldlist, ffieldlist1
+%type <vInt>  lfieldlist, lfieldlist1
+%type <vLong> var, objectname
+
+
+%left AND OR
+%left '=' NE '>' '<' LE GE
+%left CONC
+%left '+' '-'
+%left '*' '/'
+%left UNARY NOT
+
+
+%% /* beginning of rules section */
+
+
+functionlist : /* empty */
+	     | functionlist 
+	        {
+	  	  pc=maincode; basepc=initcode; maxcurr=maxmain;
+		  nlocalvar=0;
+	        }
+	       stat sc 
+		{
+		  maincode=pc; initcode=basepc; maxmain=maxcurr;
+		}
+	     | functionlist function
+	     | functionlist setdebug
+	     ;
+	     
+function     : FUNCTION NAME 
+	       {
+		if (code == NULL)	/* first function */
+		{
+		 code = (Byte *) calloc(GAPCODE, sizeof(Byte));
+		 if (code == NULL)
+		 {
+		  lua_error("not enough memory");
+		  err = 1;
+		 }
+		 maxcode = GAPCODE;
+		}
+		pc=0; basepc=code; maxcurr=maxcode; 
+		nlocalvar=0;
+		$<vWord>$ = lua_findsymbol($2); 
+	       }
+	       '(' parlist ')' 
+	       {
+	        if (lua_debug)
+		{
+	         code_byte(SETFUNCTION); 
+                 code_word(lua_nfile-1);
+		 code_word($<vWord>3);
+		}
+	        lua_codeadjust (0);
+	       }
+               block
+               END 	 
+	       { 
+                if (lua_debug) code_byte(RESET); 
+	        code_byte(RETCODE); code_byte(nlocalvar);
+	        s_tag($<vWord>3) = T_FUNCTION;
+	        s_bvalue($<vWord>3) = calloc (pc, sizeof(Byte));
+		if (s_bvalue($<vWord>3) == NULL)
+		{
+		 lua_error("not enough memory");
+		 err = 1;
+		}
+	        memcpy (s_bvalue($<vWord>3), basepc, pc*sizeof(Byte));
+		code = basepc; maxcode=maxcurr;
+#if LISTING
+PrintCode(code,code+pc);
+#endif
+	       }
+	       ;
+
+statlist : /* empty */
+	 | statlist stat sc
+	 ;
+
+stat	 : {
+            ntemp = 0; 
+            if (lua_debug)
+            {
+             code_byte(SETLINE); code_word(lua_linenumber);
+            }
+	   }
+	   stat1
+		
+sc	 : /* empty */ | ';' ;
+
+
+stat1  : IF expr1 THEN PrepJump block PrepJump elsepart END
+       {
+        {
+	 Word elseinit = $6+sizeof(Word)+1;
+	 if (pc - elseinit == 0)		/* no else */
+	 {
+	  pc -= sizeof(Word)+1;
+	  elseinit = pc;
+	 }
+	 else
+	 {
+	  basepc[$6] = JMP;
+	  code_word_at(basepc+$6+1, pc - elseinit);
+	 }
+	 basepc[$4] = IFFJMP;
+	 code_word_at(basepc+$4+1,elseinit-($4+sizeof(Word)+1));
+	}
+       }
+     
+       | WHILE {$<vWord>$=pc;} expr1 DO PrepJump block PrepJump END
+     	
+       {
+        basepc[$5] = IFFJMP;
+	code_word_at(basepc+$5+1, pc - ($5 + sizeof(Word)+1));
+        
+        basepc[$7] = UPJMP;
+	code_word_at(basepc+$7+1, pc - ($<vWord>2));
+       }
+     
+       | REPEAT {$<vWord>$=pc;} block UNTIL expr1 PrepJump
+     	
+       {
+        basepc[$6] = IFFUPJMP;
+	code_word_at(basepc+$6+1, pc - ($<vWord>2));
+       }
+
+
+       | varlist1 '=' exprlist1
+       {
+        {
+         int i;
+         if ($3 == 0 || nvarbuffer != ntemp - $1 * 2)
+	  lua_codeadjust ($1 * 2 + nvarbuffer);
+	 for (i=nvarbuffer-1; i>=0; i--)
+	  lua_codestore (i);
+	 if ($1 > 1 || ($1 == 1 && varbuffer[0] != 0))
+	  lua_codeadjust (0);
+	}
+       } 
+       | functioncall			{ lua_codeadjust (0); }
+       | typeconstructor                { lua_codeadjust (0); }
+       | LOCAL localdeclist decinit   { add_nlocalvar($2); lua_codeadjust (0); }
+       ;
+
+elsepart : /* empty */
+	 | ELSE block
+         | ELSEIF expr1 THEN PrepJump block PrepJump elsepart
+         {
+          {
+  	   Word elseinit = $6+sizeof(Word)+1;
+  	   if (pc - elseinit == 0)		/* no else */
+  	   {
+  	    pc -= sizeof(Word)+1;
+	    elseinit = pc;
+	   }
+	   else
+	   {
+	    basepc[$6] = JMP;
+	    code_word_at(basepc+$6+1, pc - elseinit);
+	   }
+	   basepc[$4] = IFFJMP;
+	   code_word_at(basepc+$4+1, elseinit - ($4 + sizeof(Word)+1));
+	  }  
+         }   
+         ;
+     
+block    : {$<vInt>$ = nlocalvar;} statlist {ntemp = 0;} ret 
+         {
+	  if (nlocalvar != $<vInt>1)
+	  {
+           nlocalvar = $<vInt>1;
+	   lua_codeadjust (0);
+	  }
+         }
+         ;
+
+ret	: /* empty */
+        | { if (lua_debug){code_byte(SETLINE);code_word(lua_linenumber);}}
+          RETURN  exprlist sc 	
+          { 
+           if (lua_debug) code_byte(RESET); 
+           code_byte(RETCODE); code_byte(nlocalvar);
+          }
+	;
+
+PrepJump : /* empty */
+	 { 
+	  $$ = pc;
+	  code_byte(0);		/* open space */
+	  code_word (0);
+         }
+	   
+expr1	 : expr { if ($1 == 0) {lua_codeadjust (ntemp+1); incr_ntemp();}}
+	 ;
+				
+expr :	'(' expr ')'    { $$ = $2; }
+     |	expr1 '=' expr1	{ code_byte(EQOP);   $$ = 1; ntemp--;}
+     |	expr1 '<' expr1	{ code_byte(LTOP);   $$ = 1; ntemp--;}
+     |	expr1 '>' expr1	{ code_byte(LEOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 NE  expr1	{ code_byte(EQOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 LE  expr1	{ code_byte(LEOP);   $$ = 1; ntemp--;}
+     |	expr1 GE  expr1	{ code_byte(LTOP); code_byte(NOTOP); $$ = 1; ntemp--;}
+     |	expr1 '+' expr1 { code_byte(ADDOP);  $$ = 1; ntemp--;}
+     |	expr1 '-' expr1 { code_byte(SUBOP);  $$ = 1; ntemp--;}
+     |	expr1 '*' expr1 { code_byte(MULTOP); $$ = 1; ntemp--;}
+     |	expr1 '/' expr1 { code_byte(DIVOP);  $$ = 1; ntemp--;}
+     |	expr1 CONC expr1 { code_byte(CONCOP);  $$ = 1; ntemp--;}
+     |	'+' expr1 %prec UNARY	{ $$ = 1; }
+     |	'-' expr1 %prec UNARY	{ code_byte(MINUSOP); $$ = 1;}
+     | typeconstructor { $$ = $1; }
+     |  '@' '(' dimension ')'
+     { 
+      code_byte(CREATEARRAY);
+      $$ = 1;
+     }
+     |	var             { lua_pushvar ($1); $$ = 1;}
+     |	NUMBER          { code_number($1); $$ = 1; }
+     |	STRING
+     {
+      code_byte(PUSHSTRING);
+      code_word($1);
+      $$ = 1;
+      incr_ntemp();
+     }
+     |	NIL		{code_byte(PUSHNIL); $$ = 1; incr_ntemp();}
+     |	functioncall
+     {
+      $$ = 0;
+      if (lua_debug)
+      {
+       code_byte(SETLINE); code_word(lua_linenumber);
+      }
+     }
+     |	NOT expr1	{ code_byte(NOTOP);  $$ = 1;}
+     |	expr1 AND PrepJump {code_byte(POP); ntemp--;} expr1
+     { 
+      basepc[$3] = ONFJMP;
+      code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1));
+      $$ = 1;
+     }
+     |	expr1 OR PrepJump {code_byte(POP); ntemp--;} expr1	
+     { 
+      basepc[$3] = ONTJMP;
+      code_word_at(basepc+$3+1, pc - ($3 + sizeof(Word)+1));
+      $$ = 1;
+     }
+     ;
+
+typeconstructor: '@'  
+     {
+      code_byte(PUSHBYTE);
+      $<vWord>$ = pc; code_byte(0);
+      incr_ntemp();
+      code_byte(CREATEARRAY);
+     }
+      objectname fieldlist 
+     {
+      basepc[$<vWord>2] = $4; 
+      if ($3 < 0)	/* there is no function to be called */
+      {
+       $$ = 1;
+      }
+      else
+      {
+       lua_pushvar ($3+1);
+       code_byte(PUSHMARK);
+       incr_ntemp();
+       code_byte(PUSHOBJECT);
+       incr_ntemp();
+       code_byte(CALLFUNC); 
+       ntemp -= 4;
+       $$ = 0;
+       if (lua_debug)
+       {
+        code_byte(SETLINE); code_word(lua_linenumber);
+       }
+      }
+     }
+         ;
+
+dimension    : /* empty */	{ code_byte(PUSHNIL); incr_ntemp();}
+	     | expr1
+	     ;
+	     
+functioncall : functionvalue  {code_byte(PUSHMARK); $<vInt>$ = ntemp; incr_ntemp();}
+                '(' exprlist ')' { code_byte(CALLFUNC); ntemp = $<vInt>2-1;}
+
+functionvalue : var {lua_pushvar ($1); } 
+	      ;
+		
+exprlist  :	/* empty */		{ $$ = 1; }
+	  |	exprlist1		{ $$ = $1; }
+	  ;
+		
+exprlist1 :	expr			{ $$ = $1; }
+	  |	exprlist1 ',' {if (!$1){lua_codeadjust (ntemp+1); incr_ntemp();}} 
+                 expr {$$ = $4;}
+	  ;
+
+parlist  :	/* empty */
+	  |	parlist1
+	  ;
+		
+parlist1 :	NAME		  
+		{
+		 localvar[nlocalvar]=lua_findsymbol($1); 
+		 add_nlocalvar(1);
+		}
+	  |	parlist1 ',' NAME 
+		{
+		 localvar[nlocalvar]=lua_findsymbol($3); 
+		 add_nlocalvar(1);
+		}
+	  ;
+		
+objectname :	/* empty */ 	{$$=-1;}
+	   |	NAME		{$$=lua_findsymbol($1);}
+	   ;
+	   
+fieldlist  : '{' ffieldlist '}'  
+	      { 
+	       flush_record($2%FIELDS_PER_FLUSH); 
+	       $$ = $2;
+	      }
+           | '[' lfieldlist ']'  
+	      { 
+	       flush_list($2/FIELDS_PER_FLUSH, $2%FIELDS_PER_FLUSH);
+	       $$ = $2;
+     	      }
+	   ;
+
+ffieldlist : /* empty */   { $$ = 0; }
+           | ffieldlist1   { $$ = $1; }
+           ;
+
+ffieldlist1 : ffield			{$$=1;}
+	   | ffieldlist1 ',' ffield	
+		{
+		  $$=$1+1;
+		  if ($$%FIELDS_PER_FLUSH == 0) flush_record(FIELDS_PER_FLUSH);
+		}
+	   ; 
+
+ffield      : NAME {$<vWord>$ = lua_findconstant($1);} '=' expr1 
+	      { 
+	       push_field($<vWord>2);
+	      }
+           ;
+
+lfieldlist : /* empty */   { $$ = 0; }
+           | lfieldlist1   { $$ = $1; }
+           ;
+
+lfieldlist1 : expr1  {$$=1;}
+	    | lfieldlist1 ',' expr1
+		{
+		  $$=$1+1;
+		  if ($$%FIELDS_PER_FLUSH == 0) 
+		    flush_list($$/FIELDS_PER_FLUSH - 1, FIELDS_PER_FLUSH);
+		}
+            ;
+
+varlist1  :	var			
+	  {
+	   nvarbuffer = 0; 
+           varbuffer[nvarbuffer] = $1; incr_nvarbuffer();
+	   $$ = ($1 == 0) ? 1 : 0;
+	  }
+	  |	varlist1 ',' var	
+	  { 
+           varbuffer[nvarbuffer] = $3; incr_nvarbuffer();
+	   $$ = ($3 == 0) ? $1 + 1 : $1;
+	  }
+	  ;
+		
+var	  :	NAME
+	  {
+	   Word s = lua_findsymbol($1);
+	   int local = lua_localname (s);
+	   if (local == -1)	/* global var */
+	    $$ = s + 1;		/* return positive value */
+           else
+	    $$ = -(local+1);		/* return negative value */
+	  }
+	  
+	  |	var {lua_pushvar ($1);} '[' expr1 ']' 
+	  {
+	   $$ = 0;		/* indexed variable */
+	  }
+	  |	var {lua_pushvar ($1);} '.' NAME
+	  {
+	   code_byte(PUSHSTRING);
+	   code_word(lua_findconstant($4)); incr_ntemp();
+	   $$ = 0;		/* indexed variable */
+	  }
+	  ;
+		
+localdeclist  : NAME {localvar[nlocalvar]=lua_findsymbol($1); $$ = 1;}
+     	  | localdeclist ',' NAME 
+	    {
+	     localvar[nlocalvar+$1]=lua_findsymbol($3); 
+	     $$ = $1+1;
+	    }
+	  ;
+		
+decinit	  : /* empty */
+	  | '=' exprlist1
+	  ;
+	  
+setdebug  : DEBUG {lua_debug = $1;}
+
+%%
+
+/*
+** Search a local name and if find return its index. If do not find return -1
+*/
+static int lua_localname (Word n)
+{
+ int i;
+ for (i=nlocalvar-1; i >= 0; i--)
+  if (n == localvar[i]) return i;	/* local var */
+ return -1;		        /* global var */
+}
+
+/*
+** Push a variable given a number. If number is positive, push global variable
+** indexed by (number -1). If negative, push local indexed by ABS(number)-1.
+** Otherwise, if zero, push indexed variable (record).
+*/
+static void lua_pushvar (long number)
+{ 
+ if (number > 0)	/* global var */
+ {
+  code_byte(PUSHGLOBAL);
+  code_word(number-1);
+  incr_ntemp();
+ }
+ else if (number < 0)	/* local var */
+ {
+  number = (-number) - 1;
+  if (number < 10) code_byte(PUSHLOCAL0 + number);
+  else
+  {
+   code_byte(PUSHLOCAL);
+   code_byte(number);
+  }
+  incr_ntemp();
+ }
+ else
+ {
+  code_byte(PUSHINDEXED);
+  ntemp--;
+ }
+}
+
+static void lua_codeadjust (int n)
+{
+ code_byte(ADJUST);
+ code_byte(n + nlocalvar);
+}
+
+static void lua_codestore (int i)
+{
+ if (varbuffer[i] > 0)		/* global var */
+ {
+  code_byte(STOREGLOBAL);
+  code_word(varbuffer[i]-1);
+ }
+ else if (varbuffer[i] < 0)      /* local var */
+ {
+  int number = (-varbuffer[i]) - 1;
+  if (number < 10) code_byte(STORELOCAL0 + number);
+  else
+  {
+   code_byte(STORELOCAL);
+   code_byte(number);
+  }
+ }
+ else				  /* indexed var */
+ {
+  int j;
+  int upper=0;     	/* number of indexed variables upper */
+  int param;		/* number of itens until indexed expression */
+  for (j=i+1; j <nvarbuffer; j++)
+   if (varbuffer[j] == 0) upper++;
+  param = upper*2 + i;
+  if (param == 0)
+   code_byte(STOREINDEXED0);
+  else
+  {
+   code_byte(STOREINDEXED);
+   code_byte(param);
+  }
+ }
+}
+
+void yyerror (char *s)
+{
+ static char msg[256];
+ sprintf (msg,"%s near \"%s\" at line %d in file \"%s\"",
+          s, lua_lasttext (), lua_linenumber, lua_filename());
+ lua_error (msg);
+ err = 1;
+}
+
+int yywrap (void)
+{
+ return 1;
+}
+
+
+/*
+** Parse LUA code and execute global statement.
+** Return 0 on success or 1 on error.
+*/
+int lua_parse (void)
+{
+ Byte *init = initcode = (Byte *) calloc(GAPCODE, sizeof(Byte));
+ maincode = 0; 
+ maxmain = GAPCODE;
+ if (init == NULL)
+ {
+  lua_error("not enough memory");
+  return 1;
+ }
+ err = 0;
+ if (yyparse () || (err==1)) return 1;
+ initcode[maincode++] = HALT;
+ init = initcode;
+#if LISTING
+ PrintCode(init,init+maincode);
+#endif
+ if (lua_execute (init)) return 1;
+ free(init);
+ return 0;
+}
+
+
+#if LISTING
+
+static void PrintCode (Byte *code, Byte *end)
+{
+ Byte *p = code;
+ printf ("\n\nCODE\n");
+ while (p != end)
+ {
+  switch ((OpCode)*p)
+  {
+   case PUSHNIL:	printf ("%d    PUSHNIL\n", (p++)-code); break;
+   case PUSH0: case PUSH1: case PUSH2:
+    			printf ("%d    PUSH%c\n", p-code, *p-PUSH0+'0');
+    			p++;
+   			break;
+   case PUSHBYTE:
+    			printf ("%d    PUSHBYTE   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case PUSHWORD:
+                        {
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHWORD   %d\n", n, c.w);
+			}
+   			break;
+   case PUSHFLOAT:
+			{
+			 CodeFloat c;
+			 int n = p-code;
+			 p++;
+			 get_float(c,p);
+    			 printf ("%d    PUSHFLOAT  %f\n", n, c.f);
+			}
+   			break;
+   case PUSHSTRING:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHSTRING   %d\n", n, c.w);
+			}
+   			break;
+   case PUSHLOCAL0: case PUSHLOCAL1: case PUSHLOCAL2: case PUSHLOCAL3:
+   case PUSHLOCAL4: case PUSHLOCAL5: case PUSHLOCAL6: case PUSHLOCAL7:
+   case PUSHLOCAL8: case PUSHLOCAL9:
+    			printf ("%d    PUSHLOCAL%c\n", p-code, *p-PUSHLOCAL0+'0');
+    			p++;
+   			break;
+   case PUSHLOCAL:	printf ("%d    PUSHLOCAL   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case PUSHGLOBAL:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    PUSHGLOBAL   %d\n", n, c.w);
+			}
+   			break;
+   case PUSHINDEXED:    printf ("%d    PUSHINDEXED\n", (p++)-code); break;
+   case PUSHMARK:       printf ("%d    PUSHMARK\n", (p++)-code); break;
+   case PUSHOBJECT:     printf ("%d    PUSHOBJECT\n", (p++)-code); break;
+   case STORELOCAL0: case STORELOCAL1: case STORELOCAL2: case STORELOCAL3:
+   case STORELOCAL4: case STORELOCAL5: case STORELOCAL6: case STORELOCAL7:
+   case STORELOCAL8: case STORELOCAL9:
+    			printf ("%d    STORELOCAL%c\n", p-code, *p-STORELOCAL0+'0');
+    			p++;
+   			break;
+   case STORELOCAL:
+    			printf ("%d    STORELOCAL   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case STOREGLOBAL:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    STOREGLOBAL   %d\n", n, c.w);
+			}
+   			break;
+   case STOREINDEXED0:  printf ("%d    STOREINDEXED0\n", (p++)-code); break;
+   case STOREINDEXED:   printf ("%d    STOREINDEXED   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case STORELIST0:
+	printf("%d      STORELIST0  %d\n", p-code, *(++p));
+        p++;
+        break;
+   case STORELIST:
+	printf("%d      STORELIST  %d %d\n", p-code, *(p+1), *(p+2));
+        p+=3;
+        break;
+   case STORERECORD:
+       printf("%d      STORERECORD  %d\n", p-code, *(++p));
+       p += *p*sizeof(Word) + 1;
+       break;
+   case ADJUST:
+    			printf ("%d    ADJUST   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case CREATEARRAY:	printf ("%d    CREATEARRAY\n", (p++)-code); break;
+   case EQOP:       	printf ("%d    EQOP\n", (p++)-code); break;
+   case LTOP:       	printf ("%d    LTOP\n", (p++)-code); break;
+   case LEOP:       	printf ("%d    LEOP\n", (p++)-code); break;
+   case ADDOP:       	printf ("%d    ADDOP\n", (p++)-code); break;
+   case SUBOP:       	printf ("%d    SUBOP\n", (p++)-code); break;
+   case MULTOP:      	printf ("%d    MULTOP\n", (p++)-code); break;
+   case DIVOP:       	printf ("%d    DIVOP\n", (p++)-code); break;
+   case CONCOP:       	printf ("%d    CONCOP\n", (p++)-code); break;
+   case MINUSOP:       	printf ("%d    MINUSOP\n", (p++)-code); break;
+   case NOTOP:       	printf ("%d    NOTOP\n", (p++)-code); break;
+   case ONTJMP:	   
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    ONTJMP  %d\n", n, c.w);
+			}
+   			break;
+   case ONFJMP:	   
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    ONFJMP  %d\n", n, c.w);
+			}
+   			break;
+   case JMP:	   
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    JMP  %d\n", n, c.w);
+			}
+   			break;
+   case UPJMP:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    UPJMP  %d\n", n, c.w);
+			}
+   			break;
+   case IFFJMP:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    IFFJMP  %d\n", n, c.w);
+			}
+   			break;
+   case IFFUPJMP:
+    			{
+			 CodeWord c;
+			 int n = p-code;
+			 p++;
+			 get_word(c,p);
+    			 printf ("%d    IFFUPJMP  %d\n", n, c.w);
+			}
+   			break;
+   case POP:       	printf ("%d    POP\n", (p++)-code); break;
+   case CALLFUNC:	printf ("%d    CALLFUNC\n", (p++)-code); break;
+   case RETCODE:
+    			printf ("%d    RETCODE   %d\n", p-code, *(++p));
+    			p++;
+   			break;
+   case HALT:		printf ("%d    HALT\n", (p++)-code); break;
+   case SETFUNCTION:
+                        {
+                         CodeWord c1, c2;
+                         int n = p-code;
+                         p++;
+                         get_word(c1,p);
+                         get_word(c2,p);
+                         printf ("%d    SETFUNCTION  %d  %d\n", n, c1.w, c2.w);
+                        }
+                        break;
+   case SETLINE:
+                        {
+                         CodeWord c;
+                         int n = p-code;
+                         p++;
+                         get_word(c,p);
+                         printf ("%d    SETLINE  %d\n", n, c.w);
+                        }
+                        break;
+
+   case RESET:		printf ("%d    RESET\n", (p++)-code); break;
+   default:		printf ("%d    Cannot happen: code %d\n", (p++)-code, *(p-1)); break;
+  }
+ }
+}
+#endif
+
diff --git a/table.h b/table.h
deleted file mode 100644
index 8406ee22..00000000
--- a/table.h
+++ /dev/null
@@ -1,39 +0,0 @@
-/*
-** table.c
-** Module to control static tables
-** TeCGraf - PUC-Rio
-** 11 May 93
-*/
-
-#ifndef table_h
-#define table_h
-
-extern Symbol *lua_table;
-extern Word    lua_ntable;
-
-extern char  **lua_constant;
-extern Word    lua_nconstant;
-
-extern char  **lua_string;
-extern Word    lua_nstring;
-
-extern Hash  **lua_array;
-extern Word    lua_narray;
-
-extern char   *lua_file[];
-extern int     lua_nfile;
-
-#define lua_markstring(s)	(*((s)-1))
-
-
-int   lua_findsymbol           (char *s);
-int   lua_findenclosedconstant (char *s);
-int   lua_findconstant         (char *s);
-void  lua_markobject           (Object *o);
-char *lua_createstring         (char *s);
-void *lua_createarray          (void *a);
-int   lua_addfile              (char *fn);
-char *lua_filename             (void);
-void  lua_nextvar              (void);
-
-#endif
diff --git a/test.lua b/test.lua
deleted file mode 100644
index c0a2eb42..00000000
--- a/test.lua
+++ /dev/null
@@ -1,15 +0,0 @@
-$debug
-
-
-function somaP (x1,y1,x2,y2)
-  return x1+x2, y1+y2
-end
-
-function norma (x,y)
-  return x*x+y*y
-end
-
-function retorno_multiplo ()
- print (norma(somaP(2,3,4,5)))
-end
-
diff --git a/array.lua b/test/array.lua
index 349fb818..349fb818 100644
--- a/array.lua
+++ b/test/array.lua
diff --git a/test/dump b/test/dump
new file mode 100644
index 00000000..d5feb2b4
--- /dev/null
+++ b/test/dump
@@ -0,0 +1,37 @@
+
+
+function savevar (n,v)
+ if v = nil then return end;
+ if type(v) = "number" then print(n.."="..v) return end
+ if type(v) = "string" then print(n.."='"..v.."'") return end
+ if type(v) = "table" then
+   if v.__visited__ ~= nil then
+     print(n .. "=" .. v.__visited__);
+   else
+    print(n.."=@()")
+    v.__visited__ = n;
+    local r,f;
+    r,f = next(v,nil);
+    while r ~= nil do
+      if r ~= "__visited__" then
+        if type(r) = 'string' then
+          savevar(n.."."..r,f)
+	else
+          savevar(n.."["..r.."]",f)
+	end
+      end
+      r,f = next(v,r)
+    end
+   end
+ end
+end
+
+function save ()
+ local n,v = nextvar(nil)
+  while n ~= nil do 
+    savevar(n,v); 
+    n,v = nextvar(n)
+  end
+end
+
+save()
diff --git a/test/loop.lua b/test/loop.lua
new file mode 100644
index 00000000..b464d09e
--- /dev/null
+++ b/test/loop.lua
@@ -0,0 +1,6 @@
+$debug
+i=0
+repeat
+ print(i)
+ i=i+1
+until i>10
diff --git a/save.lua b/test/save.lua
index 1a4ba04d..3eb91086 100644
--- a/save.lua
+++ b/test/save.lua
@@ -1,4 +1,3 @@
-$debug
 
 
 function savevar (n,v)
diff --git a/sort.lua b/test/sort.lua
index f749c122..6d0d9a0d 100644
--- a/sort.lua
+++ b/test/sort.lua
@@ -2,9 +2,7 @@ $debug
 
 function quicksort(r,s)
 	if s<=r then return end		-- caso basico da recursao
-	local v=x[r]
-	local i=r
-	local j=s+1
+	local v, i, j = x[r], r, s+1
 		i=i+1; while x[i]<v do i=i+1 end
 		j=j-1; while x[j]>v do j=j-1 end
 		x[i],x[j]=x[j],x[i]
@@ -22,8 +20,7 @@ end
 function sort(a,n)			-- selection sort
  local i=1
  while i<=n do
-  local m=i
-  local j=i+1
+  local m, j = i, i+1
   while j<=n do
    if a[j]<a[m] then m=j end
    j=j+1
@@ -47,10 +44,11 @@ function main()
  n=n+1;	x[n]="marcelo"
  n=n+1;	x[n]="sedrez"
  n=n+1;	x[n]="z"
--- quicksort(1,n-1)
+ print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
+ quicksort(1,n-1)
  print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
  sort (x, n-1)
  print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
 end
 
-
+main()
diff --git a/test/sort/q.lua b/test/sort/q.lua
new file mode 100644
index 00000000..8d9a20d4
--- /dev/null
+++ b/test/sort/q.lua
@@ -0,0 +1,51 @@
+function quicksort(r,s)
+	if s<=r then return end		-- caso basico da recursao
+	local v=x[r]
+	local i=r
+	local j=s+1
+	repeat
+		repeat i=i+1 until x[i]>=v
+		repeat j=j-1 until x[j]<=v
+		x[i],x[j]=x[j],x[i]
+	until j<=i			-- separacao
+	x[i],x[j]=x[j],x[i]		-- undo last swap
+	x[j],x[r]=x[r],x[j]
+	quicksort(r,j-1)		-- recursao
+	quicksort(j+1,s)
+end
+
+function main()
+ x=@()
+ n=-1
+ n=n+1;	x[n]="a"
+ n=n+1;	x[n]="waldemar"
+ n=n+1;	x[n]="luiz"
+ n=n+1;	x[n]="lula"
+ n=n+1;	x[n]="peter"
+ n=n+1;	x[n]="raquel"
+ n=n+1;	x[n]="camilo"
+ n=n+1;	x[n]="andre"
+ n=n+1;	x[n]="marcelo"
+ n=n+1;	x[n]="sedrez"
+ n=n+1;	x[n]="z"
+-- sort(x,n)
+ quicksort(1,n-1)
+print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
+end
+
+function sort(a,n)			-- selection sort
+ local i=1
+ while i<=n do
+  local m=i
+  local j=i+1
+  while j<=n do
+   if a[j]<a[m] then m=j end
+   j=j+1
+  end
+ a[i],a[m]=a[m],a[i]			-- swap a[i] and a[m]
+ print (i, a[i])
+ i=i+1
+ end
+end
+
+main()
diff --git a/test/sort/sort.lua b/test/sort/sort.lua
new file mode 100644
index 00000000..ba2e273c
--- /dev/null
+++ b/test/sort/sort.lua
@@ -0,0 +1,51 @@
+$debug
+function quicksort(r,s)
+	if s<=r then return end		-- caso basico da recursao
+	local v=x[r]
+	local i=r
+	local j=s+1
+		i=i+1; while x[i]<v do i=i+1 end
+		j=j-1; while x[j]>v do j=j-1 end
+		x[i],x[j]=x[j],x[i]
+	while j>i do			-- separacao
+		i=i+1; while x[i]<v do i=i+1 end
+		j=j+1; while x[j]>v do j=j-1 end
+		x[i],x[j]=x[j],x[i]
+	end
+	x[i],x[j]=x[j],x[i]		-- undo last swap
+	x[j],x[r]=x[r],x[j]
+	quicksort(r,j-1)		-- recursao
+	quicksort(j+1,s)
+end
+
+function sort(a,n)			-- selection sort
+ local i=1
+ while i<=n do
+  local m=i
+  local j=i+1
+  while j<=n do
+   if a[j]<a[m] then m=j end
+   j=j+1
+  end
+ a[i],a[m]=a[m],a[i]			-- swap a[i] and a[m]
+ print (i, a[i])
+ i=i+1
+ end
+end
+
+x=@(20)
+n=-1
+n=n+1;	x[n]="a"
+n=n+1;	x[n]="waldemar"
+n=n+1;	x[n]="luiz"
+n=n+1;	x[n]="lula"
+n=n+1;	x[n]="peter"
+n=n+1;	x[n]="raquel"
+n=n+1;	x[n]="camilo"
+n=n+1;	x[n]="andre"
+n=n+1;	x[n]="marcelo"
+n=n+1;	x[n]="sedrez"
+n=n+1;	x[n]="z"
+-- sort(x,n)
+quicksort(1,n-1)
+print(x[0]..","..x[1]..","..x[2]..","..x[3]..","..x[4]..","..x[5]..","..x[6]..","..x[7]..","..x[8]..","..x[9]..","..x[10])
diff --git a/test/split.lua b/test/split.lua
new file mode 100644
index 00000000..0f64c508
--- /dev/null
+++ b/test/split.lua
@@ -0,0 +1,18 @@
+function split (s)
+ local n = 1
+ local f = strfind(s,"/")
+ while f do
+  n = n+f
+  f = strfind(strsub(s,n),"/")
+ end
+ return strsub(s,1,n-1), strsub(s,n)
+end
+
+
+function test(s)
+ local path, filename = split(s)
+ print(s .. "=[".. path.."]+["..filename.."]")
+end
+
+test("a:/lua/obj/lua.c")
+test("lua.lib")
diff --git a/test/teste.lua b/test/teste.lua
new file mode 100644
index 00000000..467ce122
--- /dev/null
+++ b/test/teste.lua
@@ -0,0 +1,22 @@
+function sort(a,n)                      -- selection sort
+ local i=1
+ while i<=n do
+  local m, j = i, i+1
+  while j<=n do
+   if a[j]<a[m] then m=j end
+   j=j+1
+  end
+  a[i],a[m]=a[m],a[i]                    -- swap a[i] and a[m]
+  i=i+1
+ end
+end
+
+
+v = @(5000)
+
+i=1
+while i <= 5000 do v[i] = 5000-i i=i+1 end
+
+sort(v,5000)
+
+print("v512 = ".. v[512])
diff --git a/test/type.lua b/test/type.lua
new file mode 100644
index 00000000..5078920b
--- /dev/null
+++ b/test/type.lua
@@ -0,0 +1,37 @@
+$debug
+
+function check (object, class)
+ local v = next(object,nil);
+ while v ~= nil do
+   if class[v] = nil then
+    print("unknown field: " .. v) 
+   elseif type(object[v]) ~= class[v].type then
+    print("wrong type for field " .. v)
+   end
+   v = next(object,v);
+ end
+ v = next(class,nil);
+ while v ~= nil do
+   if object[v] = nil then
+     if class[v].default ~= nil then
+      object[v] = class[v].default
+     else
+      print("field "..v.." not initialized")
+     end
+   end
+   v = next(class,v);
+ end
+end
+
+typeblock = @{x = @{default = 0, type = "number"},
+               y = @{default = 0, type = "number"},
+               name = @{type = "string"}
+              }
+
+function block(t) check(t,typeblock) end
+
+@block{ x = 7, name = "3"}
+@block{ x = "7", name = "3"}
+@block{ x = 7, name = 3}
+@block{ x = 7}
+@block{ x = 7, name = "3", bogus=3.14}
diff --git a/type.lua b/type.lua
deleted file mode 100644
index 26dc162f..00000000
--- a/type.lua
+++ /dev/null
@@ -1,35 +0,0 @@
-$debug

-

-function check (object, class)

- local v = next(object,nil);

- while v ~= nil do

-   if class[v] = nil then print("unknown field: " .. v) 

-   elseif type(object[v]) ~= class[v].type  

-     then print("wrong type for field " .. v)

-   end

-   v = next(object,v);

- end

- v = next(class,nil);

- while v ~= nil do

-   if object[v] = nil then

-     if class[v].default ~= nil then

-       object[v] = class[v].default

-     else print("field "..v.." not initialized")

-     end

-   end

-   v = next(class,v);

- end

-end

-

-typetrilha = @{x = @{default = 0, type = "number"},

-               y = @{default = 0, type = "number"},

-               name = @{type = "string"}

-              }

-

-function trilha (t)  check(t,typetrilha) end

-

-t1 = @trilha{ x = 4, name = "3"}

-

-a = "na".."me"

-

-
\ No newline at end of file
diff --git a/y_tab.h b/y_tab.h
deleted file mode 100644
index b973d540..00000000
--- a/y_tab.h
+++ /dev/null
@@ -1,35 +0,0 @@
-
-typedef union  
-{
- int   vInt;
- long  vLong;
- float vFloat;
- Word  vWord;
- Byte *pByte;
-} YYSTYPE;
-extern YYSTYPE yylval;
-# define NIL 257
-# define IF 258
-# define THEN 259
-# define ELSE 260
-# define ELSEIF 261
-# define WHILE 262
-# define DO 263
-# define REPEAT 264
-# define UNTIL 265
-# define END 266
-# define RETURN 267
-# define LOCAL 268
-# define NUMBER 269
-# define FUNCTION 270
-# define NAME 271
-# define STRING 272
-# define DEBUG 273
-# define NOT 274
-# define AND 275
-# define OR 276
-# define NE 277
-# define LE 278
-# define GE 279
-# define CONC 280
-# define UNARY 281