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

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).