ntg-context - mailing list for ConTeXt users
 help / color / mirror / Atom feed
* simpleslides ubuntu jaunty (9.04)
@ 2009-05-06 16:59 Amaël Broustet
  2009-05-07  7:22 ` Thomas A. Schmitz
  0 siblings, 1 reply; 11+ messages in thread
From: Amaël Broustet @ 2009-05-06 16:59 UTC (permalink / raw)
  To: ntg-context

[-- Attachment #1: Type: text/plain, Size: 1085 bytes --]

Dear list members,
I'm a new user of conTeXt and was interested in the simpleslides module.

It looks great and partially works but most graphical stuffs don't
work :
I've only the text using Mark IV, and get some of the graphical effects
with Mark II  (but not all) (I've attached pdf output and logs). 

I use a freshly installed ubuntu 9.04

I've installed the module (in my ~/texmf).
I've added in /etc/environment the variable
TEXMFCNF=/usr/share/texmf/web2c in order for luatools and MarkIV to
work. cf
http://wiki.contextgarden.net/Debian_installation#Postscript:_Mark_IV
(the exemple file works)

versions :
$ texexec --lua -v
TeXExec | version 6.2.0 - 1997-2006 - PRAGMA ADE/POD

$ luatools -v
LuaTools | version 1.2.0 - 2006+ - PRAGMA ADE / CONTEXT

$ luatex -v
This is LuaTeX, Version snapshot-0.28.0-2009041620


I hope that you have some hints on what I might have wrong,
In mark IV, it looks like I have a version problem for metafun, but I'm
not sure and don't now how to get the version number.

Best regards
Amaël Broustet






[-- Attachment #2: essai.tex --]
[-- Type: text/x-tex, Size: 258 bytes --]

\enableregime [utf]
\usemodule[simpleslides][style=BigNumber]

\setupTitle
[   title={Essai / Try SimpleSlides},
 author={Amaël Broustet},
    date={6 mai 2009},
]



\starttext
\placeTitle

\SlideTitle{Le premier slide}
Essai
 

\stoptext

[-- Attachment #3: essai-MarkII.log --]
[-- Type: text/x-log, Size: 6374 bytes --]

This is pdfTeXk, Version 3.141592-1.40.3 (Web2C 7.5.6) (format=cont-en 2009.4.29)  6 MAY 2009 18:52
entering extended mode
 %&-line parsing enabled.
 (/usr/share/texmf/web2c/natural.tcx)
**essai.tex \emergencyend
(./essai.tex

ConTeXt  ver: 2008.05.21 15:21 MKII  fmt: 2009.4.29  int: english/english

language        : language en is active
system          : cont-new loaded
(/usr/share/texmf/tex/context/base/cont-new.tex
systems         : beware: some patches loaded from cont-new.tex
(/usr/share/texmf/tex/context/base/cont-new.mkii)
(/usr/share/texmf/tex/context/base/cont-mtx.tex))
system          : cont-old loaded
(/usr/share/texmf/tex/context/base/cont-old.tex
loading         : Context Old Macros
)
system          : cont-fil loaded
(/usr/share/texmf/tex/context/base/cont-fil.tex
loading         : Context File Synonyms
)
system          : cont-sys.rme loaded
(/etc/texmf/tex/context/user/cont-sys.rme
(/usr/share/texmf/tex/context/base/type-tmf.tex)
(/usr/share/texmf/tex/context/base/type-siz.tex)
(/usr/share/texmf/tex/context/base/type-one.tex)
(/usr/share/texmf/tex/context/base/type-akb.tex))
bodyfont        : 12pt rm is loaded
language        : patterns en->ec:ec->1->2:3 uk->ec:ec->2->2:3 de->texnansi:tex
nansi->3->2:3 de->ec:ec->4->2:3 fr->texnansi:texnansi->5->2:3 fr->ec:ec->6->2:3
 es->ec:ec->7->2:3 pt->texnansi:texnansi->8->2:3 pt->ec:ec->9->2:3 it->texnansi
:texnansi->10->2:3 it->ec:ec->11->2:3 nl->texnansi:texnansi->12->2:3 nl->ec:ec-
>13->2:3 cz->il2:il2->14->2:3 cz->ec:ec->15->2:3 sk->il2:il2->16->2:3 sk->ec:ec
->17->2:3 pl->pl0:pl0->18->2:3 pl->ec:ec->19->2:3 pl->qx:qx->20->2:3 loaded
specials        : tex,postscript,rokicki loaded
\openout3 = `essai.tui'.

system          : essai.top loaded
(./essai.top
specials        : loading definition file tpd
(/usr/share/texmf/tex/context/base/spec-tpd.tex
specials        : loading definition file fdf
(/usr/share/texmf/tex/context/base/spec-fdf.tex
(/usr/share/texmf/tex/context/base/spec-fdf.mkii))
specials        : fdf loaded
)
specials        : fdf,tpd loaded
)
\openout0 = `essai-mpgraph.mp'.

\openout0 = `mpgraph.mp'.


systems         : system commands are disabled
system          : module simpleslides loaded
(/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex
loading         : module simpleslides
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-default.tex
simpleslides    : loading default style setup
color           : mpcmyk color space is supported
color           : mpspot color space is supported
color           : system rgb is global activated
)
system          : module BigNumber loaded

(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-BigNumber.te
x
simpleslides    : loading Big Number style
system          : command \NormalHeight is already defined
system          : command \NormalWidth is already defined
system          : command \PictureFrameHeight is already defined
system          : command \PictureFrameWidth is already defined
color           : specification [s=0] at color simpleslides:textcolor becomes b
lack
system (OLDTEX) : [line 85] 
)
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-f-default.tex
simpleslides    : loading default font setup
system (OLDTEX) : [line 46] 
system (OLDTEX) : [line 90] 
system (OLDTEX) : [line 137] 
system (OLDTEX) : [line 187] 
system (OLDTEX) : [line 213] 
)) (./essai.tuo) (./essai.tuo) (./essai.tuo) (./essai.tuo) (./essai.tuo)
(./essai.tuo) (./essai.tuo) (./essai.tuo) (./essai.tuo) (./essai.tuo)
(./essai.tuo) (./essai.tuo) (/usr/share/texmf/tex/context/base/pdfr-def.tex)
systems         : begin file essai at line 12
fonts           : resetting map file list
{/usr/share/texmf/fonts/map/pdftex/context/original-empty.map}
fonts           : using map file: original-base
{/usr/share/texmf/fonts/map/pdftex/context/original-base.map}
fonts           : using map file: original-ams-base
{/usr/share/texmf/fonts/map/pdftex/context/original-ams-base.map}
fonts           : using map file: original-public-lm
{/usr/share/texmf/fonts/map/pdftex/context/original-public-lm.map}
fonts           : using map file: lm-ec
{/usr/share/texmf/fonts/map/dvips/lm/lm-ec.map}
fonts           : using map file: lm-math
{/usr/share/texmf/fonts/map/dvips/lm/lm-math.map}
fonts           : using map file: lm-rm
{/usr/share/texmf/fonts/map/dvips/lm/lm-rm.map}
fonts           : using map file: 8r-base
{/usr/share/texmf/fonts/map/pdftex/context/8r-base.map}
fonts           : using map file: ec-base
{/usr/share/texmf/fonts/map/pdftex/context/ec-base.map}
fonts           : using map file: t5-base
{/usr/share/texmf/fonts/map/pdftex/context/t5-base.map}
fonts           : using map file: original-ams-euler
{/usr/share/texmf/fonts/map/pdftex/context/original-ams-euler.map}
fonts           : using map file: qhv-ec


pdfTeX warning: pdftex (file qhv-ec.map): cannot open font map file
\openout7 = `essai-mpgraph.mp'.

\openout6 = `essai-mpgraph.mpb'.

[MP to PDF] (./essai-mpgraph.4000 (./essai.tuo))
(/usr/share/texmf/tex/context/base/sort-def.tex
(/usr/share/texmf/tex/context/base/sort-def.mkii))
(/usr/share/texmf/tex/context/base/sort-lan.tex
loading         : Context Sorting Macros (languages)
(/usr/share/texmf/tex/context/base/sort-lan.mkii)) [1.1] [2.2]
systems         : end file essai at line 19
[flush and process essai-mpgraph.mp afterwards]
system          : cont-err loaded
(/usr/share/texmf/tex/context/base/cont-err.tex
systems         : no file 'cont-sys.tex', using 'cont-sys.rme' instead
) ) 
Here is how much of TeX's memory you used:
 2447 strings out of 57603
 37560 string characters out of 553749
 4634664 words of memory out of 5563607
 42002 multiletter control sequences out of 10000+50000
 227076 words of font info for 101 fonts, out of 1200000 for 2000
 192 hyphenation exceptions out of 8191
 57i,20n,74p,254b,1248s stack positions out of 5000i,500n,6000p,200000b,5000s
{/usr/share/texmf/fonts/enc/dvips/lm/lm-ec.enc}</usr/share/texmf/fonts/type1
/public/lm/lmss10.pfb>
Output written on essai.pdf (2 pages, 21271 bytes).
PDF statistics:
 19 PDF objects out of 1000 (max. 8388607)
 12 compressed objects within 1 object stream
 0 named destinations out of 1000 (max. 131072)
 7 words of extra memory for PDF output out of 10000 (max. 10000000)


[-- Attachment #4: essai-MarkII.pdf --]
[-- Type: application/pdf, Size: 21271 bytes --]

[-- Attachment #5: essai-MarkIV.log --]
[-- Type: text/x-log, Size: 2216396 bytes --]

(./essai.tex

ConTeXt  ver: 2008.05.21 15:21 MKIV  fmt: 2009.5.5  int: english/english

language       : language en is active
system         : cont-new loaded
(/usr/share/texmf/tex/context/base/cont-new.tex
systems         : beware: some patches loaded from cont-new.tex
(/usr/share/texmf/tex/context/base/cont-new.mkiv
lua            : used config path - /usr/share/texmf/web2c/texmf.cnf
lua            : used cache path - /home/amael3/luatex-cache/context/6300afb4995fe38c77e9b86ed1ef1028
) (/usr/share/texmf/tex/context/base/cont-mtx.tex))
system         : cont-old loaded
(/usr/share/texmf/tex/context/base/cont-old.tex
loading        : Context Old Macros
)
system         : cont-fil loaded
(/usr/share/texmf/tex/context/base/cont-fil.tex
loading        : Context File Synonyms
)
system         : cont-sys.rme loaded
(/etc/texmf/tex/context/user/cont-sys.rme (/usr/share/texmf/tex/context/base/type-tmf.tex) (/usr/share/texmf/tex/context/base/type-siz.tex) (/usr/share/texmf/tex/context/base/type-otf.tex))
bodyfont       : 12pt rm is loaded
specials       : tex loaded
system         : essai.top loaded
(./essai.top
specials       : loading definition file tpd
(/usr/share/texmf/tex/context/base/spec-tpd.tex
specials       : loading definition file fdf
(/usr/share/texmf/tex/context/base/spec-fdf.tex (/usr/share/texmf/tex/context/base/spec-fdf.mkiv))
specials       : fdf loaded
)
specials       : fdf loaded
)
system         : module simpleslides loaded
(/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex
loading        : module simpleslides
system         : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-default.tex
simpleslides   : loading default style setup
color          : mpcmyk color space is supported
color          : mpspot color space is supported
color          : system rgb is global activated
)
system         : module BigNumber loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-BigNumber.tex
simpleslides   : loading Big Number style
system         : command NormalHeight is already defined
system         : command NormalWidth is already defined
system         : command PictureFrameHeight is already defined
system         : command PictureFrameWidth is already defined
system (LUATEX) : [line 95] 
)
system         : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-f-default.tex
simpleslides   : loading default font setup
system (LUATEX) : [line 82] 
system (LUATEX) : [line 114] 
system (LUATEX) : [line 179] 
system (LUATEX) : [line 206] 
)) (./essai.tuo) (./essai.tuo)
systems        : begin file essai at line 12
fonts          : resetting map file list
{/usr/share/texmf/fonts/map/pdftex/context/original-empty.map}
fonts          : using map file: original-base
{/usr/share/texmf/fonts/map/pdftex/context/original-base.map}
fonts          : using map file: lm-math
{/usr/share/texmf/fonts/map/dvips/lm/lm-math.map}
fonts          : using map file: lm-rm
{/usr/share/texmf/fonts/map/dvips/lm/lm-rm.map}
fonts          : using map file: original-ams-base
{/usr/share/texmf/fonts/map/pdftex/context/original-ams-base.map}
fonts          : using map file: original-ams-euler
{/usr/share/texmf/fonts/map/pdftex/context/original-ams-euler.map}
fonts          : using map file: original-public-lm
{/usr/share/texmf/fonts/map/pdftex/context/original-public-lm.map}
mplib          : loading format: metafun.mp, name: /home/amael3/luatex-cache/context/6300afb4995fe38c77e9b86ed1ef1028/formats/cont-en-metafun.mem
mplib          : version mismatch: mp_parent_version <> 2008.05.21 15:21
mplib          : making format: metafun.mp, name: /home/amael3/luatex-cache/context/6300afb4995fe38c77e9b86ed1ef1028/formats/cont-en-metafun.mem
mplib          : loading format: metafun.mp, name: /home/amael3/luatex-cache/context/6300afb4995fe38c77e9b86ed1ef1028/formats/cont-en-metafun.mem
report >> mp terminal: (/usr/share/texmf/metapost/context/base/mp-tool.mp
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.51 vardef mpversioncmp(expr s,
                                 c) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.55 vardef mpversionlt (expr s)
                                 = mpversioncmp(s, "<") enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   )
l.56 vardef mpversioneq (expr s)
                                 = mpversioncmp(s, "=") enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   )
l.57 vardef mpversiongt (expr s)
                                 = mpversioncmp(s, ">") enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   )
l.139 vardef colorlike(text c)
                               text v = % colorlike(a) b, c, d ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.328 vardef pow (expr x,
                         p) = (x**p)                              enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.398 def stripe_path_n (
                         text s_spec) (text s_draw) expr s_path =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.402 def do_stripe_path_n (
                            text s_spec) (text s_draw) (expr s_path) text s_...
! Missing `=' has been inserted.
<to be read again> 
                   (
l.432 def stripe_path_a (
                         text s_spec) (text s_draw) expr s_path =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.436 def do_stripe_path_a (
                            text s_spec) (text s_draw) (expr s_path) text s_...
! Missing `=' has been inserted.
<to be read again> 
                   (
l.526 def xscale_currentpicture(
                                expr w) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.530 def yscale_currentpicture(
                                expr h) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.534 def xyscale_currentpicture(
                                 expr w, h) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.538 def scale_currentpicture(
                               expr w, h) =
>> unitsquare
>> -center.unitsquare
! Not implemented: (unknown numeric)shifted(unknown numeric).
<to be read again> 
                   ;
l.549 ... unitsquare shifted - center unitsquare ;
                                                  
>> unknown path fullsquare
>> -center.unitsquare
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
l.549 ... unitsquare shifted - center unitsquare ;
                                                  
>> fullcircle
! Not implemented: urcorner(unknown numeric).
<to be read again> 
                   ;
l.550 ... fullcircle shifted urcorner fullcircle ;
                                                  
>> fullcircle
>> fullcircle
! Not implemented: (unknown numeric)shifted(unknown numeric).
<to be read again> 
                   ;
l.550 ... fullcircle shifted urcorner fullcircle ;
                                                  
>> unknown path unitcircle
>> fullcircle
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
l.550 ... fullcircle shifted urcorner fullcircle ;
                                                  
>> unknown path urcircle
>> origin--(+0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.556 urcircle := origin--(+.5,
                               0)&(+.5,0){up}   ..(0,+.5)&(0,+.5)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.556 urcircle := origin--(+.5,
                               0)&(+.5,0){up}   ..(0,+.5)&(0,+.5)--cycle ;
>> unknown path ulcircle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.557 ulcircle := origin--(0,
                             +.5)&(0,+.5){left} ..(-.5,0)&(-.5,0)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.557 ulcircle := origin--(0,
                             +.5)&(0,+.5){left} ..(-.5,0)&(-.5,0)--cycle ;
>> unknown path llcircle
>> origin--(-0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.558 llcircle := origin--(-.5,
                               0)&(-.5,0){down} ..(0,-.5)&(0,-.5)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.558 llcircle := origin--(-.5,
                               0)&(-.5,0){down} ..(0,-.5)&(0,-.5)--cycle ;
>> unknown path lrcircle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.559 lrcircle := origin--(0,
                             -.5)&(0,-.5){right}..(+.5,0)&(+.5,0)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.559 lrcircle := origin--(0,
                             -.5)&(0,-.5){right}..(+.5,0)&(+.5,0)--cycle ;
>> unknown path tcircle
>> origin--(+0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.563 tcircle = origin--(+.5,
                             0)&(+.5,0){up}   ..(0,+.5)..{down} (-.5,0)--cyc...
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.563 tcircle = origin--(+.5,
                             0)&(+.5,0){up}   ..(0,+.5)..{down} (-.5,0)--cyc...
>> unknown path bcircle
>> origin--(-0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.564 bcircle = origin--(-.5,
                             0)&(-.5,0){down} ..(0,-.5)..{up}   (+.5,0)--cyc...
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.564 bcircle = origin--(-.5,
                             0)&(-.5,0){down} ..(0,-.5)..{up}   (+.5,0)--cyc...
>> unknown path lcircle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.565 lcircle = origin--(0,
                           +.5)&(0,+.5){left} ..(-.5,0)..{right}(0,-.5)--cyc...
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.565 lcircle = origin--(0,
                           +.5)&(0,+.5){left} ..(-.5,0)..{right}(0,-.5)--cyc...
>> unknown path rcircle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.566 rcircle = origin--(0,
                           -.5)&(0,-.5){right}..(+.5,0)..{left} (0,+.5)--cyc...
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.566 rcircle = origin--(0,
                           -.5)&(0,-.5){right}..(+.5,0)..{left} (0,+.5)--cyc...
>> unknown path urtriangle
>> origin--(+0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.570 urtriangle := origin--(+.5,
                                 0)--(0,+.5)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.570 urtriangle := origin--(+.5,
                                 0)--(0,+.5)--cycle ;
>> unknown path ultriangle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.571 ultriangle := origin--(0,
                               +.5)--(-.5,0)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.571 ultriangle := origin--(0,
                               +.5)--(-.5,0)--cycle ;
>> unknown path lltriangle
>> origin--(-0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.572 lltriangle := origin--(-.5,
                                 0)--(0,-.5)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.572 lltriangle := origin--(-.5,
                                 0)--(0,-.5)--cycle ;
>> unknown path lrtriangle
>> origin--(0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.573 lrtriangle := origin--(0,
                               -.5)--(+.5,0)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.573 lrtriangle := origin--(0,
                               -.5)--(+.5,0)--cycle ;
>> unknown path unitdiamond
>> (0.5
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.577 unitdiamond := (.5,
                         0)--(1,.5)--(.5,1)--(0,.5)--cycle ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.577 unitdiamond := (.5,
                         0)--(1,.5)--(.5,1)--(0,.5)--cycle ;
>> unknown path unitdiamond
>> -center.unitdiamond
! Not implemented: (unknown path)shifted(unknown numeric).
<to be read again> 
                   ;
l.578 ...nitdiamond shifted - center unitdiamond ;
                                                  
>> unknown path fulldiamond
>> -center.unitdiamond
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
l.578 ...nitdiamond shifted - center unitdiamond ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   (
l.602 def set_grid(
                   expr w, h, nx, ny) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.619 vardef new_on_grid(expr _dx_,
                                    _dy_) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.684 vardef tensecircle (expr width,
                                      height, offset) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.698 vardef roundedsquare (expr width,
                                        height, offset) =
>> (redpart cyan,greenpart cyan,bluepart cyan)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.707 color cyan    ; cyan    = (0,
                                   1,1) ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.707 color cyan    ; cyan    = (0,
                                   1,1) ;
>> (redpart magenta,greenpart magenta,bluepart magenta)
>> (1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.708 color magenta ; magenta = (1,
                                   0,1) ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.708 color magenta ; magenta = (1,
                                   0,1) ;
>> (redpart yellow,greenpart yellow,bluepart yellow)
>> (1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.709 color yellow  ; yellow  = (1,
                                   1,0) ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.709 color yellow  ; yellow  = (1,
                                   1,0) ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.711 def colortype(
                    expr c) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.714 vardef whitecolor(expr c)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.717 vardef blackcolor(expr c)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.747 vardef paired (expr d)
                             =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.751 vardef tripled (expr d)
                              =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.926 vardef interpolated(expr s,
                                  p, q) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1008 def leftrightpath(
                         expr p, l) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1033 def drawlineoptions   (
                              text t) = def _lin_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1034 def drawpointoptions  (
                              text t) = def _pnt_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1035 def drawcontroloptions(
                              text t) = def _ctr_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1036 def drawlabeloptions  (
                              text t) = def _lab_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1037 def draworiginoptions (
                              text t) = def _ori_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1038 def drawboundoptions  (
                              text t) = def _bnd_opt_ = t enddef ; enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1039 def drawpathoptions   (
                              text t) = def _pth_opt_ = t enddef ; enddef ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawlineoptions->(text
                      .t)=def._lin_opt_=t.enddef;
resetdrawoptions->drawlineoptions
                                 (withpen.pencircle.scaled1pt.withcolor0.5wh...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawlineoptions->(text
                      .t)=def._lin_opt_=t.enddef;
resetdrawoptions->drawlineoptions
                                 (withpen.pencircle.scaled1pt.withcolor0.5wh...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   withpen
resetdrawoptions->drawlineoptions(withpen
                                         .pencircle.scaled1pt.withcolor0.5wh...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   withpen
resetdrawoptions->drawlineoptions(withpen
                                         .pencircle.scaled1pt.withcolor0.5wh...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawpointoptions->(text
                       .t)=def._pnt_opt_=t.enddef;
resetdrawoptions->...lor0.5white);drawpointoptions
                                                  (withpen.pencircle.scaled4...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawpointoptions->(text
                       .t)=def._pnt_opt_=t.enddef;
resetdrawoptions->...lor0.5white);drawpointoptions
                                                  (withpen.pencircle.scaled4...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   withpen
resetdrawoptions->...ite);drawpointoptions(withpen
                                                  .pencircle.scaled4pt.withc...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   withpen
resetdrawoptions->...ite);drawpointoptions(withpen
                                                  .pencircle.scaled4pt.withc...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawcontroloptions->(text
                         .t)=def._ctr_opt_=t.enddef;
resetdrawoptions->...lor.black);drawcontroloptions
                                                  (withpen.pencircle.scaled2...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawcontroloptions->(text
                         .t)=def._ctr_opt_=t.enddef;
resetdrawoptions->...lor.black);drawcontroloptions
                                                  (withpen.pencircle.scaled2...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   withpen
resetdrawoptions->...k);drawcontroloptions(withpen
                                                  .pencircle.scaled2.5pt.wit...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   withpen
resetdrawoptions->...k);drawcontroloptions(withpen
                                                  .pencircle.scaled2.5pt.wit...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawlabeloptions->(text
                       .t)=def._lab_opt_=t.enddef;
resetdrawoptions->...color.black);drawlabeloptions
                                                  ();draworiginoptions(withp...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawlabeloptions->(text
                       .t)=def._lab_opt_=t.enddef;
resetdrawoptions->...color.black);drawlabeloptions
                                                  ();draworiginoptions(withp...
l.1051 resetdrawoptions
                        ;
>> ()
! Isolated expression.
<to be read again> 
                   ;
resetdrawoptions->...or.black);drawlabeloptions();
                                                  draworiginoptions(withpen....
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
draworiginoptions->(text
                        .t)=def._ori_opt_=t.enddef;
resetdrawoptions->...eloptions();draworiginoptions
                                                  (withpen.pencircle.scaled1...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
draworiginoptions->(text
                        .t)=def._ori_opt_=t.enddef;
resetdrawoptions->...eloptions();draworiginoptions
                                                  (withpen.pencircle.scaled1...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   withpen
resetdrawoptions->...s();draworiginoptions(withpen
                                                  .pencircle.scaled1pt.withc...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   withpen
resetdrawoptions->...s();draworiginoptions(withpen
                                                  .pencircle.scaled1pt.withc...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawboundoptions->(text
                       .t)=def._bnd_opt_=t.enddef;
resetdrawoptions->...lor0.5white);drawboundoptions
                                                  (dashed.evenly._ori_opt_);...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawboundoptions->(text
                       .t)=def._bnd_opt_=t.enddef;
resetdrawoptions->...lor0.5white);drawboundoptions
                                                  (dashed.evenly._ori_opt_);...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   dashed
resetdrawoptions->...hite);drawboundoptions(dashed
                                                  .evenly._ori_opt_);drawpat...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   dashed
resetdrawoptions->...hite);drawboundoptions(dashed
                                                  .evenly._ori_opt_);drawpat...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   text
drawpathoptions->(text
                      .t)=def._pth_opt_=t.enddef;
resetdrawoptions->...ly._ori_opt_);drawpathoptions
                                                  (withpen.pencircle.scaled5...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   text
drawpathoptions->(text
                      .t)=def._pth_opt_=t.enddef;
resetdrawoptions->...ly._ori_opt_);drawpathoptions
                                                  (withpen.pencircle.scaled5...
l.1051 resetdrawoptions
                        ;
>> (
! Isolated expression.
<to be read again> 
                   withpen
resetdrawoptions->...opt_);drawpathoptions(withpen
                                                  .pencircle.scaled5pt.withc...
l.1051 resetdrawoptions
                        ;
! Extra tokens will be flushed.
<to be read again> 
                   withpen
resetdrawoptions->...opt_);drawpathoptions(withpen
                                                  .pencircle.scaled5pt.withc...
l.1051 resetdrawoptions
                        ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1083 vardef arrowheadonpath (expr p,
                                       s) =
>> extra_endfig
>> " naturalizepaths ; "
! Not implemented: (unknown numeric)&(string).
<to be read again> 
                   ;
l.1257 ...= extra_endfig & " naturalizepaths ; " ;
                                                  
>> extra_endfig
>> " naturalizepaths ; "
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
l.1257 ...= extra_endfig & " naturalizepaths ; " ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1265 def set_ahlength (
                         text t) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.1272 vardef pen_size (text t)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1296 vardef pointarrow (expr pat,
                                    loc, len, off) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1308 def rightarrow  (
                        expr pat,tim,len) = pointarrow(pat,tim,len,-len) end...
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1309 def leftarrow   (
                        expr pat,tim,len) = pointarrow(pat,tim,len,+len) end...
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1310 def centerarrow (
                        expr pat,tim,len) = pointarrow(pat,tim,len,   0) end...
>> unknown path freesquare
>> ((-1
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ,
l.1354 freesquare := ((-1,
                          0)--(-1,-1)--(0,-1)--(+1,-1)--
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.1354 freesquare := ((-1,
                          0)--(-1,-1)--(0,-1)--(+1,-1)--
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1360 vardef thefreelabel (expr str,
                                      loc, ori) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1377 vardef thefreelabel (expr str,
                                      loc, ori) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1390 vardef freelabel (expr str,
                                   loc, ori) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1394 vardef freedotlabel (expr str,
                                      loc, ori) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1444 vardef anglebetween (expr a,
                                    b, str) = % path path string
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1582 vardef colorcircle (expr size,
                                      red, green, blue) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1768 def readfile (
                     expr name) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1817 def remapcolor(
                      expr old, new) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1821 def remappedcolor(
                         expr c) =
>> (redpart refillbackground,greenpart refillbackground,bluepart refillbackground)
>> (1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.1878 ...fillbackground ; refillbackground := (1,
                                                  1,1) ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.1878 ...fillbackground ; refillbackground := (1,
                                                  1,1) ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1932 vardef repathed (expr mode,
                                   p) text t =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2056 vardef cmyk(expr c,
                          m,y,k) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2062 vardef bbwidth  (expr p)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2070 vardef bbheight (expr p)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.2079 def dowithpath (
                       expr p, lw, lc, bc) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2141 vardef dostraightened(expr sign,
                                        p) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2152 vardef dodostraightened(expr sign,
                                          p) =
>> unknown path originpath
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
l.2213 ...iginpath ; originpath := origin -- cycle
                                                   ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
l.2213 ...iginpath ; originpath := origin -- cycle
                                                   ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.2221 vardef anchored@#(
                         expr p, z) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2228 vardef epsed (expr e)
                             =
>> (redpart darkred,greenpart darkred,bluepart darkred)
>> 0.625(1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.2240 ...color darkred    ; darkred    := .625(1,
                                                  0,0) fi ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.2240 ...color darkred    ; darkred    := .625(1,
                                                  0,0) fi ;
>> (redpart darkyellow,greenpart darkyellow,bluepart darkyellow)
>> 0.625(1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.2241 ...color darkyellow ; darkyellow := .625(1,
                                                  1,0) fi ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.2241 ...color darkyellow ; darkyellow := .625(1,
                                                  1,0) fi ;
>> (redpart darkgray,greenpart darkgray,bluepart darkgray)
>> 0.625(1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.2242 ...color darkgray   ; darkgray   := .625(1,
                                                  1,1) fi ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.2242 ...color darkgray   ; darkgray   := .625(1,
                                                  1,1) fi ;
>> (redpart lightgray,greenpart lightgray,bluepart lightgray)
>> 0.875(1
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
l.2243 ...color lightgray  ; lightgray  := .875(1,
                                                  1,1) fi ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
l.2243 ...color lightgray  ; lightgray  := .875(1,
                                                  1,1) fi ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2253 vardef rangepath (expr p,
                                 d, a) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2267 vardef straightpath(expr a,
                                   b, method) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.2333 def register_dirty_chars(
                                expr str) =
>> (
! Isolated expression.
<to be read again> 
                   expr
register_dirty_chars->(expr
                           .str)=for.i=0upto.length(str)-1:_clean_ascii_[ASC...
l.2339 register_dirty_chars
                           ("+-*/:;., ") ;
! Extra tokens will be flushed.
<to be read again> 
                   expr
register_dirty_chars->(expr
                           .str)=for.i=0upto.length(str)-1:_clean_ascii_[ASC...
l.2339 register_dirty_chars
                           ("+-*/:;., ") ;
! Extra `endfor'.
register_dirty_chars->...i,i+1)of.str]:="_";endfor
                                                  ;
l.2339 register_dirty_chars
                           ("+-*/:;., ") ;
>> (
! Isolated expression.
<to be read again> 
                   "+-*/:;., "
l.2339 register_dirty_chars("+-*/:;., "
                                       ) ;
! Extra tokens will be flushed.
<to be read again> 
                   "+-*/:;., "
l.2339 register_dirty_chars("+-*/:;., "
                                       ) ;
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2341 vardef cleanstring (expr s)
                                   =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2350 vardef asciistring (expr s)
                                   =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2363 vardef setunstringed (expr s,
                                     v) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.2367 vardef setunstringed (expr s,
                                     v) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2371 vardef getunstringed (expr s)
                                     =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2375 vardef unstringed (expr s)
                                  =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2381 vardef colorpart(expr i)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.2389 def showgrid (
                     expr MinX, MaxX, DeltaX, MinY, MaxY, DeltaY)=
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2442 vardef phantom (text t)
                               =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.2447 vardef c_phantom (expr b)
                                 (text t) =
) (/usr/share/texmf/metapost/context/base/mp-spec.mp
>> " insidefigure := true ;  reset_extra_specials ; "
>> extra_beginfig
! Not implemented: (string)&(unknown numeric).
<to be read again> 
                   ;
l.116     extra_beginfig ;
                          
>> " add_special_signal ; "
>> extra_endfig
! Not implemented: (string)&(unknown numeric).
<to be read again> 
                   &
l.120     extra_endfig              &
                                     
>> extra_endfig
>> " add_extra_specials ; "
! Not implemented: (unknown numeric)&(string).
<to be read again> 
                   &
l.121   " add_extra_specials ; "    &
                                     
>> extra_endfig
>> " add_extra_specials ;  reset_extra_specials ;  insidefigure := false ; "
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
l.123   " insidefigure := false ; " ;
                                     
! Missing `=' has been inserted.
<to be read again> 
                   (
l.125 def set_extra_special (
                             expr s) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.133 def flush_special (
                         expr typ, siz, dat) =
>> (xpart shadeoffset,ypart shadeoffset)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
l.207 pair shadeoffset ; shadeoffset := origin ;
                                                
! Missing `=' has been inserted.
<to be read again> 
                   )
l.227 vardef _is_cmyk_(expr c)
                               =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.230 vardef _is_spot_(expr c)
                               =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.233 vardef _is_gray_(expr c)
                               =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.239 vardef define_linear_shade (expr a,
                                          b, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.270 vardef define_circular_shade (expr a,
                                            b, ra, rb, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.311 def set_linear_vector (
                             suffix a,b)(expr p,n) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.333 def set_circular_vector (
                               suffix ab, r)(expr p,n) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.342 def linear_shade (
                        expr p, n, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.353 def circular_shade (
                          expr p, n, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.366 vardef predefined_linear_shade (expr p,
                                              n, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.373 vardef predefined_circular_shade (expr p,
                                                n, ca, cb) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.389 vardef shadecolor(expr sc)
                                 =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.402 def doexternalfigure (
                            expr filename) text transformation =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.422 def dohyperlink (
                       expr destination) text transformation  =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.429 def dohyperpath (
                       expr destination) expr somepath =
>> " resetcmykcolors ; "
>> extra_endfig
! Not implemented: (string)&(unknown numeric).
<to be read again> 
                   ;
l.477 ...:= " resetcmykcolors ; " & extra_endfig ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.487 vardef cmyk(expr c,
                         m,y,k) =
>> " resetspotcolors ; "
>> extra_endfig
! Not implemented: (string)&(unknown numeric).
<to be read again> 
                   ;
l.525 ...:= " resetspotcolors ; " & extra_endfig ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.535 vardef spotcolor(expr p,
                               s) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.539 vardef multitonecolor(expr n,
                                    f, d, p) = % name fractions names factors
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.590 vardef transparent(expr n,
                                 t, c) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.654 vardef is_transparent(text t)
                                    =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.664 vardef not_transparent(text t)
                                     =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.672 def register (
                    expr label, width, height, offset) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.684 vardef scaledcmyk(expr c,
                               m,y,k,sf) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.688 vardef scaledcmykasrgb(expr c,
                                    m,y,k,sf) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.692 vardef scaledrgbascmyk(expr c,
                                    m,y,k,sf) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.696 vardef scaledrgb(expr r,
                              g,b,sf) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.700 vardef scaledgray(expr s,
                               sf) =
) (/usr/share/texmf/metapost/context/base/mp-grph.mp
! Missing `=' has been inserted.
<to be read again> 
                   (
l.25 def beginfig (
                   expr c) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.62 def savegraphictext (
                          expr str) =
>> extra_beginfig
>> " erasegraphictextfile ;"
! Not implemented: (unknown numeric)&(string).
<to be read again> 
                   ;
l.76 ...tra_beginfig & " erasegraphictextfile ;" ;
                                                  
>> extra_beginfig
>> " erasegraphictextfile ;"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
l.76 ...tra_beginfig & " erasegraphictextfile ;" ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   (
l.78 def begingraphictextfig (
                              expr n) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.94 def doloadfigure (
                       expr filename) text figureattributes =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.131 def dographictext (
                         expr t) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.149 def regraphictext (
                         expr t) =
) (/usr/share/texmf/metapost/context/base/mp-page.mp
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
l.61 ResetTextAreas
                    ; SaveTextAreas ; ;
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
l.61 ResetTextAreas
                    ; SaveTextAreas ; ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
l.61 ResetTextAreas
                    ; SaveTextAreas ; ;
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> SavedTextAreas[(EXPR0)]
                                                :=TextAreas[(EXPR0)]; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
l.61 ResetTextAreas ; SaveTextAreas
                                    ; ;
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> ...)]:=TextAreas[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
l.61 ResetTextAreas ; SaveTextAreas
                                    ; ;
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  :=TextColumns[(EXPR0)]; EN...
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
l.61 ResetTextAreas ; SaveTextAreas
                                    ; ;
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
l.61 ResetTextAreas ; SaveTextAreas
                                    ; ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.63 def RegisterTextArea (
                           expr x, y, w, h, d) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.102 def RegisterLocalTextArea (
                                 expr x, y, w, h, d) =
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetLocalTextArea->...xtColumns[0]:=origin--cycle
                                                  ;
l.110 ResetLocalTextArea
                         ;
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetLocalTextArea->...xtColumns[0]:=origin--cycle
                                                  ;
l.110 ResetLocalTextArea
                         ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetLocalTextArea->...xtColumns[0]:=origin--cycle
                                                  ;
l.110 ResetLocalTextArea
                         ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.112 vardef InsideTextArea (expr _i_,
                                       _xy_) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.119 vardef InsideSavedTextArea (expr _i_,
                                            _xy_) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.126 vardef InsideSomeTextArea(expr _xy_)
                                           =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.135 vardef InsideSomeSavedTextArea(expr _xy_)
                                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.144 vardef TextAreaX (expr x)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.155 vardef TextAreaY (expr y)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.166 vardef TextAreaXY (expr x,
                                 y) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.179 vardef TextAreaW (expr x)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.190 vardef TextAreaH (expr y)
                                =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.201 vardef TextAreaWH (expr x,
                                 y) =
>> unknown path Area[-4][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4][-40],ypart Location[-4][-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...0)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3][-40],ypart Location[-3][-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...0)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2][-40],ypart Location[-2][-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...0)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-40)]:=origin--cycle
                                             ;Area[(-40)][(EXPR0)]:=Area[(EX...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1][-40],ypart Location[-1][-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...0)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1][-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 [-40],ypart Location0 [-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...40)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 [-40],ypart Location1 [-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...40)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 [-40],ypart Location2 [-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...40)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 [-40],ypart Location3 [-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...40)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-40)]:=origin--cycle
                                            ;Area[(-40)][(EXPR0)]:=Area[(EXP...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 [-40],ypart Location4 [-40])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...40)];Location[(EXPR0)][(-40)]:=origin;
                                                  Location[(-40)][(EXPR0)]:=...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 [-40]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-40)]:=origin--cycle
                                                  ;Field[(-40)][(EXPR0)]:=Fi...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4][-30],ypart Location[-4][-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...0)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3][-30],ypart Location[-3][-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...0)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2][-30],ypart Location[-2][-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...0)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-30)]:=origin--cycle
                                             ;Area[(-30)][(EXPR0)]:=Area[(EX...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1][-30],ypart Location[-1][-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...0)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1][-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 [-30],ypart Location0 [-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...30)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 [-30],ypart Location1 [-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...30)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 [-30],ypart Location2 [-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...30)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 [-30],ypart Location3 [-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...30)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-30)]:=origin--cycle
                                            ;Area[(-30)][(EXPR0)]:=Area[(EXP...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 [-30],ypart Location4 [-30])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...30)];Location[(EXPR0)][(-30)]:=origin;
                                                  Location[(-30)][(EXPR0)]:=...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 [-30]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-30)]:=origin--cycle
                                                  ;Field[(-30)][(EXPR0)]:=Fi...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4][-20],ypart Location[-4][-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...0)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3][-20],ypart Location[-3][-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...0)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2][-20],ypart Location[-2][-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...0)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-20)]:=origin--cycle
                                             ;Area[(-20)][(EXPR0)]:=Area[(EX...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1][-20],ypart Location[-1][-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...0)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1][-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 [-20],ypart Location0 [-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...20)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 [-20],ypart Location1 [-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...20)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 [-20],ypart Location2 [-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...20)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 [-20],ypart Location3 [-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...20)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-20)]:=origin--cycle
                                            ;Area[(-20)][(EXPR0)]:=Area[(EXP...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 [-20],ypart Location4 [-20])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...20)];Location[(EXPR0)][(-20)]:=origin;
                                                  Location[(-20)][(EXPR0)]:=...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 [-20]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-20)]:=origin--cycle
                                                  ;Field[(-20)][(EXPR0)]:=Fi...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4][-10],ypart Location[-4][-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...0)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3][-10],ypart Location[-3][-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...0)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2][-10],ypart Location[-2][-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...0)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(-10)]:=origin--cycle
                                             ;Area[(-10)][(EXPR0)]:=Area[(EX...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1][-10],ypart Location[-1][-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...0)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1][-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...;Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 [-10],ypart Location0 [-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...10)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 [-10],ypart Location1 [-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...10)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 [-10],ypart Location2 [-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...10)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 [-10],ypart Location3 [-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...10)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(-10)]:=origin--cycle
                                            ;Area[(-10)][(EXPR0)]:=Area[(EXP...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 [-10],ypart Location4 [-10])
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...10)];Location[(EXPR0)][(-10)]:=origin;
                                                  Location[(-10)][(EXPR0)]:=...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 [-10]
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...];Field[(EXPR0)][(-10)]:=origin--cycle
                                                  ;Field[(-10)][(EXPR0)]:=Fi...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4]0,ypart Location[-4]0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...[(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3]0,ypart Location[-3]0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...[(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2]0,ypart Location[-2]0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...[(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(0)]:=origin--cycle
                                           ;Area[(0)][(EXPR0)]:=Area[(EXPR0)...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1]0,ypart Location[-1]0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...[(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1]0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 0,ypart Location0 0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...][(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 0,ypart Location1 0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...][(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 0,ypart Location2 0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...][(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 0,ypart Location3 0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...][(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(0)]:=origin--cycle
                                          ;Area[(0)][(EXPR0)]:=Area[(EXPR0)]...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 0,ypart Location4 0)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...][(0)];Location[(EXPR0)][(0)]:=origin;
                                                  Location[(0)][(EXPR0)]:=Lo...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...0)];Field[(EXPR0)][(0)]:=origin--cycle
                                                  ;Field[(0)][(EXPR0)]:=Fiel...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4]10,ypart Location[-4]10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3]10,ypart Location[-3]10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2]10,ypart Location[-2]10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(10)]:=origin--cycle
                                            ;Area[(10)][(EXPR0)]:=Area[(EXPR...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1]10,ypart Location[-1]10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1]10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 10,ypart Location0 10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...(10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 10,ypart Location1 10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...(10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 10,ypart Location2 10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...(10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 10,ypart Location3 10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...(10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(10)]:=origin--cycle
                                           ;Area[(10)][(EXPR0)]:=Area[(EXPR0...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 10,ypart Location4 10)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...(10)];Location[(EXPR0)][(10)]:=origin;
                                                  Location[(10)][(EXPR0)]:=L...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 10
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(10)]:=origin--cycle
                                                  ;Field[(10)][(EXPR0)]:=Fie...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4]20,ypart Location[-4]20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3]20,ypart Location[-3]20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2]20,ypart Location[-2]20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(20)]:=origin--cycle
                                            ;Area[(20)][(EXPR0)]:=Area[(EXPR...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1]20,ypart Location[-1]20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1]20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 20,ypart Location0 20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...(20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 20,ypart Location1 20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...(20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 20,ypart Location2 20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...(20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 20,ypart Location3 20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...(20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(20)]:=origin--cycle
                                           ;Area[(20)][(EXPR0)]:=Area[(EXPR0...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 20,ypart Location4 20)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...(20)];Location[(EXPR0)][(20)]:=origin;
                                                  Location[(20)][(EXPR0)]:=L...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 20
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(20)]:=origin--cycle
                                                  ;Field[(20)][(EXPR0)]:=Fie...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4]30,ypart Location[-4]30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3]30,ypart Location[-3]30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2]30,ypart Location[-2]30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(30)]:=origin--cycle
                                            ;Area[(30)][(EXPR0)]:=Area[(EXPR...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1]30,ypart Location[-1]30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1]30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 30,ypart Location0 30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...(30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 30,ypart Location1 30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...(30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 30,ypart Location2 30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...(30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 30,ypart Location3 30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...(30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(30)]:=origin--cycle
                                           ;Area[(30)][(EXPR0)]:=Area[(EXPR0...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 30,ypart Location4 30)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...(30)];Location[(EXPR0)][(30)]:=origin;
                                                  Location[(30)][(EXPR0)]:=L...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 30
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(30)]:=origin--cycle
                                                  ;Field[(30)][(EXPR0)]:=Fie...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-4]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-4]40,ypart Location[-4]40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-4)> ...40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-4]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-4)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-3]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-3]40,ypart Location[-3]40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-3)> ...40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-3]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-3)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-2]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-2]40,ypart Location[-2]40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-2)> ...40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-2]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-2)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area[-1]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> Area[(EXPR0)][(40)]:=origin--cycle
                                            ;Area[(40)][(EXPR0)]:=Area[(EXPR...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location[-1]40,ypart Location[-1]40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(-1)> ...40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field[-1]40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(-1)> ...];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area0 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location0 40,ypart Location0 40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(0)> ...(40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field0 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(0)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area1 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location1 40,ypart Location1 40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(1)> ...(40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field1 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(1)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area2 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location2 40,ypart Location2 40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(2)> ...(40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field2 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(2)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area3 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location3 40,ypart Location3 40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(3)> ...(40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field3 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(3)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Area4 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> Area[(EXPR0)][(40)]:=origin--cycle
                                           ;Area[(40)][(EXPR0)]:=Area[(EXPR0...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> (xpart Location4 40,ypart Location4 40)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
<for(4)> ...(40)];Location[(EXPR0)][(40)]:=origin;
                                                  Location[(40)][(EXPR0)]:=L...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
>> unknown path Field4 40
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Extra tokens will be flushed.
<to be read again> 
                   cycle
<for(4)> ...)];Field[(EXPR0)][(40)]:=origin--cycle
                                                  ;Field[(40)][(EXPR0)]:=Fie...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
l.291 endfor
             ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.435 def llEnlarged (
                      expr p,d) = (llcorner p shifted (-d,-d)) enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.436 def lrEnlarged (
                      expr p,d) = (lrcorner p shifted (+d,-d)) enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.437 def urEnlarged (
                      expr p,d) = (urcorner p shifted (+d,+d)) enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.438 def ulEnlarged (
                      expr p,d) = (ulcorner p shifted (-d,+d)) enddef ;
! Missing `=' has been inserted.
<to be read again> 
                   (
l.440 def Enlarged (
                    expr p, d) =
) (/usr/share/texmf/metapost/context/base/mp-core.mp
! Missing `=' has been inserted.
<to be read again> 
                   (
l.23 def box_found (
                    expr n,x,y,w,h,d) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.27 def initialize_box_pos (
                             expr pos,n,x,y,w,h,d) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.45 def freeze_box (
                     expr pos) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.60 def initialize_box (
                         expr n,x,y,w,h,d) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.66 def initialize_area (
                          expr fn,fx,fy,fw,fh,fd,
! Missing `=' has been inserted.
<to be read again> 
                   (
l.76 def do_initialize_area (
                             expr fpos, tpos) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.90 def set_par_line_height (
                              expr ph, pd) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.99 def initialize_par (
                         expr fn,fx,fy,fw,fh,fd,
! Missing `=' has been inserted.
<to be read again> 
                   (
l.119 def initialize_area_par (
                               expr fn,fx,fy,fw,fh,fd,
! Missing `=' has been inserted.
<to be read again> 
                   (
l.143 def do_initialize_par (
                             expr fpos, tpos, mpos, ppos, rw,rl,rr,rh,ra,ri) =
>> (xpart last_multi_par_shift,ypart last_multi_par_shift)
>> origin
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
l.327 ..._shift ; last_multi_par_shift := origin ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   (
l.329 def relocate_multipars (
                              expr xy) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.346 vardef multi_par_at_top (expr i)
                                       =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.368 def save_multipar (
                         expr i, l, p) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.375 def prepare_multi_pars (
                              expr fn,fx,fy,fw,fh,fd,
>> (redpart boxgridcolor,greenpart boxgridcolor,bluepart boxgridcolor)
>> 0.8red
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ;
l.997 ...idcolor     ; boxgridcolor     := .8red ;
                                                  
>> (redpart boxlinecolor,greenpart boxlinecolor,bluepart boxlinecolor)
>> 0.8blue
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ;
l.998 ...ecolor     ; boxlinecolor     := .8blue ;
                                                  
>> (redpart boxfillcolor,greenpart boxfillcolor,bluepart boxfillcolor)
>> 0.8white
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ;
l.999 ...color     ; boxfillcolor     := .8white ;
                                                  
>> (xpart boxgriddirection,ypart boxgriddirection)
>> up
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ;
l.1004 ...griddirection ; boxgriddirection := up ;
                                                  
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1043 def do_show_par (
                        expr p, r, c) =
! Missing `=' has been inserted.
<to be read again> 
                   )
l.1141 vardef do_draw_par (expr p)
                                   =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1165 vardef baseline_grid (expr pxy,
                                       pdir, at_baseline) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1207 vardef graphic_grid (expr pxy,
                                      dx, dy, x, y) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1226 def anchor_box (
                       expr n,x,y,w,h,d) =
>> (redpart SyncColor,greenpart SyncColor,bluepart SyncColor)
>> 0.5white
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ;
ResetSyncTasks->....SyncColor;SyncColor:=0.5white;
                                                  fi;if(SyncLeftOffset=0)and...
l.1251 ResetSyncTasks
                      ;
>> 0
>> (SyncWidth
! Not implemented: (known numeric)and(unknown numeric).
<to be read again> 
                   =
ResetSyncTasks->...SyncLeftOffset=0)and(SyncWidth=
                                                  0):SyncWidth:=if.known.Tex...
l.1251 ResetSyncTasks
                      ;
>> -(SyncWidth+(SyncLeftOffset
! Unknown relation will be considered false.
<to be read again> 
                   =
ResetSyncTasks->...SyncLeftOffset=0)and(SyncWidth=
                                                  0):SyncWidth:=if.known.Tex...
l.1251 ResetSyncTasks
                      ;
>> false
>> 0
! Not implemented: (boolean)=(known numeric).
<to be read again> 
                   :
ResetSyncTasks->...cLeftOffset=0)and(SyncWidth=0):
                                                  SyncWidth:=if.known.TextWi...
l.1251 ResetSyncTasks
                      ;
>> 0
! Undefined condition will be treated as `false'.
<to be read again> 
                   :
ResetSyncTasks->...cLeftOffset=0)and(SyncWidth=0):
                                                  SyncWidth:=if.known.TextWi...
l.1251 ResetSyncTasks
                      ;
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1253 vardef SyncBox(expr n,
                              i, leftoffset, width, topoffset, bottomoffset) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1261 def SetSyncColor(
                        expr n, i, c) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1265 def SetSyncThreshold(
                            expr n, i, th) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1269 vardef TheSyncColor(expr n,
                                   i) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1273 vardef TheSyncThreshold(expr n,
                                       i) =
! Missing `=' has been inserted.
<to be read again> 
                   ,
l.1277 vardef PrepareSyncTasks(expr n,
                                       collapse, extendtop, prestartnext) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1382 def SyncTask(
                    expr n) =
! Missing `=' has been inserted.
<to be read again> 
                   (
l.1392 def ProcessSyncTask(
                           expr p, c) =
)
report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> (
! Isolated expression.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (1); 
! Extra tokens will be flushed.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> clearit
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;
                          clearpen;pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> clearpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;clearpen;
                                   pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> pickup.defaultpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->...y;clearit;clearpen;pickup.defaultpen;
                                                  interim.linecap:=linecap;i...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> (redpart _background_,greenpart _background_,bluepart _background_)
>> background
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ;
resetfig->...background_;_background_:=background;
                                                  save.background;color.back...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> drawoptions()
! Isolated expression.
<to be read again> 
                   ;
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> extra_beginfig
! Not a string.
<to be read again> 
                   ;
<*> beginfig
            (1); 
>> (1)
! Isolated expression.
<to be read again> 
                   ;
<*> beginfig(1);
                 

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> _trial_run_
>> true
! Equation cannot be performed (numeric=boolean).
<to be read again> 
                   ;
<*> _trial_run_ := true ;
                         

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> defaultfont
>> "file:lmroman10-regular*default"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> defaultfont:="file:lmroman10-regular*default";
                                                   defaultscale:=17.0pt/10pt...
>> 0.02011PrintPaperHeight
>> 0.01184PrintPaperHeight
! Not implemented: (unknown numeric)/(unknown numeric).
<to be read again> 
                   ;
<*> ...egular*default"; defaultscale:=17.0pt/10pt;
                                                   defaultfont:="rm-lmtt10";...
>> defaultfont
>> "rm-lmtt10"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> ...ale:=17.0pt/10pt; defaultfont:="rm-lmtt10";
                                                   cmykcolors:=true; spotcol...
>> (redpart OverlayColor,greenpart OverlayColor,bluepart OverlayColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
>> (redpart OverlayLineColor,greenpart OverlayLineColor,bluepart OverlayLineColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> SavedTextAreas[(EXPR0)]
                                                :=TextAreas[(EXPR0)]; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> ...)]:=TextAreas[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  :=TextColumns[(EXPR0)]; EN...
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> (
! Undefined condition will be treated as `false'.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Missing `:' has been inserted.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> origin--
! Isolated expression.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unknown path PlainTextArea
>> mp_vacuous
! Equation cannot be performed (unknown path=mp_vacuous).
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-40],ypart Location[-4][-40])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-4]
>> (xpart Location[-4][-40],ypart Location[-4][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-40],ypart Location[-3][-40])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-3]
>> (xpart Location[-3][-40],ypart Location[-3][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-40],ypart Location[-2][-40])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-2]
>> (xpart Location[-2][-40],ypart Location[-2][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-40],ypart Location[-1][-40])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-1]
>> (xpart Location[-1][-40],ypart Location[-1][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-40],ypart Location0 [-40])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]0
>> (xpart Location0 [-40],ypart Location0 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-40],ypart Location1 [-40])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]1
>> (xpart Location1 [-40],ypart Location1 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-40],ypart Location2 [-40])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]2
>> (xpart Location2 [-40],ypart Location2 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-40],ypart Location3 [-40])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]3
>> (xpart Location3 [-40],ypart Location3 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-40],ypart Location4 [-40])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]4
>> (xpart Location4 [-40],ypart Location4 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-30],ypart Location[-4][-30])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-4]
>> (xpart Location[-4][-30],ypart Location[-4][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-30],ypart Location[-3][-30])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-3]
>> (xpart Location[-3][-30],ypart Location[-3][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-30],ypart Location[-2][-30])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-2]
>> (xpart Location[-2][-30],ypart Location[-2][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-30],ypart Location[-1][-30])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-1]
>> (xpart Location[-1][-30],ypart Location[-1][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-30],ypart Location0 [-30])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]0
>> (xpart Location0 [-30],ypart Location0 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-30],ypart Location1 [-30])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]1
>> (xpart Location1 [-30],ypart Location1 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-30],ypart Location2 [-30])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]2
>> (xpart Location2 [-30],ypart Location2 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-30],ypart Location3 [-30])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]3
>> (xpart Location3 [-30],ypart Location3 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-30],ypart Location4 [-30])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]4
>> (xpart Location4 [-30],ypart Location4 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-20],ypart Location[-4][-20])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-4]
>> (xpart Location[-4][-20],ypart Location[-4][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-20],ypart Location[-3][-20])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-3]
>> (xpart Location[-3][-20],ypart Location[-3][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-20],ypart Location[-2][-20])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-2]
>> (xpart Location[-2][-20],ypart Location[-2][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-20],ypart Location[-1][-20])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-1]
>> (xpart Location[-1][-20],ypart Location[-1][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-20],ypart Location0 [-20])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]0
>> (xpart Location0 [-20],ypart Location0 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-20],ypart Location1 [-20])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]1
>> (xpart Location1 [-20],ypart Location1 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-20],ypart Location2 [-20])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]2
>> (xpart Location2 [-20],ypart Location2 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-20],ypart Location3 [-20])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]3
>> (xpart Location3 [-20],ypart Location3 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-20],ypart Location4 [-20])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]4
>> (xpart Location4 [-20],ypart Location4 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-10],ypart Location[-4][-10])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-4]
>> (xpart Location[-4][-10],ypart Location[-4][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-10],ypart Location[-3][-10])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-3]
>> (xpart Location[-3][-10],ypart Location[-3][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-10],ypart Location[-2][-10])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-2]
>> (xpart Location[-2][-10],ypart Location[-2][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-10],ypart Location[-1][-10])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-1]
>> (xpart Location[-1][-10],ypart Location[-1][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-10],ypart Location0 [-10])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]0
>> (xpart Location0 [-10],ypart Location0 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-10],ypart Location1 [-10])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]1
>> (xpart Location1 [-10],ypart Location1 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-10],ypart Location2 [-10])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]2
>> (xpart Location2 [-10],ypart Location2 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-10],ypart Location3 [-10])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]3
>> (xpart Location3 [-10],ypart Location3 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-10],ypart Location4 [-10])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]4
>> (xpart Location4 [-10],ypart Location4 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]0,ypart Location[-4]0)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-4]
>> (xpart Location[-4]0,ypart Location[-4]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]0,ypart Location[-3]0)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-3]
>> (xpart Location[-3]0,ypart Location[-3]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]0,ypart Location[-2]0)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-2]
>> (xpart Location[-2]0,ypart Location[-2]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]0,ypart Location[-1]0)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-1]
>> (xpart Location[-1]0,ypart Location[-1]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 0,ypart Location0 0)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 0
>> (xpart Location0 0,ypart Location0 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 0,ypart Location1 0)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 1
>> (xpart Location1 0,ypart Location1 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 0,ypart Location2 0)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 2
>> (xpart Location2 0,ypart Location2 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 0,ypart Location3 0)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 3
>> (xpart Location3 0,ypart Location3 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 0,ypart Location4 0)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 4
>> (xpart Location4 0,ypart Location4 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]10,ypart Location[-4]10)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-4]
>> (xpart Location[-4]10,ypart Location[-4]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]10,ypart Location[-3]10)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-3]
>> (xpart Location[-3]10,ypart Location[-3]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]10,ypart Location[-2]10)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-2]
>> (xpart Location[-2]10,ypart Location[-2]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]10,ypart Location[-1]10)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-1]
>> (xpart Location[-1]10,ypart Location[-1]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 10,ypart Location0 10)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 0
>> (xpart Location0 10,ypart Location0 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 10,ypart Location1 10)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 1
>> (xpart Location1 10,ypart Location1 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 10,ypart Location2 10)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 2
>> (xpart Location2 10,ypart Location2 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 10,ypart Location3 10)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 3
>> (xpart Location3 10,ypart Location3 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 10,ypart Location4 10)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 4
>> (xpart Location4 10,ypart Location4 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]20,ypart Location[-4]20)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-4]
>> (xpart Location[-4]20,ypart Location[-4]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]20,ypart Location[-3]20)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-3]
>> (xpart Location[-3]20,ypart Location[-3]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]20,ypart Location[-2]20)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-2]
>> (xpart Location[-2]20,ypart Location[-2]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]20,ypart Location[-1]20)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-1]
>> (xpart Location[-1]20,ypart Location[-1]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 20,ypart Location0 20)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 0
>> (xpart Location0 20,ypart Location0 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 20,ypart Location1 20)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 1
>> (xpart Location1 20,ypart Location1 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 20,ypart Location2 20)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 2
>> (xpart Location2 20,ypart Location2 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 20,ypart Location3 20)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 3
>> (xpart Location3 20,ypart Location3 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 20,ypart Location4 20)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 4
>> (xpart Location4 20,ypart Location4 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]30,ypart Location[-4]30)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-4]
>> (xpart Location[-4]30,ypart Location[-4]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]30,ypart Location[-3]30)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-3]
>> (xpart Location[-3]30,ypart Location[-3]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]30,ypart Location[-2]30)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-2]
>> (xpart Location[-2]30,ypart Location[-2]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]30,ypart Location[-1]30)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-1]
>> (xpart Location[-1]30,ypart Location[-1]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 30,ypart Location0 30)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 0
>> (xpart Location0 30,ypart Location0 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 30,ypart Location1 30)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 1
>> (xpart Location1 30,ypart Location1 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 30,ypart Location2 30)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 2
>> (xpart Location2 30,ypart Location2 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 30,ypart Location3 30)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 3
>> (xpart Location3 30,ypart Location3 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 30,ypart Location4 30)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 4
>> (xpart Location4 30,ypart Location4 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]40,ypart Location[-4]40)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-4]
>> (xpart Location[-4]40,ypart Location[-4]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]40,ypart Location[-3]40)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-3]
>> (xpart Location[-3]40,ypart Location[-3]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]40,ypart Location[-2]40)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-2]
>> (xpart Location[-2]40,ypart Location[-2]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]40,ypart Location[-1]40)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-1]
>> (xpart Location[-1]40,ypart Location[-1]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 40,ypart Location0 40)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 0
>> (xpart Location0 40,ypart Location0 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 40,ypart Location1 40)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 1
>> (xpart Location1 40,ypart Location1 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 40,ypart Location2 40)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 2
>> (xpart Location2 40,ypart Location2 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 40,ypart Location3 40)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 3
>> (xpart Location3 40,ypart Location3 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 40,ypart Location4 40)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 4
>> (xpart Location4 40,ypart Location4 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
SetPageAreas->...square.xscaled.PaperWidth.yscaled
                                                  .PaperHeight;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> PrintPaperWidth
>> 0.75PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Page
>> 0.75PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StartPage->...State;fi;SetPageAreas;BoundPageAreas
                                                  ;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> fill.Page
! Isolated expression.
<to be read again> 
                   withcolor
<*> ...domseed:=4; StartPage ; fill Page withcolor
                                                   (0.8,0.8,0.9) ; fill Fiel...
! Extra tokens will be flushed.
<to be read again> 
                   withcolor
<*> ...domseed:=4; StartPage ; fill Page withcolor
                                                   (0.8,0.8,0.9) ; fill Fiel...
>> (
! Isolated expression.
<to be read again> 
                   (fill.Field0 0)
enlarged->((EXPR0)
                  llmoved(EXPR1)--(EXPR0)lrmoved(EXPR1)--(EXPR0)urmoved(EXPR...
<to be read again> 
                   withcolor
<*> ... Field[Text][Text] enlarged 0.2cm withcolor
                                                   (0.88,0.88,0.88) ; StopPa...
! Extra tokens will be flushed.
<to be read again> 
                   (fill.Field0 0)
enlarged->((EXPR0)
                  llmoved(EXPR1)--(EXPR0)lrmoved(EXPR1)--(EXPR0)urmoved(EXPR...
<to be read again> 
                   withcolor
<*> ... Field[Text][Text] enlarged 0.2cm withcolor
                                                   (0.88,0.88,0.88) ; StopPa...
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StopPage->BoundPageAreas
                        ;
<*> ...0.2cm withcolor (0.88,0.88,0.88) ; StopPage
                                                   ; ;

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> endfig
! Isolated expression.
<to be read again> 
                   ;
<*> endfig ;
            

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> (
! Isolated expression.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (0); 
! Extra tokens will be flushed.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> clearit
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;
                          clearpen;pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> clearpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;clearpen;
                                   pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> pickup.defaultpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->...y;clearit;clearpen;pickup.defaultpen;
                                                  interim.linecap:=linecap;i...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> drawoptions()
! Isolated expression.
<to be read again> 
                   ;
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> extra_beginfig
! Not a string.
<to be read again> 
                   ;
<*> beginfig
            (0); 
>> (0)
! Isolated expression.
<to be read again> 
                   ;
<*> beginfig(0);
                 

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> _trial_run_
>> false
! Equation cannot be performed (numeric=boolean).
<to be read again> 
                   ;
<*> _trial_run_ := false ;
                          

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: (Please type a command or say `end')
report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> defaultfont
>> "file:lmroman10-regular*default"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> defaultfont:="file:lmroman10-regular*default";
                                                   defaultscale:=17.0pt/10pt...
>> 0.02834PrintPaperWidth
>> 0.01666PrintPaperWidth
! Not implemented: (unknown numeric)/(unknown numeric).
<to be read again> 
                   ;
<*> ...egular*default"; defaultscale:=17.0pt/10pt;
                                                   defaultfont:="rm-lmtt10";...
>> defaultfont
>> "rm-lmtt10"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> ...ale:=17.0pt/10pt; defaultfont:="rm-lmtt10";
                                                   cmykcolors:=true; spotcol...
>> (redpart OverlayColor,greenpart OverlayColor,bluepart OverlayColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
>> (redpart OverlayLineColor,greenpart OverlayLineColor,bluepart OverlayLineColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> SavedTextAreas[(EXPR0)]
                                                :=TextAreas[(EXPR0)]; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> ...)]:=TextAreas[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  :=TextColumns[(EXPR0)]; EN...
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> (
! Undefined condition will be treated as `false'.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Missing `:' has been inserted.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> origin--
! Isolated expression.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unknown path PlainTextArea
>> mp_vacuous
! Equation cannot be performed (unknown path=mp_vacuous).
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-40],ypart Location[-4][-40])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-4]
>> (xpart Location[-4][-40],ypart Location[-4][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-40],ypart Location[-3][-40])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-3]
>> (xpart Location[-3][-40],ypart Location[-3][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-40],ypart Location[-2][-40])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-2]
>> (xpart Location[-2][-40],ypart Location[-2][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-40],ypart Location[-1][-40])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40][-1]
>> (xpart Location[-1][-40],ypart Location[-1][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-40],ypart Location0 [-40])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]0
>> (xpart Location0 [-40],ypart Location0 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-40],ypart Location1 [-40])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]1
>> (xpart Location1 [-40],ypart Location1 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-40],ypart Location2 [-40])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]2
>> (xpart Location2 [-40],ypart Location2 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-40],ypart Location3 [-40])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]3
>> (xpart Location3 [-40],ypart Location3 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-40],ypart Location4 [-40])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-40]4
>> (xpart Location4 [-40],ypart Location4 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-30],ypart Location[-4][-30])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-4]
>> (xpart Location[-4][-30],ypart Location[-4][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-30],ypart Location[-3][-30])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-3]
>> (xpart Location[-3][-30],ypart Location[-3][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-30],ypart Location[-2][-30])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-2]
>> (xpart Location[-2][-30],ypart Location[-2][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-30],ypart Location[-1][-30])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30][-1]
>> (xpart Location[-1][-30],ypart Location[-1][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-30],ypart Location0 [-30])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]0
>> (xpart Location0 [-30],ypart Location0 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-30],ypart Location1 [-30])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]1
>> (xpart Location1 [-30],ypart Location1 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-30],ypart Location2 [-30])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]2
>> (xpart Location2 [-30],ypart Location2 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-30],ypart Location3 [-30])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]3
>> (xpart Location3 [-30],ypart Location3 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-30],ypart Location4 [-30])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-30]4
>> (xpart Location4 [-30],ypart Location4 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-20],ypart Location[-4][-20])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-4]
>> (xpart Location[-4][-20],ypart Location[-4][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-20],ypart Location[-3][-20])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-3]
>> (xpart Location[-3][-20],ypart Location[-3][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-20],ypart Location[-2][-20])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-2]
>> (xpart Location[-2][-20],ypart Location[-2][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-20],ypart Location[-1][-20])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20][-1]
>> (xpart Location[-1][-20],ypart Location[-1][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-20],ypart Location0 [-20])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]0
>> (xpart Location0 [-20],ypart Location0 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-20],ypart Location1 [-20])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]1
>> (xpart Location1 [-20],ypart Location1 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-20],ypart Location2 [-20])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]2
>> (xpart Location2 [-20],ypart Location2 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-20],ypart Location3 [-20])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]3
>> (xpart Location3 [-20],ypart Location3 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-20],ypart Location4 [-20])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-20]4
>> (xpart Location4 [-20],ypart Location4 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4][-10],ypart Location[-4][-10])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-4]
>> (xpart Location[-4][-10],ypart Location[-4][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3][-10],ypart Location[-3][-10])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-3]
>> (xpart Location[-3][-10],ypart Location[-3][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2][-10],ypart Location[-2][-10])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-2]
>> (xpart Location[-2][-10],ypart Location[-2][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1][-10],ypart Location[-1][-10])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10][-1]
>> (xpart Location[-1][-10],ypart Location[-1][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 [-10],ypart Location0 [-10])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]0
>> (xpart Location0 [-10],ypart Location0 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 [-10],ypart Location1 [-10])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]1
>> (xpart Location1 [-10],ypart Location1 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 [-10],ypart Location2 [-10])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]2
>> (xpart Location2 [-10],ypart Location2 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 [-10],ypart Location3 [-10])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]3
>> (xpart Location3 [-10],ypart Location3 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 [-10],ypart Location4 [-10])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-10]4
>> (xpart Location4 [-10],ypart Location4 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]0,ypart Location[-4]0)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-4]
>> (xpart Location[-4]0,ypart Location[-4]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]0,ypart Location[-3]0)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-3]
>> (xpart Location[-3]0,ypart Location[-3]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]0,ypart Location[-2]0)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-2]
>> (xpart Location[-2]0,ypart Location[-2]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]0,ypart Location[-1]0)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 [-1]
>> (xpart Location[-1]0,ypart Location[-1]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 0,ypart Location0 0)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 0
>> (xpart Location0 0,ypart Location0 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 0,ypart Location1 0)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 1
>> (xpart Location1 0,ypart Location1 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 0,ypart Location2 0)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 2
>> (xpart Location2 0,ypart Location2 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 0,ypart Location3 0)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 3
>> (xpart Location3 0,ypart Location3 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 0,ypart Location4 0)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 4
>> (xpart Location4 0,ypart Location4 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]10,ypart Location[-4]10)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-4]
>> (xpart Location[-4]10,ypart Location[-4]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]10,ypart Location[-3]10)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-3]
>> (xpart Location[-3]10,ypart Location[-3]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]10,ypart Location[-2]10)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-2]
>> (xpart Location[-2]10,ypart Location[-2]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]10,ypart Location[-1]10)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 [-1]
>> (xpart Location[-1]10,ypart Location[-1]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 10,ypart Location0 10)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 0
>> (xpart Location0 10,ypart Location0 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 10,ypart Location1 10)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 1
>> (xpart Location1 10,ypart Location1 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 10,ypart Location2 10)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 2
>> (xpart Location2 10,ypart Location2 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 10,ypart Location3 10)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 3
>> (xpart Location3 10,ypart Location3 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 10,ypart Location4 10)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area10 4
>> (xpart Location4 10,ypart Location4 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]20,ypart Location[-4]20)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-4]
>> (xpart Location[-4]20,ypart Location[-4]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]20,ypart Location[-3]20)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-3]
>> (xpart Location[-3]20,ypart Location[-3]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]20,ypart Location[-2]20)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-2]
>> (xpart Location[-2]20,ypart Location[-2]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]20,ypart Location[-1]20)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 [-1]
>> (xpart Location[-1]20,ypart Location[-1]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 20,ypart Location0 20)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 0
>> (xpart Location0 20,ypart Location0 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 20,ypart Location1 20)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 1
>> (xpart Location1 20,ypart Location1 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 20,ypart Location2 20)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 2
>> (xpart Location2 20,ypart Location2 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 20,ypart Location3 20)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 3
>> (xpart Location3 20,ypart Location3 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 20,ypart Location4 20)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area20 4
>> (xpart Location4 20,ypart Location4 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]30,ypart Location[-4]30)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-4]
>> (xpart Location[-4]30,ypart Location[-4]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]30,ypart Location[-3]30)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-3]
>> (xpart Location[-3]30,ypart Location[-3]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]30,ypart Location[-2]30)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-2]
>> (xpart Location[-2]30,ypart Location[-2]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]30,ypart Location[-1]30)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 [-1]
>> (xpart Location[-1]30,ypart Location[-1]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 30,ypart Location0 30)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 0
>> (xpart Location0 30,ypart Location0 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 30,ypart Location1 30)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 1
>> (xpart Location1 30,ypart Location1 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 30,ypart Location2 30)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 2
>> (xpart Location2 30,ypart Location2 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 30,ypart Location3 30)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 3
>> (xpart Location3 30,ypart Location3 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 30,ypart Location4 30)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area30 4
>> (xpart Location4 30,ypart Location4 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-4]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-4]40,ypart Location[-4]40)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-4]
>> (xpart Location[-4]40,ypart Location[-4]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-4]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-4]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-3]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-3]40,ypart Location[-3]40)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-3]
>> (xpart Location[-3]40,ypart Location[-3]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-3]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-3]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-2]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-2]40,ypart Location[-2]40)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-2]
>> (xpart Location[-2]40,ypart Location[-2]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-2]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-2]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area[-1]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location[-1]40,ypart Location[-1]40)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 [-1]
>> (xpart Location[-1]40,ypart Location[-1]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location[-1]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location[-1]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area0 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location0 40,ypart Location0 40)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 0
>> (xpart Location0 40,ypart Location0 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location0 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location0 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area1 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location1 40,ypart Location1 40)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 1
>> (xpart Location1 40,ypart Location1 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location1 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location1 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area2 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location2 40,ypart Location2 40)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 2
>> (xpart Location2 40,ypart Location2 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location2 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location2 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area3 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location3 40,ypart Location3 40)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 3
>> (xpart Location3 40,ypart Location3 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location3 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location3 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area4 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> (xpart Location4 40,ypart Location4 40)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Area40 4
>> (xpart Location4 40,ypart Location4 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> xpart Location4 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> ypart Location4 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unitsquare
>> PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
SetPageAreas->...square.xscaled.PaperWidth.yscaled
                                                  .PaperHeight;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> PrintPaperWidth
>> 0.75PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> unknown path Page
>> 0.75PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StartPage->...State;fi;SetPageAreas;BoundPageAreas
                                                  ;
<*> ..._par_area:=false; ;randomseed:=4; StartPage
                                                   ; fill Page withcolor (0....
>> fill.Page
! Isolated expression.
<to be read again> 
                   withcolor
<*> ...domseed:=4; StartPage ; fill Page withcolor
                                                   (0.8,0.8,0.9) ; fill Fiel...
! Extra tokens will be flushed.
<to be read again> 
                   withcolor
<*> ...domseed:=4; StartPage ; fill Page withcolor
                                                   (0.8,0.8,0.9) ; fill Fiel...
>> (
! Isolated expression.
<to be read again> 
                   (fill.Field0 0)
enlarged->((EXPR0)
                  llmoved(EXPR1)--(EXPR0)lrmoved(EXPR1)--(EXPR0)urmoved(EXPR...
<to be read again> 
                   withcolor
<*> ... Field[Text][Text] enlarged 0.2cm withcolor
                                                   (0.88,0.88,0.88) ; StopPa...
! Extra tokens will be flushed.
<to be read again> 
                   (fill.Field0 0)
enlarged->((EXPR0)
                  llmoved(EXPR1)--(EXPR0)lrmoved(EXPR1)--(EXPR0)urmoved(EXPR...
<to be read again> 
                   withcolor
<*> ... Field[Text][Text] enlarged 0.2cm withcolor
                                                   (0.88,0.88,0.88) ; StopPa...
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StopPage->BoundPageAreas
                        ;
<*> ...0.2cm withcolor (0.88,0.88,0.88) ; StopPage
                                                   ; ;

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> endfig
! Isolated expression.
<to be read again> 
                   ;
<*> endfig ;
            

report >> mp error: unknown, no error, terminal or log messages [1.1]
report >> mp terminal: 
report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> (
! Isolated expression.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (1); 
! Extra tokens will be flushed.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> clearit
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;
                          clearpen;pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> clearpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;clearpen;
                                   pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> pickup.defaultpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->...y;clearit;clearpen;pickup.defaultpen;
                                                  interim.linecap:=linecap;i...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> drawoptions()
! Isolated expression.
<to be read again> 
                   ;
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (1); 
>> extra_beginfig
! Not a string.
<to be read again> 
                   ;
<*> beginfig
            (1); 
>> (1)
! Isolated expression.
<to be read again> 
                   ;
<*> beginfig(1);
                 

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> _trial_run_
>> true
! Equation cannot be performed (numeric=boolean).
<to be read again> 
                   ;
<*> _trial_run_ := true ;
                         

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> defaultfont
>> "file:lmroman10-regular*default"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> defaultfont:="file:lmroman10-regular*default";
                                                   defaultscale:=17.0pt/10pt...
>> 0.02834PrintPaperWidth
>> 0.01666PrintPaperWidth
! Not implemented: (unknown numeric)/(unknown numeric).
<to be read again> 
                   ;
<*> ...egular*default"; defaultscale:=17.0pt/10pt;
                                                   defaultfont:="rm-lmtt10";...
>> defaultfont
>> "rm-lmtt10"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> ...ale:=17.0pt/10pt; defaultfont:="rm-lmtt10";
                                                   cmykcolors:=true; spotcol...
>> (redpart OverlayColor,greenpart OverlayColor,bluepart OverlayColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
>> (redpart OverlayLineColor,greenpart OverlayLineColor,bluepart OverlayLineColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> SavedTextAreas[(EXPR0)]
                                                :=TextAreas[(EXPR0)]; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> ...)]:=TextAreas[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  :=TextColumns[(EXPR0)]; EN...
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> (
! Undefined condition will be treated as `false'.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Missing `:' has been inserted.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> origin--
! Isolated expression.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unknown path PlainTextArea
>> mp_vacuous
! Equation cannot be performed (unknown path=mp_vacuous).
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-40],ypart Location[-4][-40])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-4]
>> (xpart Location[-4][-40],ypart Location[-4][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-40],ypart Location[-3][-40])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-3]
>> (xpart Location[-3][-40],ypart Location[-3][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-40],ypart Location[-2][-40])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-2]
>> (xpart Location[-2][-40],ypart Location[-2][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-40],ypart Location[-1][-40])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-1]
>> (xpart Location[-1][-40],ypart Location[-1][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-40],ypart Location0 [-40])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]0
>> (xpart Location0 [-40],ypart Location0 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-40],ypart Location1 [-40])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]1
>> (xpart Location1 [-40],ypart Location1 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-40],ypart Location2 [-40])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]2
>> (xpart Location2 [-40],ypart Location2 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-40],ypart Location3 [-40])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]3
>> (xpart Location3 [-40],ypart Location3 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-40],ypart Location4 [-40])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]4
>> (xpart Location4 [-40],ypart Location4 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-30],ypart Location[-4][-30])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-4]
>> (xpart Location[-4][-30],ypart Location[-4][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-30],ypart Location[-3][-30])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-3]
>> (xpart Location[-3][-30],ypart Location[-3][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-30],ypart Location[-2][-30])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-2]
>> (xpart Location[-2][-30],ypart Location[-2][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-30],ypart Location[-1][-30])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-1]
>> (xpart Location[-1][-30],ypart Location[-1][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-30],ypart Location0 [-30])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]0
>> (xpart Location0 [-30],ypart Location0 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-30],ypart Location1 [-30])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]1
>> (xpart Location1 [-30],ypart Location1 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-30],ypart Location2 [-30])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]2
>> (xpart Location2 [-30],ypart Location2 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-30],ypart Location3 [-30])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]3
>> (xpart Location3 [-30],ypart Location3 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-30],ypart Location4 [-30])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]4
>> (xpart Location4 [-30],ypart Location4 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-20],ypart Location[-4][-20])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-4]
>> (xpart Location[-4][-20],ypart Location[-4][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-20],ypart Location[-3][-20])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-3]
>> (xpart Location[-3][-20],ypart Location[-3][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-20],ypart Location[-2][-20])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-2]
>> (xpart Location[-2][-20],ypart Location[-2][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-20],ypart Location[-1][-20])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-1]
>> (xpart Location[-1][-20],ypart Location[-1][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-20],ypart Location0 [-20])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]0
>> (xpart Location0 [-20],ypart Location0 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-20],ypart Location1 [-20])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]1
>> (xpart Location1 [-20],ypart Location1 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-20],ypart Location2 [-20])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]2
>> (xpart Location2 [-20],ypart Location2 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-20],ypart Location3 [-20])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]3
>> (xpart Location3 [-20],ypart Location3 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-20],ypart Location4 [-20])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]4
>> (xpart Location4 [-20],ypart Location4 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-10],ypart Location[-4][-10])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-4]
>> (xpart Location[-4][-10],ypart Location[-4][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-10],ypart Location[-3][-10])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-3]
>> (xpart Location[-3][-10],ypart Location[-3][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-10],ypart Location[-2][-10])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-2]
>> (xpart Location[-2][-10],ypart Location[-2][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-10],ypart Location[-1][-10])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-1]
>> (xpart Location[-1][-10],ypart Location[-1][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-10],ypart Location0 [-10])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]0
>> (xpart Location0 [-10],ypart Location0 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-10],ypart Location1 [-10])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]1
>> (xpart Location1 [-10],ypart Location1 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-10],ypart Location2 [-10])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]2
>> (xpart Location2 [-10],ypart Location2 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-10],ypart Location3 [-10])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]3
>> (xpart Location3 [-10],ypart Location3 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-10],ypart Location4 [-10])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]4
>> (xpart Location4 [-10],ypart Location4 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]0,ypart Location[-4]0)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-4]
>> (xpart Location[-4]0,ypart Location[-4]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]0,ypart Location[-3]0)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-3]
>> (xpart Location[-3]0,ypart Location[-3]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]0,ypart Location[-2]0)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-2]
>> (xpart Location[-2]0,ypart Location[-2]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]0,ypart Location[-1]0)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-1]
>> (xpart Location[-1]0,ypart Location[-1]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 0,ypart Location0 0)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 0
>> (xpart Location0 0,ypart Location0 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 0,ypart Location1 0)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 1
>> (xpart Location1 0,ypart Location1 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 0,ypart Location2 0)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 2
>> (xpart Location2 0,ypart Location2 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 0,ypart Location3 0)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 3
>> (xpart Location3 0,ypart Location3 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 0,ypart Location4 0)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 4
>> (xpart Location4 0,ypart Location4 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]10,ypart Location[-4]10)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-4]
>> (xpart Location[-4]10,ypart Location[-4]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]10,ypart Location[-3]10)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-3]
>> (xpart Location[-3]10,ypart Location[-3]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]10,ypart Location[-2]10)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-2]
>> (xpart Location[-2]10,ypart Location[-2]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]10,ypart Location[-1]10)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-1]
>> (xpart Location[-1]10,ypart Location[-1]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 10,ypart Location0 10)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 0
>> (xpart Location0 10,ypart Location0 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 10,ypart Location1 10)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 1
>> (xpart Location1 10,ypart Location1 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 10,ypart Location2 10)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 2
>> (xpart Location2 10,ypart Location2 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 10,ypart Location3 10)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 3
>> (xpart Location3 10,ypart Location3 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 10,ypart Location4 10)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 4
>> (xpart Location4 10,ypart Location4 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]20,ypart Location[-4]20)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-4]
>> (xpart Location[-4]20,ypart Location[-4]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]20,ypart Location[-3]20)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-3]
>> (xpart Location[-3]20,ypart Location[-3]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]20,ypart Location[-2]20)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-2]
>> (xpart Location[-2]20,ypart Location[-2]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]20,ypart Location[-1]20)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-1]
>> (xpart Location[-1]20,ypart Location[-1]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 20,ypart Location0 20)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 0
>> (xpart Location0 20,ypart Location0 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 20,ypart Location1 20)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 1
>> (xpart Location1 20,ypart Location1 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 20,ypart Location2 20)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 2
>> (xpart Location2 20,ypart Location2 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 20,ypart Location3 20)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 3
>> (xpart Location3 20,ypart Location3 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 20,ypart Location4 20)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 4
>> (xpart Location4 20,ypart Location4 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]30,ypart Location[-4]30)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-4]
>> (xpart Location[-4]30,ypart Location[-4]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]30,ypart Location[-3]30)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-3]
>> (xpart Location[-3]30,ypart Location[-3]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]30,ypart Location[-2]30)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-2]
>> (xpart Location[-2]30,ypart Location[-2]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]30,ypart Location[-1]30)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-1]
>> (xpart Location[-1]30,ypart Location[-1]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 30,ypart Location0 30)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 0
>> (xpart Location0 30,ypart Location0 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 30,ypart Location1 30)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 1
>> (xpart Location1 30,ypart Location1 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 30,ypart Location2 30)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 2
>> (xpart Location2 30,ypart Location2 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 30,ypart Location3 30)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 3
>> (xpart Location3 30,ypart Location3 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 30,ypart Location4 30)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 4
>> (xpart Location4 30,ypart Location4 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]40,ypart Location[-4]40)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-4]
>> (xpart Location[-4]40,ypart Location[-4]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]40,ypart Location[-3]40)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-3]
>> (xpart Location[-3]40,ypart Location[-3]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]40,ypart Location[-2]40)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-2]
>> (xpart Location[-2]40,ypart Location[-2]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]40,ypart Location[-1]40)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-1]
>> (xpart Location[-1]40,ypart Location[-1]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 40,ypart Location0 40)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 0
>> (xpart Location0 40,ypart Location0 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 40,ypart Location1 40)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 1
>> (xpart Location1 40,ypart Location1 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 40,ypart Location2 40)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 2
>> (xpart Location2 40,ypart Location2 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 40,ypart Location3 40)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 3
>> (xpart Location3 40,ypart Location3 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 40,ypart Location4 40)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 4
>> (xpart Location4 40,ypart Location4 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
SetPageAreas->...square.xscaled.PaperWidth.yscaled
                                                  .PaperHeight;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> PrintPaperWidth
>> 0.75PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Page
>> 0.75PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StartPage->...State;fi;SetPageAreas;BoundPageAreas
                                                  ;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown picture Left
>> textext(
! Equation cannot be performed (unknown picture=numeric).
<to be read again> 
                   "\TaspresentSometxtLeft {2}"
<*> ...eft := textext("\TaspresentSometxtLeft {2}"
                                                  ) ysized 6cm; Right := tex...
! Extra tokens will be flushed.
<to be read again> 
                   "\TaspresentSometxtLeft {2}"
<*> ...eft := textext("\TaspresentSometxtLeft {2}"
                                                  ) ysized 6cm; Right := tex...
>> unknown picture Right
>> textext(
! Equation cannot be performed (unknown picture=numeric).
<to be read again> 
                   "\TaspresentSometxtRight {2}"
<*> ...ht := textext("\TaspresentSometxtRight {2}"
                                                  ) ysized 6cm; save LeftBox...
! Extra tokens will be flushed.
<to be read again> 
                   "\TaspresentSometxtRight {2}"
<*> ...ht := textext("\TaspresentSometxtRight {2}"
                                                  ) ysized 6cm; save LeftBox...
>> unknown picture Left
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   ,
<*> ...ox := llcorner Left -- split[llcorner Left,
                                                   lrcorner Left] -- split[u...
>> unknown picture Left
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
>> unknown picture Left
! Not implemented: (unknown picture)-(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> Left--split
>> unknown picture Left
! Not implemented: (unknown numeric)*(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
>> unknown picture Left
! Not implemented: (unknown picture)+(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
>> unknown path LeftBox
>> unknown picture Left
! Equation cannot be performed (unknown path=unknown picture).
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
! Extra tokens will be flushed.
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
>> unknown picture Right
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   ,
<*> ... := lrcorner Right -- split[lrcorner Right,
                                                   llcorner Right] -- split[...
>> unknown picture Right
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
>> unknown picture Right
! Not implemented: (unknown picture)-(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> Right--split
>> unknown picture Right
! Not implemented: (unknown numeric)*(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
>> unknown picture Right
! Not implemented: (unknown picture)+(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
>> unknown path RightBox
>> unknown picture Right
! Equation cannot be performed (unknown path=unknown picture).
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
! Extra tokens will be flushed.
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
! Variable Left is the wrong type (unknown picture).
<to be read again> 
                   ;
<*> ...lcorner Right] ; fi; clip Left to LeftBox ;
                                                   clip Right to RightBox ; ...
! Variable Right is the wrong type (unknown picture).
<to be read again> 
                   ;
<*> ... Left to LeftBox ; clip Right to RightBox ;
                                                   save corner; pair corner ...
>> (0.2cm
! Improper transformation argument.
<to be read again> 
                   ,
<*> ...= lrcorner Field[Text][Text] shifted (.2cm,
                                                  -1cm) ; labeloffset := 0bp...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...= lrcorner Field[Text][Text] shifted (.2cm,
                                                  -1cm) ; labeloffset := 0bp...
>> label.ulft(Left
! Isolated expression.
<to be read again> 
                   ,
<*> ...1cm) ; labeloffset := 0bp; label.ulft(Left,
                                                   corner) ; label.urt (Righ...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...1cm) ; labeloffset := 0bp; label.ulft(Left,
                                                   corner) ; label.urt (Righ...
>> label.urt(Right
! Isolated expression.
<to be read again> 
                   ,
<*> ...abel.ulft(Left, corner) ; label.urt (Right,
                                                   corner) ; StopPage ; ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...abel.ulft(Left, corner) ; label.urt (Right,
                                                   corner) ; StopPage ; ;
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StopPage->BoundPageAreas
                        ;
<*> ...ner) ; label.urt (Right, corner) ; StopPage
                                                   ; ;

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> endfig
! Isolated expression.
<to be read again> 
                   ;
<*> endfig ;
            

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> (
! Isolated expression.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (0); 
! Extra tokens will be flushed.
<to be read again> 
                   expr
beginfig->(expr
               .c)=begingroup.charcode:=c;resetfig;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> clearit
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;
                          clearpen;pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> clearpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->clearxy;clearit;clearpen;
                                   pickup.defaultpen;interim.linecap:=lineca...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> pickup.defaultpen
! Isolated expression.
<to be read again> 
                   ;
resetfig->...y;clearit;clearpen;pickup.defaultpen;
                                                  interim.linecap:=linecap;i...
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> drawoptions()
! Isolated expression.
<to be read again> 
                   ;
beginfig->(expr.c)=begingroup.charcode:=c;resetfig
                                                  ;scantokens.extra_beginfig;
<*> beginfig
            (0); 
>> extra_beginfig
! Not a string.
<to be read again> 
                   ;
<*> beginfig
            (0); 
>> (0)
! Isolated expression.
<to be read again> 
                   ;
<*> beginfig(0);
                 

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> _trial_run_
>> false
! Equation cannot be performed (numeric=boolean).
<to be read again> 
                   ;
<*> _trial_run_ := false ;
                          

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: (Please type a command or say `end')
report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> defaultfont
>> "file:lmroman10-regular*default"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> defaultfont:="file:lmroman10-regular*default";
                                                   defaultscale:=17.0pt/10pt...
>> 0.02834PrintPaperWidth
>> 0.01666PrintPaperWidth
! Not implemented: (unknown numeric)/(unknown numeric).
<to be read again> 
                   ;
<*> ...egular*default"; defaultscale:=17.0pt/10pt;
                                                   defaultfont:="rm-lmtt10";...
>> defaultfont
>> "rm-lmtt10"
! Equation cannot be performed (numeric=string).
<to be read again> 
                   ;
<*> ...ale:=17.0pt/10pt; defaultfont:="rm-lmtt10";
                                                   cmykcolors:=true; spotcol...
>> (redpart OverlayColor,greenpart OverlayColor,bluepart OverlayColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ... OverlayDepth:=450.0pt  ; OverlayColor:=(0,
                                                  0,0); OverlayLineWidth:=0....
>> (redpart OverlayLineColor,greenpart OverlayLineColor,bluepart OverlayLineColor)
>> (0
! Equation cannot be performed (color=numeric).
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...layLineWidth:=0.0pt ; OverlayLineColor:=(0,
                                                  0,0); BaseLineSkip:=21.134...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...umnWidth:=486.189pt; enddef; ResetTextAreas
                                                  ; ; SaveTextAreas; ResetTe...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> SavedTextAreas[(EXPR0)]
                                                :=TextAreas[(EXPR0)]; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextAreas
! Improper subscript has been replaced by zero.
<for(upto.NOfTextAreas)> ...)]:=TextAreas[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...extAreas[i]:=TextAreas[i];endfor
                                                  ;for.i=1upto.NOfTextColumn...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  :=TextColumns[(EXPR0)]; EN...
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> upto.NOfTextColumns
! Improper subscript has been replaced by zero.
<for(upto.NOfTextColumns)> ...TextColumns[(EXPR0)]
                                                  ; ENDFOR
SaveTextAreas->...olumns[i]:=TextColumns[i];endfor
                                                  ;NOfSavedTextAreas:=NOfTex...
<*> ...pt; enddef; ResetTextAreas; ; SaveTextAreas
                                                  ; ResetTextAreas; ; ; Plai...
>> unknown path TextColumns0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> unknown path TextAreas0
>> origin--
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
ResetTextAreas->...:=TextColumns[0]:=origin--cycle
                                                  ;
<*> ...tTextAreas; ; SaveTextAreas; ResetTextAreas
                                                  ; ; ; PlainTextArea:=bound...
>> (
! Undefined condition will be treated as `false'.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Missing `:' has been inserted.
<to be read again> 
                   path
boundingbox->begingroup.if(path
                               (EXPR2))or(picture(EXPR2)):llcorner(EXPR2)--l...
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> origin--
! Isolated expression.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   cycle
boundingbox->...corner(EXPR2)else:origin.fi--cycle
                                                  .endgroup
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unknown path PlainTextArea
>> mp_vacuous
! Equation cannot be performed (unknown path=mp_vacuous).
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...xtAreas; ; ; PlainTextArea:=boundingbox((0,
                                                  0)--(0,0) shifted (0pt,0pt...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-40],ypart Location[-4][-40])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-4]
>> (xpart Location[-4][-40],ypart Location[-4][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-40],ypart Location[-3][-40])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-3]
>> (xpart Location[-3][-40],ypart Location[-3][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-40],ypart Location[-2][-40])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-2]
>> (xpart Location[-2][-40],ypart Location[-2][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-40],ypart Location[-1][-40])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40][-1]
>> (xpart Location[-1][-40],ypart Location[-1][-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-40],ypart Location0 [-40])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]0
>> (xpart Location0 [-40],ypart Location0 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-40],ypart Location1 [-40])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]1
>> (xpart Location1 [-40],ypart Location1 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-40],ypart Location2 [-40])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]2
>> (xpart Location2 [-40],ypart Location2 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-40],ypart Location3 [-40])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]3
>> (xpart Location3 [-40],ypart Location3 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-40)];Area[(-40)][...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-40]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-40)];
                                                  Area[(-40)][(EXPR0)]:=Area...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-40],ypart Location4 [-40])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-40)]);Location[(-4...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-40]4
>> (xpart Location4 [-40],ypart Location4 [-40])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-40]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-40]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-40)]shifted.Location[(EXPR0)][(-40)];
                                                  Field[(-40)][(EXPR0)]:=Fie...
<for(-40)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-30],ypart Location[-4][-30])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-4]
>> (xpart Location[-4][-30],ypart Location[-4][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-30],ypart Location[-3][-30])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-3]
>> (xpart Location[-3][-30],ypart Location[-3][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-30],ypart Location[-2][-30])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-2]
>> (xpart Location[-2][-30],ypart Location[-2][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-30],ypart Location[-1][-30])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30][-1]
>> (xpart Location[-1][-30],ypart Location[-1][-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-30],ypart Location0 [-30])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]0
>> (xpart Location0 [-30],ypart Location0 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-30],ypart Location1 [-30])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]1
>> (xpart Location1 [-30],ypart Location1 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-30],ypart Location2 [-30])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]2
>> (xpart Location2 [-30],ypart Location2 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-30],ypart Location3 [-30])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]3
>> (xpart Location3 [-30],ypart Location3 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-30)];Area[(-30)][...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-30]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-30)];
                                                  Area[(-30)][(EXPR0)]:=Area...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-30],ypart Location4 [-30])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-30)]);Location[(-3...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-30]4
>> (xpart Location4 [-30],ypart Location4 [-30])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-30]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-30]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-30)]shifted.Location[(EXPR0)][(-30)];
                                                  Field[(-30)][(EXPR0)]:=Fie...
<for(-30)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-20],ypart Location[-4][-20])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-4]
>> (xpart Location[-4][-20],ypart Location[-4][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-20],ypart Location[-3][-20])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-3]
>> (xpart Location[-3][-20],ypart Location[-3][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-20],ypart Location[-2][-20])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-2]
>> (xpart Location[-2][-20],ypart Location[-2][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-20],ypart Location[-1][-20])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20][-1]
>> (xpart Location[-1][-20],ypart Location[-1][-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-20],ypart Location0 [-20])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]0
>> (xpart Location0 [-20],ypart Location0 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-20],ypart Location1 [-20])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]1
>> (xpart Location1 [-20],ypart Location1 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.08536PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-20],ypart Location2 [-20])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]2
>> (xpart Location2 [-20],ypart Location2 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-20],ypart Location3 [-20])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]3
>> (xpart Location3 [-20],ypart Location3 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-20)];Area[(-20)][...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.08536PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-20]
>> 0.08536PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-20)];
                                                  Area[(-20)][(EXPR0)]:=Area...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-20],ypart Location4 [-20])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-20)]);Location[(-2...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-20]4
>> (xpart Location4 [-20],ypart Location4 [-20])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-20]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-20]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-20)]shifted.Location[(EXPR0)][(-20)];
                                                  Field[(-20)][(EXPR0)]:=Fie...
<for(-20)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4][-10],ypart Location[-4][-10])
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-4]
>> (xpart Location[-4][-10],ypart Location[-4][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3][-10],ypart Location[-3][-10])
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-3]
>> (xpart Location[-3][-10],ypart Location[-3][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2][-10],ypart Location[-2][-10])
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-2]
>> (xpart Location[-2][-10],ypart Location[-2][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1][-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...d.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1][-10],ypart Location[-1][-10])
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10][-1]
>> (xpart Location[-1][-10],ypart Location[-1][-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1][-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1][-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 [-10],ypart Location0 [-10])
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]0
>> (xpart Location0 [-10],ypart Location0 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 [-10],ypart Location1 [-10])
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]1
>> (xpart Location1 [-10],ypart Location1 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 [-10],ypart Location2 [-10])
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]2
>> (xpart Location2 [-10],ypart Location2 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 [-10],ypart Location3 [-10])
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]3
>> (xpart Location3 [-10],ypart Location3 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(-10)];Area[(-10)][...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 [-10]
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(-10)];
                                                  Area[(-10)][(EXPR0)]:=Area...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 [-10],ypart Location4 [-10])
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...tion[(EXPR0)][(-10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(-10)]);Location[(-1...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-10]4
>> (xpart Location4 [-10],ypart Location4 [-10])
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 [-10]
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 [-10]
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...-10)]shifted.Location[(EXPR0)][(-10)];
                                                  Field[(-10)][(EXPR0)]:=Fie...
<for(-10)> ...rPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]0,ypart Location[-4]0)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-4]
>> (xpart Location[-4]0,ypart Location[-4]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]0,ypart Location[-3]0)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-3]
>> (xpart Location[-3]0,ypart Location[-3]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]0,ypart Location[-2]0)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-2]
>> (xpart Location[-2]0,ypart Location[-2]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]0,ypart Location[-1]0)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...ation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 [-1]
>> (xpart Location[-1]0,ypart Location[-1]0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 0,ypart Location0 0)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 0
>> (xpart Location0 0,ypart Location0 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 0,ypart Location1 0)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 1
>> (xpart Location1 0,ypart Location1 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0.58876PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 0,ypart Location2 0)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 2
>> (xpart Location2 0,ypart Location2 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 0,ypart Location3 0)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 3
>> (xpart Location3 0,ypart Location3 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(0)];Area[(0)][(EXP...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0.58876PrintPaperWidth
! Not implemented: (known numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 0
>> 0.58876PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...aled.Hsize[(EXPR0)]yscaled.Vsize[(0)];
                                                  Area[(0)][(EXPR0)]:=Area[(...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 0,ypart Location4 0)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...cation[(EXPR0)][(0)]:=(Hstep[(EXPR0)],
                                                  Vstep[(0)]);Location[(0)][...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 4
>> (xpart Location4 0,ypart Location4 0)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 0
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 0
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...)][(0)]shifted.Location[(EXPR0)][(0)];
                                                  Field[(0)][(EXPR0)]:=Field...
<for(0)> ...HorPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]10,ypart Location[-4]10)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-4]
>> (xpart Location[-4]10,ypart Location[-4]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]10,ypart Location[-3]10)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-3]
>> (xpart Location[-3]10,ypart Location[-3]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]10,ypart Location[-2]10)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-2]
>> (xpart Location[-2]10,ypart Location[-2]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]10,ypart Location[-1]10)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 [-1]
>> (xpart Location[-1]10,ypart Location[-1]10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 10,ypart Location0 10)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 0
>> (xpart Location0 10,ypart Location0 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 10,ypart Location1 10)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 1
>> (xpart Location1 10,ypart Location1 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 10,ypart Location2 10)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 2
>> (xpart Location2 10,ypart Location2 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 10,ypart Location3 10)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 3
>> (xpart Location3 10,ypart Location3 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(10)];Area[(10)][(E...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 10
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(10)];
                                                  Area[(10)][(EXPR0)]:=Area[...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 10,ypart Location4 10)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(10)]:=(Hstep[(EXPR0)],
                                                  Vstep[(10)]);Location[(10)...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area10 4
>> (xpart Location4 10,ypart Location4 10)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 10
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 10
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(10)]shifted.Location[(EXPR0)][(10)];
                                                  Field[(10)][(EXPR0)]:=Fiel...
<for(10)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]20,ypart Location[-4]20)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-4]
>> (xpart Location[-4]20,ypart Location[-4]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]20,ypart Location[-3]20)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-3]
>> (xpart Location[-3]20,ypart Location[-3]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]20,ypart Location[-2]20)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-2]
>> (xpart Location[-2]20,ypart Location[-2]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]20,ypart Location[-1]20)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 [-1]
>> (xpart Location[-1]20,ypart Location[-1]20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 20,ypart Location0 20)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 0
>> (xpart Location0 20,ypart Location0 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 20,ypart Location1 20)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 1
>> (xpart Location1 20,ypart Location1 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 20,ypart Location2 20)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 2
>> (xpart Location2 20,ypart Location2 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 20,ypart Location3 20)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 3
>> (xpart Location3 20,ypart Location3 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(20)];Area[(20)][(E...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 20
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(20)];
                                                  Area[(20)][(EXPR0)]:=Area[...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 20,ypart Location4 20)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(20)]:=(Hstep[(EXPR0)],
                                                  Vstep[(20)]);Location[(20)...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area20 4
>> (xpart Location4 20,ypart Location4 20)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 20
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 20
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(20)]shifted.Location[(EXPR0)][(20)];
                                                  Field[(20)][(EXPR0)]:=Fiel...
<for(20)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]30,ypart Location[-4]30)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-4]
>> (xpart Location[-4]30,ypart Location[-4]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]30,ypart Location[-3]30)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-3]
>> (xpart Location[-3]30,ypart Location[-3]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]30,ypart Location[-2]30)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-2]
>> (xpart Location[-2]30,ypart Location[-2]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]30,ypart Location[-1]30)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 [-1]
>> (xpart Location[-1]30,ypart Location[-1]30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 30,ypart Location0 30)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 0
>> (xpart Location0 30,ypart Location0 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 30,ypart Location1 30)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 1
>> (xpart Location1 30,ypart Location1 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 30,ypart Location2 30)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 2
>> (xpart Location2 30,ypart Location2 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 30,ypart Location3 30)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 3
>> (xpart Location3 30,ypart Location3 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(30)];Area[(30)][(E...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 30
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(30)];
                                                  Area[(30)][(EXPR0)]:=Area[...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 30,ypart Location4 30)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(30)]:=(Hstep[(EXPR0)],
                                                  Vstep[(30)]);Location[(30)...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area30 4
>> (xpart Location4 30,ypart Location4 30)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 30
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 30
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(30)]shifted.Location[(EXPR0)][(30)];
                                                  Field[(30)][(EXPR0)]:=Fiel...
<for(30)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-4)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-4]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-4)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-4]40,ypart Location[-4]40)
>> (Hstep[-4]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-4)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-4]
>> (xpart Location[-4]40,ypart Location[-4]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-4]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-4]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-4)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(-3)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-3]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-3)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-3]40,ypart Location[-3]40)
>> (Hstep[-3]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-3)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-3]
>> (xpart Location[-3]40,ypart Location[-3]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-3]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-3]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-3)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-2)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-2]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-2)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-2]40,ypart Location[-2]40)
>> (Hstep[-2]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-2)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-2]
>> (xpart Location[-2]40,ypart Location[-2]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-2]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-2]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-2)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.03793PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(-1)> ...tsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.03793PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area[-1]40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(-1)> ...ed.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location[-1]40,ypart Location[-1]40)
>> (Hstep[-1]
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(-1)> ...tion[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 [-1]
>> (xpart Location[-1]40,ypart Location[-1]40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location[-1]40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location[-1]40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(-1)> ...(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.81032PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(0)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.81032PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area0 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(0)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location0 40,ypart Location0 40)
>> (Hstep0
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(0)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 0
>> (xpart Location0 40,ypart Location0 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location0 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location0 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(0)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(1)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area1 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(1)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location1 40,ypart Location1 40)
>> (Hstep1
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(1)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 1
>> (xpart Location1 40,ypart Location1 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location1 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location1 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(1)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0.09485PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
<for(2)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0.09485PrintPaperWidth
>> 0
! Not implemented: (unknown numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area2 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(2)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location2 40,ypart Location2 40)
>> (Hstep2
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(2)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 2
>> (xpart Location2 40,ypart Location2 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location2 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location2 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(2)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(3)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area3 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(3)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location3 40,ypart Location3 40)
>> (Hstep3
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(3)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 3
>> (xpart Location3 40,ypart Location3 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location3 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location3 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(3)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> 0
! Not implemented: (unknown numeric)xscaled(known numeric).
<to be read again> 
                   yscaled
<for(4)> ...itsquare.xscaled.Hsize[(EXPR0)]yscaled
                                                  .Vsize[(40)];Area[(40)][(E...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> 0
>> 0
! Not implemented: (known numeric)yscaled(known numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area4 40
>> 0
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
<for(4)> ...led.Hsize[(EXPR0)]yscaled.Vsize[(40)];
                                                  Area[(40)][(EXPR0)]:=Area[...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> (xpart Location4 40,ypart Location4 40)
>> (Hstep4
! Equation cannot be performed (pair=numeric).
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<for(4)> ...ation[(EXPR0)][(40)]:=(Hstep[(EXPR0)],
                                                  Vstep[(40)]);Location[(40)...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Area40 4
>> (xpart Location4 40,ypart Location4 40)
! Not implemented: (unknown path)shifted(unknown pair).
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> xpart Location4 40
! Undefined x coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> ypart Location4 40
! Undefined y coordinate has been replaced by 0.
<to be read again> 
                   ;
<for(4)> ...[(40)]shifted.Location[(EXPR0)][(40)];
                                                  Field[(40)][(EXPR0)]:=Fiel...
<for(40)> ...orPos]:=Field[HorPos][(EXPR0)];endfor
                                                  ; ENDFOR
SetPageAreas->...eld[HorPos][VerPos];endfor;endfor
                                                  ;Page:=unitsquare.xscaled....
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unitsquare
>> PrintPaperWidth
! Not implemented: (unknown numeric)xscaled(unknown numeric).
<to be read again> 
                   yscaled
SetPageAreas->...square.xscaled.PaperWidth.yscaled
                                                  .PaperHeight;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> PrintPaperWidth
>> 0.75PrintPaperWidth
! Not implemented: (unknown numeric)yscaled(unknown numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown path Page
>> 0.75PrintPaperWidth
! Equation cannot be performed (unknown path=numeric).
<to be read again> 
                   ;
StartPage->...eState;SwapPageState;fi;SetPageAreas
                                                  ;BoundPageAreas;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StartPage->...State;fi;SetPageAreas;BoundPageAreas
                                                  ;
<*> ...r_area:=false; ;randomseed:=1811; StartPage
                                                   ; save Left, Right ; pict...
>> unknown picture Left
>> textext(
! Equation cannot be performed (unknown picture=numeric).
<to be read again> 
                   "\TaspresentSometxtLeft {2}"
<*> ...eft := textext("\TaspresentSometxtLeft {2}"
                                                  ) ysized 6cm; Right := tex...
! Extra tokens will be flushed.
<to be read again> 
                   "\TaspresentSometxtLeft {2}"
<*> ...eft := textext("\TaspresentSometxtLeft {2}"
                                                  ) ysized 6cm; Right := tex...
>> unknown picture Right
>> textext(
! Equation cannot be performed (unknown picture=numeric).
<to be read again> 
                   "\TaspresentSometxtRight {2}"
<*> ...ht := textext("\TaspresentSometxtRight {2}"
                                                  ) ysized 6cm; save LeftBox...
! Extra tokens will be flushed.
<to be read again> 
                   "\TaspresentSometxtRight {2}"
<*> ...ht := textext("\TaspresentSometxtRight {2}"
                                                  ) ysized 6cm; save LeftBox...
>> unknown picture Left
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   ,
<*> ...ox := llcorner Left -- split[llcorner Left,
                                                   lrcorner Left] -- split[u...
>> unknown picture Left
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
>> unknown picture Left
! Not implemented: (unknown picture)-(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> Left--split
>> unknown picture Left
! Not implemented: (unknown numeric)*(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
>> unknown picture Left
! Not implemented: (unknown picture)+(unknown picture).
<to be read again> 
                   ]
<*> ...Left -- split[llcorner Left, lrcorner Left]
                                                   -- split[ulcorner Left, u...
>> unknown picture Left
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
>> unknown path LeftBox
>> unknown picture Left
! Equation cannot be performed (unknown path=unknown picture).
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
! Extra tokens will be flushed.
<to be read again> 
                   --
<*> ...t -- split[llcorner Left, lrcorner Left] --
                                                   split[ulcorner Left, urco...
>> unknown picture Right
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   ,
<*> ... := lrcorner Right -- split[lrcorner Right,
                                                   llcorner Right] -- split[...
>> unknown picture Right
! Not implemented: llcorner(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
>> unknown picture Right
! Not implemented: (unknown picture)-(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> Right--split
>> unknown picture Right
! Not implemented: (unknown numeric)*(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
>> unknown picture Right
! Not implemented: (unknown picture)+(unknown picture).
<to be read again> 
                   ]
<*> ...ht -- split[lrcorner Right, llcorner Right]
                                                   -- split[urcorner Right, ...
>> unknown picture Right
! Not implemented: lrcorner(unknown picture).
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
>> unknown path RightBox
>> unknown picture Right
! Equation cannot be performed (unknown path=unknown picture).
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
! Extra tokens will be flushed.
<to be read again> 
                   --
<*> ...-- split[lrcorner Right, llcorner Right] --
                                                   split[urcorner Right, ulc...
! Variable Left is the wrong type (unknown picture).
<to be read again> 
                   ;
<*> ...lcorner Right] ; fi; clip Left to LeftBox ;
                                                   clip Right to RightBox ; ...
! Variable Right is the wrong type (unknown picture).
<to be read again> 
                   ;
<*> ... Left to LeftBox ; clip Right to RightBox ;
                                                   save corner; pair corner ...
>> (0.2cm
! Improper transformation argument.
<to be read again> 
                   ,
<*> ...= lrcorner Field[Text][Text] shifted (.2cm,
                                                  -1cm) ; labeloffset := 0bp...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...= lrcorner Field[Text][Text] shifted (.2cm,
                                                  -1cm) ; labeloffset := 0bp...
>> label.ulft(Left
! Isolated expression.
<to be read again> 
                   ,
<*> ...1cm) ; labeloffset := 0bp; label.ulft(Left,
                                                   corner) ; label.urt (Righ...
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...1cm) ; labeloffset := 0bp; label.ulft(Left,
                                                   corner) ; label.urt (Righ...
>> label.urt(Right
! Isolated expression.
<to be read again> 
                   ,
<*> ...abel.ulft(Left, corner) ; label.urt (Right,
                                                   corner) ; StopPage ; ;
! Extra tokens will be flushed.
<to be read again> 
                   ,
<*> ...abel.ulft(Left, corner) ; label.urt (Right,
                                                   corner) ; StopPage ; ;
! Variable currentpicture is the wrong type (numeric).
<to be read again> 
                   ;
StopPage->BoundPageAreas
                        ;
<*> ...ner) ; label.urt (Right, corner) ; StopPage
                                                   ; ;

report >> mp error: unknown, no error, terminal or log messages
report >> mp terminal: >> endfig
! Isolated expression.
<to be read again> 
                   ;
<*> endfig ;
            

report >> mp error: unknown, no error, terminal or log messages [2.2]
systems        : end file essai at line 19
system         : cont-err loaded
(/usr/share/texmf/tex/context/base/cont-err.tex
systems        : no file 'cont-sys.tex', using 'cont-sys.rme' instead
) )</usr/share/texmf/fonts/opentype/public/lm/lmsans10-regular.otf>
mkiv lua stats : used config path          - /usr/share/texmf/web2c/texmf.cnf
mkiv lua stats : used cache path           - /home/amael3/luatex-cache/context/6300afb4995fe38c77e9b86ed1ef1028
mkiv lua stats : modules/dumps/instances   - 85/20/1
mkiv lua stats : input load time           - 0.043 seconds
mkiv lua stats : fonts load time           - 1.067 seconds
mkiv lua stats : xml load time             - 0.000 seconds, backreferences: 0, outer filtering time: 0.000
mkiv lua stats : mps conversion time       - 0.000 seconds
mkiv lua stats : node processing time      - 0.000 seconds (including kernel)
mkiv lua stats : kernel processing time    - 0.000 seconds
mkiv lua stats : attribute processing time - 0.021 seconds
mkiv lua stats : language load time        - 0.017 seconds, n=2
mkiv lua stats : graphics processing time  - 0.000 seconds, n=0 (including tex)
mkiv lua stats : metapost processing time  - 5.501 seconds, loading: 0.078 seconds, execution: 0.883 seconds, n: 0
mkiv lua stats : current memory usage      - 85174739 bytes
mkiv lua stats : cleaned up reserved nodes - 23 nodes, 9 lists of 100
mkiv lua stats : node memory usage         - 20 glue_spec, 2 dir
mkiv lua stats : loaded patterns           - en:en:pat:exc:2
mkiv lua stats : loaded fonts              - file:lmroman10-bold*default:otf file:lmroman10-bolditalic*default:otf file:lmroman10-boldoblique*default:otf file:lmroman10-capsregular*default:otf file:lmroman10-italic*default:otf file:lmroman10-oblique*default:otf file:lmroman10-regular*default:otf file:lmroman12-bold*default:otf file:lmroman12-italic*default:otf file:lmroman12-oblique*default:otf file:lmroman12-regular*default:otf file:lmroman7-bold*default:otf file:lmroman7-regular*default:otf file:lmroman9-bold*default:otf file:lmroman9-italic*default:otf file:lmroman9-oblique*default:otf file:lmroman9-regular*default:otf file:lmsans10-regular*default:otf lmex10:tfm lmmi10:tfm lmmi12:tfm lmmi7:tfm lmmi9:tfm lmsy10:tfm lmsy7:tfm lmsy9:tfm msam10:tfm msam7:tfm msbm10:tfm msbm7:tfm rm-lmr10:t
 fm rm-lmr12:tfm rm-lmr7:tfm rm-lmr9:tfm
mkiv lua stats : runtime                   - 7.437 seconds, 2 processed pages, 2 shipped pages, 0.269 pages/second


[-- Attachment #6: essai-MarkIV.pdf --]
[-- Type: application/pdf, Size: 5093 bytes --]

[-- Attachment #7: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides ubuntu jaunty (9.04)
  2009-05-06 16:59 simpleslides ubuntu jaunty (9.04) Amaël Broustet
@ 2009-05-07  7:22 ` Thomas A. Schmitz
  2009-05-07 10:16   ` simpleslides with minimals Amaël Broustet
  0 siblings, 1 reply; 11+ messages in thread
From: Thomas A. Schmitz @ 2009-05-07  7:22 UTC (permalink / raw)
  To: mailing list for ConTeXt users


On May 6, 2009, at 6:59 PM, Amaël Broustet wrote:

> Dear list members,
> I'm a new user of conTeXt and was interested in the simpleslides  
> module.
>
> It looks great and partially works but most graphical stuffs don't
> work :
> I've only the text using Mark IV, and get some of the graphical  
> effects
> with Mark II  (but not all) (I've attached pdf output and logs).
>
> I use a freshly installed ubuntu 9.04
>

It seems you are using the texlive install from ubuntu. Normally, I  
would advise installing the minimals (see http://wiki.contextgarden.net/ConTeXt_Minimals 
  ), but the ConTeXt beta is a bit unstable these days. I have run  
your essai.tex here and get proper output both in mkii and mkiv.

> I've installed the module (in my ~/texmf).
> I've added in /etc/environment the variable
> TEXMFCNF=/usr/share/texmf/web2c in order for luatools and MarkIV to
> work. cf
> http://wiki.contextgarden.net/Debian_installation#Postscript:_Mark_IV
> (the exemple file works)
>
Yes, your logs indicate that the module and its submodules are found,  
so the installation is correct.

> versions :
> $ texexec --lua -v
> TeXExec | version 6.2.0 - 1997-2006 - PRAGMA ADE/POD
>
> $ luatools -v
> LuaTools | version 1.2.0 - 2006+ - PRAGMA ADE / CONTEXT
>
> $ luatex -v
> This is LuaTeX, Version snapshot-0.28.0-2009041620
>
>
> I hope that you have some hints on what I might have wrong,
> In mark IV, it looks like I have a version problem for metafun, but  
> I'm
> not sure and don't now how to get the version number.
>
> Best regards
> Amaël Broustet

In order to get the version number, simply look at the log files. It  
says in the first few lines:

ConTeXt  ver: 2008.05.21 15:21 MKII  fmt: 2009.4.29  int: english/ 
english

and

ConTeXt  ver: 2008.05.21 15:21 MKIV  fmt: 2009.5.5  int: english/english

So your ConTeXt version is almost a year old. For mkiv, which is  
moving very fast, this means the stone age, and I don't think anybody  
will be able or willing to help you with such an old version. The  
problem in the mkiv log is that your metafun version is not able to  
process the background (after l. 80), that's why you don't get any  
graphics. In mkii, I don't see anything obvious in the log. But as I  
wrote: your example compiles fine here on the latest version
ConTeXt  ver: 2009.05.06 16:26 MKII  fmt: 2009.5.7  int: english/english

so you should try and install the minimals. It's no problem having  
them in addition to your system TeX installation, they shouldn't  
interfere.

Thomas
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________


^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07  7:22 ` Thomas A. Schmitz
@ 2009-05-07 10:16   ` Amaël Broustet
  2009-05-07 11:07     ` Amaël Broustet
  0 siblings, 1 reply; 11+ messages in thread
From: Amaël Broustet @ 2009-05-07 10:16 UTC (permalink / raw)
  To: mailing list for ConTeXt users

Thank you for the advice.
I followed it but still run in some problems :
I used

~/context$ sh ./first-setup.sh --extras="t-simpleslides"

then 

:~/context$ source ./tex/setuptex

Everythings look fine :

~/context$ luatools t-simpleslides.tex
/home/amael3/context/tex/texmf-context/tex/context/third/simple-slides/t-simpleslides.tex

~/context$ kpsewhich t-simpleslides.tex
/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex

~/context$ type texexec
texexec est haché (/home/amael3/context/tex/texmf-linux/bin/texexec)

~/context$ type luatools
luatools est haché (/home/amael3/context/tex/texmf-linux/bin/luatools)

My essai.tex file is :

~/context$ cat essai.tex
\usemodule[simpleslides][style=BigNumber,font=Helvetica,size=24]

\setupTitle
[   title={Essai / Try SimpleSlides},
 author={Amaël Broustet},
    date={6 mai 2009},
]

\starttext
\placeTitle
\SlideTitle{Le premier slide}
Essai 
\stoptext

but when I run mark IV :

~/context$ texexec --lua essai.tex
TeXExec | processing document 'essai.tex'
TeXExec | no ctx file found
TeXExec | tex processing method: context
TeXExec | TeX run 1
TeXExec | writing option file essai.top
TeXExec | using randomseed 1287
TeXExec | tex engine: luatex
TeXExec | tex format: cont-en
LuaTools | running command: luatex
--fmt="/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en" --lua="/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en.luc" "essai.tex" 
This is LuaTeX, Version beta-0.40.0-2009042222 (Web2C 7.5.7)
 \write18 enabled.
(essai.tex

ConTeXt  ver: 2009.05.06 23:23 MKIV  fmt: 2009.5.7  int: english/english

system          : essai.top loaded
(essai.top)
fonts           : preloading latin modern fonts
bodyfont        : 12pt rm is loaded
language        : language en is active
system          : module simpleslides not found
! Undefined control sequence.
l.3 \setupTitle


and Mark II :

~/context$ texexec  essai.tex
TeXExec | processing document 'essai.tex'
TeXExec | no ctx file found
TeXExec | tex processing method: context
TeXExec | TeX run 1
TeXExec | writing option file essai.top
TeXExec | using randomseed 83
TeXExec | tex engine: pdftex
TeXExec | tex format: cont-en
This is pdfTeX, Version 3.1415926-1.40.10 (Web2C 7.5.7)
 \write18 enabled.
 (/home/amael3/context/tex/texmf-context/web2c/natural.tcx)
entering extended mode
(./essai.tex

ConTeXt  ver: 2009.05.06 23:23 MKII  fmt: 2009.5.7  int: english/english

system          : cont-new loaded
(/home/amael3/context/tex/texmf-context/tex/context/base/cont-new.tex
systems         : beware: some patches loaded from cont-new.tex
(/home/amael3/context/tex/texmf-context/tex/context/base/cont-new.mkii)
(/home/amael3/context/tex/texmf-context/tex/context/base/cont-mtx.tex))
system          : cont-fil loaded
(/home/amael3/context/tex/texmf-context/tex/context/base/cont-fil.tex
loading         : ConTeXt File Synonyms
)
system          : cont-sys.rme loaded
(/home/amael3/context/tex/texmf-context/tex/context/user/cont-sys.rme
(/home/amael3/context/tex/texmf-context/tex/context/base/type-tmf.tex)
(/home/amael3/context/tex/texmf-context/tex/context/base/type-siz.tex
(/home/amael3/context/tex/texmf-context/tex/context/base/type-siz.mkii))
(/home/amael3/context/tex/texmf-context/tex/context/base/type-one.tex)
(/home/amael3/context/tex/texmf-context/tex/context/base/type-akb.tex))
system          : essai.top loaded
(./essai.top)
bodyfont        : 12pt rm is loaded
language        : patterns nl->texnansi:texnansi->1->2:2
nl->ec:ec->2->2:2 us->
ec:ec->3->2:3 de->texnansi:texnansi->4->3:3 de->ec:ec->5->3:3
da->ec:ec->6->2:2
 sv->ec:ec->7->2:2 gb->ec:ec->8->2:2 fr->texnansi:texnansi->9->2:2
fr->ec:ec->1
0->2:2 es->ec:ec->11->2:2 ca->ec:ec->12->2:2
it->texnansi:texnansi->13->2:2 it-
>ec:ec->14->2:2 la->ec:ec->15->2:2 pt->texnansi:texnansi->16->2:2
pt->ec:ec->17
->2:2 ro->ec:ec->18->2:2 pl->pl0:pl0->19->2:2 pl->ec:ec->20->2:2
pl->qx:qx->21-
>2:2 cs->il2:il2->22->2:2 cs->ec:ec->23->2:2 sk->il2:il2->24->2:2
sk->ec:ec->25
->2:2 hr->ec:ec->26->2:2 sl->ec:ec->27->2:2 tr->ec:ec->28->2:2
agr->agr:agr->30
->2:2 fi->ec:ec->31->2:2 hu->ec:ec->32->2:2 ru->t2a:t2a->35->2:2
uk->t2a:t2a->3
6->3:3 loaded
specials        : dvips loaded
systems         : system commands are enabled
language        : language en is active
specials        : loading definition file tpd
(/home/amael3/context/tex/texmf-context/tex/context/base/spec-tpd.tex
specials        : loading definition file fdf
(/home/amael3/context/tex/texmf-context/tex/context/base/spec-fdf.tex))
system          : module simpleslides loaded
(/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex
loading         : module simpleslides
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-default.tex
simpleslides    : loading default style setup
color           : mpcmyk color space is supported
color           : mpspot color space is supported
color           : system rgb is global activated
)
system          : module BigNumber loaded

(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-BigNumber.te
x
simpleslides    : loading Big Number style
system          : command \NormalHeight is already defined
system          : command \NormalWidth is already defined
system          : command \PictureFrameHeight is already defined
system          : command \PictureFrameWidth is already defined
color           : specification [s=0] at color simpleslides:textcolor
becomes b
lack
)
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-f-default.tex
simpleslides    : loading default font setup
! Illegal unit of measure (pt inserted).
<to be read again> 
                   \relax 
l.31 ...\moduleparameter{simpleslides}{size}\relax
                                                  
? 


Do you have any suggestion ?


Sorry for the long logs inside the body of the email.

Best,
Amaël


P.S : the installation of simple-slides seems to have worked :
~/context$ ls -R | grep simple
simple-slides
./tex/texmf-context/doc/context/third/simple-slides:
simple-slides.pdf
simple-slides.tex
./tex/texmf-context/doc/context/third/simple-slides/solutions:
./tex/texmf-context/doc/context/third/simple-slides/styles:
simple-slides
./tex/texmf-context/scripts/context/lua/third/simple-slides:
mtx-simpleslides.lua
t-simpleslides.xml
simple-slides
./tex/texmf-context/tex/context/third/simple-slides:
simpleslides-f-default.tex
simpleslides-s-BigNumber.tex
simpleslides-s-BottomSquares.tex
simpleslides-s-Boxed.tex
simpleslides-s-default.tex
simpleslides-s-Ellipse.tex
simpleslides-s-Embossed.tex
simpleslides-s-Framed.tex
simpleslides-s-FramedTitle.tex
simpleslides-s-HorizontalStripes.tex
simpleslides-s-NarrowStripes.tex
simpleslides-s-RainbowStripe.tex
simpleslides-s-Rounded.tex
simpleslides-s-Shaded.tex
simpleslides-s-SideSquares.tex
simpleslides-s-Split.tex
simpleslides-s-Sunrise.tex
simpleslides-s-Swoosh.tex
simpleslides-s-ThickStripes.tex
t-simpleslides.tex
t-simpleslides.tpm



Le jeudi 07 mai 2009 à 09:22 +0200, Thomas A. Schmitz a écrit :
> On May 6, 2009, at 6:59 PM, Amaël Broustet wrote:
> 
> > Dear list members,
> > I'm a new user of conTeXt and was interested in the simpleslides  
> > module.
> >
> > It looks great and partially works but most graphical stuffs don't
> > work :
> > I've only the text using Mark IV, and get some of the graphical  
> > effects
> > with Mark II  (but not all) (I've attached pdf output and logs).
> >
> > I use a freshly installed ubuntu 9.04
> >
> 
> It seems you are using the texlive install from ubuntu. Normally, I  
> would advise installing the minimals (see http://wiki.contextgarden.net/ConTeXt_Minimals 
>   ), but the ConTeXt beta is a bit unstable these days. I have run  
> your essai.tex here and get proper output both in mkii and mkiv.
> 
> > I've installed the module (in my ~/texmf).
> > I've added in /etc/environment the variable
> > TEXMFCNF=/usr/share/texmf/web2c in order for luatools and MarkIV to
> > work. cf
> > http://wiki.contextgarden.net/Debian_installation#Postscript:_Mark_IV
> > (the exemple file works)
> >
> Yes, your logs indicate that the module and its submodules are found,  
> so the installation is correct.
> 
> > versions :
> > $ texexec --lua -v
> > TeXExec | version 6.2.0 - 1997-2006 - PRAGMA ADE/POD
> >
> > $ luatools -v
> > LuaTools | version 1.2.0 - 2006+ - PRAGMA ADE / CONTEXT
> >
> > $ luatex -v
> > This is LuaTeX, Version snapshot-0.28.0-2009041620
> >
> >
> > I hope that you have some hints on what I might have wrong,
> > In mark IV, it looks like I have a version problem for metafun, but  
> > I'm
> > not sure and don't now how to get the version number.
> >
> > Best regards
> > Amaël Broustet
> 
> In order to get the version number, simply look at the log files. It  
> says in the first few lines:
> 
> ConTeXt  ver: 2008.05.21 15:21 MKII  fmt: 2009.4.29  int: english/ 
> english
> 
> and
> 
> ConTeXt  ver: 2008.05.21 15:21 MKIV  fmt: 2009.5.5  int: english/english
> 
> So your ConTeXt version is almost a year old. For mkiv, which is  
> moving very fast, this means the stone age, and I don't think anybody  
> will be able or willing to help you with such an old version. The  
> problem in the mkiv log is that your metafun version is not able to  
> process the background (after l. 80), that's why you don't get any  
> graphics. In mkii, I don't see anything obvious in the log. But as I  
> wrote: your example compiles fine here on the latest version
> ConTeXt  ver: 2009.05.06 16:26 MKII  fmt: 2009.5.7  int: english/english
> 
> so you should try and install the minimals. It's no problem having  
> them in addition to your system TeX installation, they shouldn't  
> interfere.
> 
> Thomas
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
> 
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : https://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 10:16   ` simpleslides with minimals Amaël Broustet
@ 2009-05-07 11:07     ` Amaël Broustet
  2009-05-07 11:14       ` Taco Hoekwater
  2009-05-07 11:16       ` simpleslides with minimals Amaël Broustet
  0 siblings, 2 replies; 11+ messages in thread
From: Amaël Broustet @ 2009-05-07 11:07 UTC (permalink / raw)
  To: mailing list for ConTeXt users

Ok I thought i didn't need to do 
luatools --generate 
I run it and after that I got the same error with markIV that with
markII :
~/context$ texexec --lua essai.tex
TeXExec | processing document 'essai.tex'
TeXExec | no ctx file found
TeXExec | tex processing method: context
TeXExec | TeX run 1
TeXExec | writing option file essai.top
TeXExec | using randomseed 764
TeXExec | tex engine: luatex
TeXExec | tex format: cont-en
LuaTools | running command: luatex
--fmt="/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en" --lua="/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en.luc" "essai.tex" 
This is LuaTeX, Version beta-0.40.0-2009042222 (Web2C 7.5.7)
 \write18 enabled.
(essai.tex

ConTeXt  ver: 2009.05.06 23:23 MKIV  fmt: 2009.5.7  int: english/english

system          : essai.top loaded
(essai.top)
fonts           : preloading latin modern fonts
bodyfont        : 12pt rm is loaded
language        : language en is active
system          : module simpleslides loaded
(/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex
loading         : module simpleslides
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-default.tex
simpleslides    : loading default style setup
color           : mpcmyk color space is supported
color           : mpspot color space is supported
color           : system rgb is global activated
)
system          : module BigNumber loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-BigNumber.tex
simpleslides    : loading Big Number style
system          : command NormalHeight is already defined
system          : command NormalWidth is already defined
system          : command PictureFrameHeight is already defined
system          : command PictureFrameWidth is already defined
)
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-f-default.tex
simpleslides    : loading default font setup
! Illegal unit of measure (pt inserted).
<to be read again> 
                   \relax 
l.31 ...\moduleparameter{simpleslides}{size}\relax
                                                  
? 


If I press "enter" to continue, I get errors with fonts like this one :



  define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*24ptsstfss*

[...]
define font | unable to define unknown as \*30ptmmmr1ss*
fonts           : needs map file: original-base
mplib           : making 'metafun.mp' into
'/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
mplib           : problems with 'metafun.mp' from
'/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
][1.1]

[...]
mplib           : making 'metafun.mp' into
'/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
mplib           : problems with 'metafun.mp' from
'/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
[2.2]
systems         : end file essai at line 13
 )
mkiv lua stats : used config path
- /home/amael3/context/tex/texmf/web2c/texmf.cnf
mkiv lua stats : used cache path
- /home/amael3/context/tex/texmf-cache
mkiv lua stats : input load time           - 0.034 seconds
mkiv lua stats : stored bytecode data      - 165 modules, 42 tables, 207
chunks
mkiv lua stats : cleaned up reserved nodes - 26 nodes, 9 lists of 1411
mkiv lua stats : node memory usage         - 13 glue_spec, 2 dir
mkiv lua stats : loaded patterns           - en:us:pat:exc:2
mkiv lua stats : callbacks                 - direct: 202, indirect:
1349, total: 1551
mkiv lua stats : luatex banner             - this is luatex, version
beta-0.40.0


Might it be related to the actual bugs in beta ?

best,
Amaël


___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 11:07     ` Amaël Broustet
@ 2009-05-07 11:14       ` Taco Hoekwater
  2009-05-07 11:27         ` Amaël Broustet
  2009-05-07 11:16       ` simpleslides with minimals Amaël Broustet
  1 sibling, 1 reply; 11+ messages in thread
From: Taco Hoekwater @ 2009-05-07 11:14 UTC (permalink / raw)
  To: mailing list for ConTeXt users



Amaël Broustet wrote:
> Ok I thought i didn't need to do 
> luatools --generate 
> I run it and after that I got the same error with markIV that with
> markII :

After looking at your input, this is expected. The argument to
'size' is a dimension, so it should be followed by 'pt':

  \usemodule[simpleslides][style=BigNumber,font=Helvetica,size=24pt]

Best wishes,
Taco
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 11:07     ` Amaël Broustet
  2009-05-07 11:14       ` Taco Hoekwater
@ 2009-05-07 11:16       ` Amaël Broustet
  2009-05-07 21:39         ` Aditya Mahajan
  1 sibling, 1 reply; 11+ messages in thread
From: Amaël Broustet @ 2009-05-07 11:16 UTC (permalink / raw)
  To: mailing list for ConTeXt users

Ok I just put in my essai.tex size=24pt istead of  size=24 and there
were no more errors.
But the generated pdf file is blank (2 pages wihtout test or graphic).
Best,
Amaël

Le jeudi 07 mai 2009 à 13:07 +0200, Amaël Broustet a écrit :
> Ok I thought i didn't need to do 
> luatools --generate 
> I run it and after that I got the same error with markIV that with
> markII :
> ~/context$ texexec --lua essai.tex

> ! Illegal unit of measure (pt inserted).
> <to be read again> 
>                    \relax 
> l.31 ...\moduleparameter{simpleslides}{size}\relax
>                                                   
> ? 
> 

> 


___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 11:14       ` Taco Hoekwater
@ 2009-05-07 11:27         ` Amaël Broustet
  2009-05-07 13:08           ` Thomas A. Schmitz
  0 siblings, 1 reply; 11+ messages in thread
From: Amaël Broustet @ 2009-05-07 11:27 UTC (permalink / raw)
  To: mailing list for ConTeXt users

[-- Attachment #1: Type: text/plain, Size: 1455 bytes --]

Thank you !!
As I wrote, I have a blank pdf (size is only 1700 bytes). 
>From the log (attached below), it's a problem with fonts :
there is a whole page of 

simpleslides    : loading default font setup
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*24ptsstfss*

I'm reading messages about beta and font generation, maybe it's related.

Best
Amaël

Le jeudi 07 mai 2009 à 13:14 +0200, Taco Hoekwater a écrit :
> 
> Amaël Broustet wrote:
> > Ok I thought i didn't need to do 
> > luatools --generate 
> > I run it and after that I got the same error with markIV that with
> > markII :
> 
> After looking at your input, this is expected. The argument to
> 'size' is a dimension, so it should be followed by 'pt':
> 
>   \usemodule[simpleslides][style=BigNumber,font=Helvetica,size=24pt]
> 
> Best wishes,
> Taco
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
> 
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : https://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________

[-- Attachment #2: essai.log --]
[-- Type: text/x-log, Size: 5344 bytes --]

This is LuaTeX, Version beta-0.40.0-2009042222 (Web2C 7.5.7) (format=cont-en 2009.5.7)  7 MAY 2009 13:12
 \write18 enabled.
**essai.tex
(essai.tex

ConTeXt  ver: 2009.05.07 12:10 MKIV  fmt: 2009.5.7  int: english/english

system          : essai.top loaded
%
%	begin of optionfile
%
%	% essai.top
%	\unprotect
%	\def\MPOSTformatswitch{-progname=metafun -mem=}
%	\setupsystem[\c!n=2,\c!m=3]
%	\setupsystem[\c!method=2]
%	\setupsystem[\c!type=linux]
%	\setupsystem[\c!random=734]
%	\setupsystem[inputfile=essai.tex]
%	\startsetups *runtime:options
%	\setupoutput[pdftex]
%	\stopsetups
%	\startsetups *runtime:modules
%	\stopsetups
%	\protect \endinput
%
%	end of optionfile
%
(essai.top)
fonts           : preloading latin modern fonts
bodyfont        : 12pt rm is loaded
language        : language en is active
system          : module simpleslides loaded
(/home/amael3/texmf/tex/context/third/simple-slides/t-simpleslides.tex
loading         : module simpleslides
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-default.tex
simpleslides    : loading default style setup
color           : mpcmyk color space is supported
color           : mpspot color space is supported
color           : system rgb is global activated
)
system          : module BigNumber loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-s-BigNumber.tex
simpleslides    : loading Big Number style
system          : command NormalHeight is already defined
system          : command NormalWidth is already defined
system          : command PictureFrameHeight is already defined
system          : command PictureFrameWidth is already defined
)
system          : module default loaded
(/home/amael3/texmf/tex/context/third/simple-slides/simpleslides-f-default.tex
simpleslides    : loading default font setup
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*24ptsstfss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*16.8ptmmmr2ss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*24ptmmmr1ss*))
systems         : begin file essai at line 9
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*30ptsstfss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*15ptmmmr3ss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*21ptmmmr2ss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*30ptmmmr1ss*
fonts           : needs map file: original-base
mplib           : making 'metafun.mp' into '/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
mplib           : problems with 'metafun.mp' from '/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
][1.1]
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*30ptsstfss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*15ptmmmr3ss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*21ptmmmr2ss*
define font | font with name unknown is not found
define font | unknown font unknown, loading aborted
define font | unable to define unknown as \*30ptmmmr1ss*
mplib           : making 'metafun.mp' into '/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
mplib           : problems with 'metafun.mp' from '/home/amael3/context/tex/texmf-cache/luatex-cache/context/7280baf46d1f2412a3c85f3ce864846b/formats/cont-en-metafun.mem'
[2.2]
systems         : end file essai at line 13
 )
mkiv lua stats : used config path          - /home/amael3/context/tex/texmf/web2c/texmf.cnf
mkiv lua stats : used cache path           - /home/amael3/context/tex/texmf-cache
mkiv lua stats : input load time           - 0.032 seconds
mkiv lua stats : stored bytecode data      - 165 modules, 42 tables, 207 chunks
mkiv lua stats : cleaned up reserved nodes - 26 nodes, 9 lists of 1411
mkiv lua stats : node memory usage         - 13 glue_spec, 2 dir
mkiv lua stats : loaded patterns           - en:us:pat:exc:2
mkiv lua stats : callbacks                 - direct: 202, indirect: 1349, total: 1551
mkiv lua stats : luatex banner             - this is luatex, version beta-0.40.0
mkiv lua stats : control sequences         - 28730 of 165536
mkiv lua stats : current memory usage      - 14 MB (ctx: 14 MB)
mkiv lua stats : runtime                   - 0.637 seconds, 2 processed pages, 2 shipped pages, 3.140 pages/second

[-- Attachment #3: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 11:27         ` Amaël Broustet
@ 2009-05-07 13:08           ` Thomas A. Schmitz
  2009-05-07 22:49             ` simpleslides with minimals : OK Amaël
  0 siblings, 1 reply; 11+ messages in thread
From: Thomas A. Schmitz @ 2009-05-07 13:08 UTC (permalink / raw)
  To: mailing list for ConTeXt users


On May 7, 2009, at 1:27 PM, Amaël Broustet wrote:

> Thank you !!
> As I wrote, I have a blank pdf (size is only 1700 bytes).
>> From the log (attached below), it's a problem with fonts :
> there is a whole page of
>
> simpleslides    : loading default font setup
> define font | font with name unknown is not found
> define font | unknown font unknown, loading aborted
> define font | unable to define unknown as \*24ptsstfss*
>
> I'm reading messages about beta and font generation, maybe it's  
> related.
>
> Best
> Amaël

Hmm, I get proper output with the test document you sent, and I'm  
using the same version you are. Just to be safe, could you run these  
commands

1. rm ~/context/tex/texmf-cache/luatex-cache/*

2. luatools --generate

3. context --make

4. then rm all essai.tu* files and process essai.tex again with mkiv:

5. context essai

Sorry you're having so much trouble, as you may have seen, mkiv is  
having a particularly busy time right now; things will probably calm  
down during the next days.

Thomas
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________


^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 11:16       ` simpleslides with minimals Amaël Broustet
@ 2009-05-07 21:39         ` Aditya Mahajan
  2009-05-07 22:44           ` Amaël
  0 siblings, 1 reply; 11+ messages in thread
From: Aditya Mahajan @ 2009-05-07 21:39 UTC (permalink / raw)
  To: mailing list for ConTeXt users

[-- Attachment #1: Type: TEXT/PLAIN, Size: 485 bytes --]

On Thu, 7 May 2009, Amaël Broustet wrote:

> Ok I just put in my essai.tex size=24pt istead of  size=24 and there
> were no more errors.
> But the generated pdf file is blank (2 pages wihtout test or graphic).

Simpleslides comes with a test script. Try the following

   mkdir styles
   mtxrun --script simpleslides --styles=BigNumber --engine=context

This will create BigNumber-blue.pdf and BigNumber-red.pdf in the styles 
directory. Are these files correct?

Aditya

[-- Attachment #2: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals
  2009-05-07 21:39         ` Aditya Mahajan
@ 2009-05-07 22:44           ` Amaël
  0 siblings, 0 replies; 11+ messages in thread
From: Amaël @ 2009-05-07 22:44 UTC (permalink / raw)
  To: mailing list for ConTeXt users

These files are fine. But still no luck with my sample file (I try to
remove font=Helvetica but it still not works).

Best,
Amaël  

Le jeudi 07 mai 2009 à 17:39 -0400, Aditya Mahajan a écrit :
> On Thu, 7 May 2009, Amaël Broustet wrote:
> 
> > Ok I just put in my essai.tex size=24pt istead of  size=24 and there
> > were no more errors.
> > But the generated pdf file is blank (2 pages wihtout test or graphic).
> 
> Simpleslides comes with a test script. Try the following
> 
>    mkdir styles
>    mtxrun --script simpleslides --styles=BigNumber --engine=context
> 
> This will create BigNumber-blue.pdf and BigNumber-red.pdf in the styles 
> directory. Are these files correct?
> 
> Aditya
> ___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : https://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

* Re: simpleslides with minimals : OK
  2009-05-07 13:08           ` Thomas A. Schmitz
@ 2009-05-07 22:49             ` Amaël
  0 siblings, 0 replies; 11+ messages in thread
From: Amaël @ 2009-05-07 22:49 UTC (permalink / raw)
  To: mailing list for ConTeXt users

Merci !!!!
Than you very much, it works !
I don't know why.
Just a question : what is the difference between "texexec --lua" and
context ?

Best,
Amaël 

Le jeudi 07 mai 2009 à 15:08 +0200, Thomas A. Schmitz a écrit :
> On May 7, 2009, at 1:27 PM, Amaël Broustet wrote:
> 
> > Thank you !!
> > As I wrote, I have a blank pdf (size is only 1700 bytes).
> >> From the log (attached below), s the iit's a problem with fonts :
> > there is a whole page of
> >
> > simpleslides    : loading default font setup
> > define font | font with name unknown is not found
> > define font | unknown font unknown, loading aborted
> > define font | unable to define unknown as \*24ptsstfss*
> >
> > I'm reading messages about beta and font generation, maybe it's  
> > related.
> >
> > Best
> > Amaël
> 
> Hmm, I get proper output with the test document you sent, and I'm  
> using the same version you are. Just to be safe, could you run these  
> commands
> 
> 1. rm ~/context/tex/texmf-cache/luatex-cache/*
> 
> 2. luatools --generate
> 
> 3. context --make
> 
> 4. then rm all essai.tu* files and process essai.tex again with mkiv:
> 
> 5. context essai
> 
> Sorry you're having so much trouble, as you may have seen, mkiv is  
> having a particularly busy time right now; things will probably calm  
> down during the next days.
> 
> Thomas
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
> 
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive  : https://foundry.supelec.fr/projects/contextrev/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 11+ messages in thread

end of thread, other threads:[~2009-05-07 22:49 UTC | newest]

Thread overview: 11+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-05-06 16:59 simpleslides ubuntu jaunty (9.04) Amaël Broustet
2009-05-07  7:22 ` Thomas A. Schmitz
2009-05-07 10:16   ` simpleslides with minimals Amaël Broustet
2009-05-07 11:07     ` Amaël Broustet
2009-05-07 11:14       ` Taco Hoekwater
2009-05-07 11:27         ` Amaël Broustet
2009-05-07 13:08           ` Thomas A. Schmitz
2009-05-07 22:49             ` simpleslides with minimals : OK Amaël
2009-05-07 11:16       ` simpleslides with minimals Amaël Broustet
2009-05-07 21:39         ` Aditya Mahajan
2009-05-07 22:44           ` Amaël

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).