Attachment 246540 Details for Bug 336532 – Build log

Build log

stalin-0.11:20100909-012447.log (text/plain), 1.21 MB, created by Diego Elio Pettenò (RETIRED) on 2010-09-09 08:10:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Diego Elio Pettenò (RETIRED)

Created: 2010-09-09 08:10:49 UTC

Size: 1.21 MB

patch

obsolete

> * CPV:  dev-scheme/stalin-0.11
> * REPO: gentoo
> * Maintainer: pchrist@gentoo.org scheme@gentoo.org
> * USE:  elibc_glibc kernel_linux test userland_GNU x86
> * Stalin is an ugly beast, which will eat all your memory and stress your
> * processor to levels you have never experienced. If you want to abort,
> * please do it now. You have been warned.
>>>> Unpacking source...
>>>> Unpacking stalin-0.11.tgz to /var/tmp/portage/dev-scheme/stalin-0.11/work
>>>> Source unpacked in /var/tmp/portage/dev-scheme/stalin-0.11/work
>>>> Compiling source in /var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11 ...
> * Beginning of stalin's compilation process. It may take several minutes.
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o if_mach ./if_mach.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o if_not_there ./if_not_there.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o threadlibs ./threadlibs.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o setjmp_test ./setjmp_t.c
>./setjmp_t.c: In function ânested_spâ:
>./setjmp_t.c:57:5: warning: function returns address of local variable
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -c ./tests/test.c
>mv test.o tests/test.o
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o alloc.o alloc.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o reclaim.o reclaim.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o allchblk.o allchblk.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o misc.o misc.c
>rm -f mach_dep.o
>./if_mach MIPS IRIX5 gcc  -c -o mach_dep.o ./mips_sgi_mach_dep.s
>./if_mach MIPS RISCOS as  -o mach_dep.o ./mips_ultrix_mach_dep.s
>./if_mach MIPS ULTRIX as  -o mach_dep.o ./mips_ultrix_mach_dep.s
>./if_mach POWERPC DARWIN as  -o mach_dep.o ./powerpc_darwin_mach_dep.s
>./if_mach ALPHA LINUX gcc  -c -o mach_dep.o ./alpha_mach_dep.S
>./if_mach SPARC SUNOS5 gcc  -c -o mach_dep.o ./sparc_mach_dep.S
>./if_mach SPARC SUNOS4 as  -o mach_dep.o ./sparc_sunos4_mach_dep.s
>./if_mach SPARC OPENBSD as  -o mach_dep.o ./sparc_sunos4_mach_dep.s
>./if_mach SPARC NETBSD as  -o mach_dep.o ./sparc_netbsd_mach_dep.s
>./if_mach IA64 "" as  -o ia64_save_regs_in_stack.o ./ia64_save_regs_in_stack.s
>./if_mach IA64 "" gcc  -c -o mach_dep1.o -I./include ./mach_dep.c
>./if_mach IA64 "" ld -r -o mach_dep.o mach_dep1.o ia64_save_regs_in_stack.o
>./if_not_there mach_dep.o gcc  -c -I./include ./mach_dep.c
>^^^^Starting command^^^^
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o os_dep.o os_dep.c
>os_dep.c: In function âGC_disable_signalsâ:
>os_dep.c:560:5: warning: âsigsetmaskâ is deprecated (declared at /usr/include/signal.h:199)
>os_dep.c: In function âGC_enable_signalsâ:
>os_dep.c:569:5: warning: âsigsetmaskâ is deprecated (declared at /usr/include/signal.h:199)
>rm -f mark_rts.o
>./if_mach ALPHA OSF1 gcc  -c -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -Wo,-notail ./mark_rts.c
>./if_not_there mark_rts.o gcc  -c -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END ./mark_rts.c
>^^^^Starting command^^^^
>./mark_rts.c: In function âGC_approx_spâ:
>./mark_rts.c:379:5: warning: function returns address of local variable
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o headers.o headers.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o mark.o mark.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o obj_map.o obj_map.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o blacklst.o blacklst.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o finalize.o finalize.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o new_hblk.o new_hblk.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o dbg_mlc.o dbg_mlc.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o malloc.o malloc.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o stubborn.o stubborn.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o checksums.o checksums.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o solaris_threads.o solaris_threads.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o pthread_support.o pthread_support.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o pthread_stop_world.o pthread_stop_world.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o darwin_stop_world.o darwin_stop_world.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o typd_mlc.o typd_mlc.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o ptr_chck.o ptr_chck.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o mallocx.o mallocx.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o solaris_pthreads.o solaris_pthreads.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o gcj_mlc.o gcj_mlc.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o specific.o specific.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o gc_dlopen.o gc_dlopen.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o backgraph.o backgraph.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o win32_threads.o win32_threads.c
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END   -c -o dyn_load.o dyn_load.c
>echo > base_lib
>rm -f dont_ar_1
>./if_mach SPARC SUNOS5 touch dont_ar_1
>./if_mach SPARC SUNOS5 ar rus gc.a alloc.o reclaim.o allchblk.o misc.o mach_dep.o os_dep.o mark_rts.o headers.o mark.o obj_map.o blacklst.o finalize.o new_hblk.o dbg_mlc.o malloc.o stubborn.o checksums.o solaris_threads.o pthread_support.o pthread_stop_world.o darwin_stop_world.o typd_mlc.o ptr_chck.o mallocx.o solaris_pthreads.o gcj_mlc.o specific.o gc_dlopen.o backgraph.o win32_threads.o dyn_load.o
>./if_mach M68K AMIGA touch dont_ar_1
>./if_mach M68K AMIGA ar -vrus gc.a alloc.o reclaim.o allchblk.o misc.o mach_dep.o os_dep.o mark_rts.o headers.o mark.o obj_map.o blacklst.o finalize.o new_hblk.o dbg_mlc.o malloc.o stubborn.o checksums.o solaris_threads.o pthread_support.o pthread_stop_world.o darwin_stop_world.o typd_mlc.o ptr_chck.o mallocx.o solaris_pthreads.o gcj_mlc.o specific.o gc_dlopen.o backgraph.o win32_threads.o dyn_load.o
>./if_not_there dont_ar_1 ar ru gc.a alloc.o reclaim.o allchblk.o misc.o mach_dep.o os_dep.o mark_rts.o headers.o mark.o obj_map.o blacklst.o finalize.o new_hblk.o dbg_mlc.o malloc.o stubborn.o checksums.o solaris_threads.o pthread_support.o pthread_stop_world.o darwin_stop_world.o typd_mlc.o ptr_chck.o mallocx.o solaris_pthreads.o gcj_mlc.o specific.o gc_dlopen.o backgraph.o win32_threads.o dyn_load.o
>^^^^Starting command^^^^
>ar: creating gc.a
>./if_not_there dont_ar_1 ranlib gc.a || cat /dev/null
>^^^^Starting command^^^^
>rm -f gctest
>./if_mach SPARC DRSNX gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o gctest  tests/test.o gc.a -lucb
>./if_mach HP_PA HPUX gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o gctest  tests/test.o gc.a -ldld `./threadlibs`
>./if_mach M68K AMIGA gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -UGC_AMIGA_MAKINGLIB -o gctest  tests/test.o gc.a `./threadlibs`
>./if_not_there gctest gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o gctest tests/test.o gc.a `./threadlibs`
>^^^^Starting command^^^^
>./setjmp_test
>This appears to be a I386 running LINUX
>Stack appears to grow down, which is the default.
>A good guess for STACKBOTTOM on this machine is 0xffab0000.
>Note that this may vary between machines of ostensibly
>the same architecture (e.g. Sun 3/50s and 3/80s).
>On many machines the value is not fixed.
>A good guess for ALIGNMENT on this machine is 4.
>Generic mark_regs code may work
>./gctest
>Switched to incremental mode
>Emulating dirty bits with mprotect/signals
>Completed 1 tests
>Allocated 648421 collectable objects
>Allocated 101 uncollectable objects
>Allocated 1250000 atomic objects
>Allocated 10880 stubborn objects
>Finalized 2206/2206 objects - finalization is probably ok
>Total number of bytes allocated is 49789604
>Final heap size is 4739072 bytes
>Collector appears to work
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -c -I. ./cord/cordbscs.c
>mv cordbscs.o cord/cordbscs.o
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -c -I. ./cord/cordxtra.c
>./cord/cordxtra.c: In function âCORD_from_file_lazy_innerâ:
>./cord/cordxtra.c:577:2: warning: ignoring return value of âfreadâ, declared with attribute warn_unused_result
>mv cordxtra.o cord/cordxtra.o
>gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -c -I. ./cord/cordprnt.c
>mv cordprnt.o cord/cordprnt.o
>rm -f cord/cordtest
>./if_mach SPARC DRSNX gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o cord/cordtest ./cord/cordtest.c cord/cordbscs.o cord/cordxtra.o cord/cordprnt.o gc.a -lucb
>./if_mach HP_PA HPUX gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o cord/cordtest ./cord/cordtest.c cord/cordbscs.o cord/cordxtra.o cord/cordprnt.o gc.a -ldld `./threadlibs`
>./if_mach M68K AMIGA gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -UGC_AMIGA_MAKINGLIB -o cord/cordtest ./cord/cordtest.c cord/cordbscs.o cord/cordxtra.o cord/cordprnt.o gc.a `./threadlibs`
>./if_not_there cord/cordtest gcc  -O -I./include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END -o cord/cordtest ./cord/cordtest.c cord/cordbscs.o cord/cordxtra.o cord/cordprnt.o gc.a `./threadlibs`
>^^^^Starting command^^^^
>cord/cordtest
>SUCCEEDED
>gcc -o stalin -I./include -O2 -pipe\
>              -fno-strict-aliasing -freg-struct-return\
>      stalin.c -L./include -lm -lgc
>stalin.c: In function âf0â:
>stalin.c:548533:8: warning: ignoring return value of âsystemâ, declared with attribute warn_unused_result
>./post-make
>>>> Source compiled.
> * This may take REALLY much time and requires
> * possibly more than 2Gb of RAM+swap.
>compile boyer
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 22086 expressions
>   125 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   205 non-called native procedure types
>   275 called noop native procedure types
>   146 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>  1968 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 28211 type sets
>   632 hunoz variables
>  1548 non-hunoz variables
>   497 noop environments
>  1759 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 22514 expressions
>   125 internal symbol types
>     0 external symbol types
>    30 primitive procedure types
>   231 non-called native procedure types
>   274 called noop native procedure types
>   130 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>  1970 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 28657 type sets
>   636 hunoz variables
>  1578 non-hunoz variables
>   497 noop environments
>  1806 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 8
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  8166 expressions
>   125 internal symbol types
>     0 external symbol types
>    30 primitive procedure types
>   207 non-called native procedure types
>   274 called noop native procedure types
>   130 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>  1970 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 12951 type sets
>   284 hunoz variables
>   572 non-hunoz variables
>     0 noop environments
>   147 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 8
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY-STRING2[1512]
>    has the following parameters:
>      STRING{1856} local
>      PORT{1857} local
>    has the following in-lined locals:
>      N{1858}
>      I{1861}
>  MEMBER[308]
>    has the following parameters:
>      OBJ{914} local
>      LIST{915} local
>  CADDDR[154]
>    has the following parameter:
>      PAIR{800} local
>  EQUAL?[120] reentrant
>    has the following parameters:
>      OBJ1{763} local
>      OBJ2{764} local
>    has the following in-lined locals:
>      OBJ1{756}
>      OBJ2{757}
>      v{758}
>      v{765}
>      v{766}
>  TRUEP[88]
>    has the following parameters:
>      X{751} local
>      LST{752} local
>    has the following in-lined local:
>      v{753}
>  TAUTOLOGYP[73] reentrant
>    has region
>    has the following parameters:
>      X{741} local
>      TRUE-LST{742} local
>      FALSE-LST{743} local
>    has the following in-lined locals:
>      PAIR{782}
>      PAIR{788}
>      PAIR{2190}
>      PAIR{2192}
>      PAIR{2193}
>      PAIR{2194}
>  REWRITE-ARGS[65] reentrant
>    has the following parameter:
>      LST{738} local
>  REWRITE[62] reentrant
>    has region
>    has the following parameter:
>      TERM{737} local
>    has the following in-lined locals:
>      ALIST{720}
>      TERM{721}
>      TERM1{728}
>      TERM2{729}
>      TERM{739}
>      LST{740}
>      PAIR{2191}
>      PAIR{2195}
>      TERM1{2206}
>      TERM2{2207}
>  ONE-WAY-UNIFY1-LST[58] reentrant
>    has the following parameters:
>      LST1{735} local
>      LST2{736} local
>    has the following in-lined locals:
>      TERM1{731}
>      TERM2{732}
>      OBJ{2182}
>      ALIST{2183}
>  FALSEP[44]
>    has the following parameters:
>      X{725} local
>      LST{726} local
>    has the following in-lined local:
>      v{727}
>  APPLY-SUBST-LST[41] reentrant
>    has the following parameters:
>      ALIST{723} local
>      LST{724} local
>    has the following in-lined locals:
>      ALIST{2200}
>      TERM{2201}
>      OBJ{2212}
>      ALIST{2213}
>  GET[16]
>    has the following parameter:
>      X{704} local
>    has the following in-lined locals:
>      W{706}
>      V{707}
>      ALIST{2185}
>      OBJ{2186}
>      ALIST{2187}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      X{708}
>      Z{710}
>      W{711}
>      V{713}
>      TERM{715}
>      LST{718}
>      X{744}
>      TERM{745}
>      ANS{746}
>      ALIST{917}
>      OBJ{1911}
>      PORT{1912}
>      OBJ{2165}
>      OBJ{2180}
>      ALIST{2181}
>      PAIR{2196}
>      PAIR{2197}
>      PAIR{2198}
>      ALIST{2203}
>      TERM{2204}
>The following non-trivial in-line native procedures will be generated:
>  [clone ASSQ[309] 2302]
>    has the following parameters:
>      OBJ{2212} local
>      ALIST{2213} local
>  [clone ONE-WAY-UNIFY1[48] 2288]
>    has the following parameters:
>      TERM1{2206} local
>      TERM2{2207} local
>  [clone APPLY-SUBST[34] 2281]
>    has the following parameters:
>      ALIST{2203} local
>      TERM{2204} local
>  [clone [inside APPLY-SUBST 40] 2280] reentrant
>  [clone APPLY-SUBST[34] 2274] reentrant
>    has the following parameters:
>      ALIST{2200} local
>      TERM{2201} local
>  [clone CADR[136] 2269]
>    has the following parameter:
>      PAIR{2198} local
>  [clone CADR[136] 2268]
>    has the following parameter:
>      PAIR{2197} local
>  [clone CADR[136] 2267]
>    has the following parameter:
>      PAIR{2196} local
>  [clone CADR[136] 2266]
>    has the following parameter:
>      PAIR{2195} local
>  [clone CADR[136] 2265]
>    has the following parameter:
>      PAIR{2194} local
>  [clone CADR[136] 2264]
>    has the following parameter:
>      PAIR{2193} local
>  [clone CADR[136] 2263]
>    has the following parameter:
>      PAIR{2192} local
>  [clone CADDR[142] 2262]
>    has the following parameter:
>      PAIR{2191} local
>  [clone CADDR[142] 2261]
>    has the following parameter:
>      PAIR{2190} local
>  [clone ASSQ[309] 2259]
>    has the following parameters:
>      OBJ{2186} local
>      ALIST{2187} local
>  [clone ASSQ[309] 2258]
>    has the following parameter:
>      ALIST{2185} local
>  [clone ASSQ[309] 2257]
>    has the following parameters:
>      OBJ{2182} local
>      ALIST{2183} local
>  [clone ASSQ[309] 2256]
>    has the following parameters:
>      OBJ{2180} local
>      ALIST{2181} local
>  WRITE[2005]
>    has the following parameter:
>      OBJ{2165} local
>  WRITE2[1588]
>    has the following parameters:
>      OBJ{1911} local
>      PORT{1912} local
>  LOOP[1516]
>    has the following parameter:
>      I{1861} local
>  [inside DISPLAY-STRING2 1513]
>    has the following parameter:
>      N{1858} local
>  [inside top level 1508]
>    has the following parameter:
>      THE-CURRENT-OUTPUT-PORT{1817} global
>  ASSQ[309]
>    has the following parameter:
>      ALIST{917} local
>  CADDR[142]
>    has the following parameter:
>      PAIR{788} local
>  CADR[136]
>    has the following parameter:
>      PAIR{782} local
>  [inside EQUAL? 122]
>    has the following parameter:
>      v{766} local
>  [inside EQUAL? 121] reentrant
>    has the following parameter:
>      v{765} local
>  [inside EQV? 116]
>    has the following parameter:
>      v{758} local
>  EQV?[115]
>    has the following parameters:
>      OBJ1{756} local
>      OBJ2{757} local
>  [inside TRUEP 89]
>    has the following parameter:
>      v{753} local
>  [inside TEST 84]
>    has region
>    has the following parameters:
>      TERM{745} local
>      ANS{746} local
>  TAUTP[82]
>    has the following parameter:
>      X{744} local
>  [inside TAUTOLOGYP 80] reentrant
>  [inside TAUTOLOGYP 79] reentrant
>  [inside TAUTOLOGYP 78] reentrant
>  [inside TAUTOLOGYP 77] reentrant
>  [inside REWRITE-WITH-LEMMAS 71] reentrant
>  [inside REWRITE-WITH-LEMMAS 70] reentrant
>  REWRITE-WITH-LEMMAS[68] reentrant
>    has the following parameters:
>      TERM{739} local
>      LST{740} local
>  [inside REWRITE-ARGS 67] reentrant
>  [inside REWRITE 64] reentrant
>  [inside ONE-WAY-UNIFY1-LST 60] reentrant
>  [inside ONE-WAY-UNIFY1 56] reentrant
>  ONE-WAY-UNIFY1[48] reentrant
>    has the following parameters:
>      TERM1{731} local
>      TERM2{732} local
>  ONE-WAY-UNIFY[46]
>    has the following parameters:
>      TERM1{728} local
>      TERM2{729} local
>  [inside FALSEP 45]
>    has the following parameter:
>      v{727} local
>  [inside APPLY-SUBST-LST 43] reentrant
>  APPLY-SUBST[34]
>    has the following parameters:
>      ALIST{720} local
>      TERM{721} local
>  ADD-LEMMA-LST[30]
>    has the following parameter:
>      LST{718} local
>  ADD-LEMMA[26]
>    has the following parameter:
>      TERM{715} local
>  [inside PUT 22]
>    has the following parameter:
>      V{713} local
>  [inside PUT 20]
>    has the following parameter:
>      W{711} local
>  PUT[19]
>    has the following parameters:
>      X{708} local
>      Z{710} local
>  [inside GET 18]
>    has the following parameter:
>      V{707} local
>  [inside GET 17]
>    has the following parameter:
>      W{706} local
>  [inside RUN 14]
>    has region
>    has the following parameters:
>      TEMP-TEMP{676} global
>      UNIFY-SUBST{677} global
>      *PROPERTY-LISTS*{680} global
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) TERM)))
>The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) TERM)))
>The following expression, boyer-stalin.sc:279:11790, allocates on TAUTOLOGYP[73]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) FALSE-LST)
>The following expression, boyer-stalin.sc:275:11687, allocates on TAUTOLOGYP[73]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) TRUE-LST)
>The following expression, boyer-stalin.sc:111:3731, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REWRITE ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LST)) (REWRITE-ARGS ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LST)))
>The following expression, boyer-stalin.sc:106:3582, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (REWRITE-ARGS ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) TERM)))
>The following expression, boyer-stalin.sc:91:3157, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST)
>The following expression, boyer-stalin.sc:91:3163, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1)
>The following expression, boyer-stalin.sc:78:2710, allocates on [inside TEST 84]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPLY-SUBST ALIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LST)) (APPLY-SUBST-LST ALIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LST)))
>The following expression, boyer-stalin.sc:74:2576, allocates on REWRITE[62]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) TERM)))
>The following expression, boyer-stalin.sc:60:2133, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM (GET ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) (CADR TERM)) (QUOTE LEMMAS)))
>The following expression, boyer-stalin.sc:47:1749, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, boyer-stalin.sc:48:1793, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, boyer-stalin.sc:50:1890, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, boyer-stalin.sc:50:1896, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W22502 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  0% - Reading source
>     0 -  0% - Expanding macros
>     1 -  4% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  1% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     7 - 20% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  0% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  0% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     4 - 13% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     9 - 29% - Asserting uniqueness
>     5 - 15% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     1 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     3 - 10% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  1% - Generating code
>     0 -  0% - Removing unused declarations
>     0 -  0% - Removing unused labels
>     0 -  0% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m39.953s
>user	0m38.637s
>sys	0m1.164s
>run boyer
>
>real	0m16.829s
>user	0m14.770s
>sys	0m2.044s
>compile browse
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17656 expressions
>     8 internal symbol types
>     1 external symbol type
>    31 primitive procedure types
>   209 non-called native procedure types
>   284 called noop native procedure types
>   186 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     2 string types
>    92 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20056 type sets
>   641 hunoz variables
>  1566 non-hunoz variables
>   503 noop environments
>  1683 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17942 expressions
>     8 internal symbol types
>     1 external symbol type
>    31 primitive procedure types
>   209 non-called native procedure types
>   284 called noop native procedure types
>   196 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     2 string types
>   100 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20377 type sets
>   645 hunoz variables
>  1590 non-hunoz variables
>   503 noop environments
>  1702 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 8
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4777 expressions
>     8 internal symbol types
>     1 external symbol type
>    31 primitive procedure types
>   209 non-called native procedure types
>   284 called noop native procedure types
>   196 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     2 string types
>   100 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5877 type sets
>   305 hunoz variables
>   595 non-hunoz variables
>     0 noop environments
>   205 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 8
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  ASSV[357]
>    has the following parameters:
>      OBJ{945} local
>      ALIST{946} local
>    has the following in-lined locals:
>      OBJ1{783}
>      OBJ2{784}
>      v{785}
>  LOOP[269] reentrant
>    has the following parameters:
>      LIST1{877} local
>      LIST2{878} local
>      LISTS{879} local
>  MATCH[95] reentrant
>    has region
>    has the following parameters:
>      PAT{753} local
>      DAT{754} local
>      ALIST{755} local
>    has the following in-lined locals:
>      X{686}
>      Y{687}
>      A{690}
>      B{691}
>      v{756}
>      v{757}
>      v{758}
>      VAL{759}
>      VAL{760}
>      L{763}
>      E{764}
>      D{765}
>      v{766}
>      SS{869}
>      SS{872}
>      v{873}
>      v{874}
>      SS{882}
>      SS{903}
>  GENSYM[34]
>    has the following in-lined locals:
>      STRING{1441}
>      N{1442}
>      R{1443}
>      K{1447}
>  COPY-TREE[24] reentrant
>    has the following parameter:
>      X{693} local
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      *RAND*{666}
>      *PROPERTY-LISTS*{670}
>      X{694}
>      W{696}
>      V{697}
>      X{698}
>      Y{699}
>      W{701}
>      V{703}
>      N{705}
>      M{706}
>      NPATS{707}
>      IPATS{708}
>      IPATS{709}
>      N{713}
>      I{714}
>      NAME{715}
>      A{716}
>      I{723}
>      I{727}
>      IPATS{728}
>      A{729}
>      J{733}
>      P{737}
>      L{739}
>      A{742}
>      N{744}
>      N{749}
>      X{750}
>      UNITS{767}
>      PATS{768}
>      UNITS{771}
>      PATS{775}
>      P{779}
>      PAIR{809}
>      PAIR{811}
>      LIST{847}
>      K{850}
>      S{852}
>      ALIST{944}
>      OBJ{2207}
>      ALIST{2208}
>      OBJ{2209}
>      ALIST{2210}
>      OBJ{2211}
>      ALIST{2212}
>      X{2213}
>      Z{2215}
>      W{2216}
>      V{2218}
>      X{2220}
>      Y{2221}
>      W{2223}
>      V{2225}
>      OBJ{2227}
>      ALIST{2228}
>      OBJ{2229}
>      ALIST{2230}
>      OBJ{2231}
>      ALIST{2232}
>      ALIST{2234}
>The following non-trivial in-line native procedures will be generated:
>  [clone ASSQ[356] 2204]
>    has the following parameter:
>      ALIST{2234} local
>  [clone ASSQ[356] 2203]
>    has the following parameters:
>      OBJ{2231} local
>      ALIST{2232} local
>  [clone ASSQ[356] 2202]
>    has the following parameters:
>      OBJ{2229} local
>      ALIST{2230} local
>  [clone ASSQ[356] 2201]
>    has the following parameters:
>      OBJ{2227} local
>      ALIST{2228} local
>  [clone [inside PUT 31] 2198]
>    has the following parameter:
>      V{2225} local
>  [clone [inside PUT 29] 2196]
>    has the following parameter:
>      W{2223} local
>  [clone PUT[28] 2195]
>    has the following parameters:
>      X{2220} local
>      Y{2221} local
>  [clone [inside PUT 31] 2192]
>    has the following parameter:
>      V{2218} local
>  [clone [inside PUT 29] 2190]
>    has the following parameter:
>      W{2216} local
>  [clone PUT[28] 2189]
>    has the following parameters:
>      X{2213} local
>      Z{2215} local
>  [clone ASSQ[356] 2188]
>    has the following parameters:
>      OBJ{2211} local
>      ALIST{2212} local
>  [clone ASSQ[356] 2187]
>    has the following parameters:
>      OBJ{2209} local
>      ALIST{2210} local
>  [clone ASSQ[356] 2186]
>    has the following parameters:
>      OBJ{2207} local
>      ALIST{2208} local
>  LOOP[829]
>    has the following parameter:
>      K{1447} local
>  [inside STRING-COPY 824]
>    has the following parameter:
>      R{1443} local
>  [inside STRING-COPY 823]
>    has the following parameter:
>      N{1442} local
>  STRING-COPY[822]
>    has the following parameter:
>      STRING{1441} local
>  ASSQ[356]
>    has the following parameter:
>      ALIST{944} local
>  LOOP[301]
>    has the following parameter:
>      SS{903} local
>  LOOP[273]
>    has the following parameter:
>      SS{882} local
>  [inside LOOP 262]
>    has the following parameter:
>      v{874} local
>  [inside LOOP 261]
>    has the following parameter:
>      v{873} local
>  LOOP[260]
>    has the following parameter:
>      SS{872} local
>  APPEND[256]
>    has the following parameter:
>      SS{869} local
>  LENGTH[229]
>    has the following parameter:
>      S{852} local
>  LOOP[224]
>    has the following parameter:
>      K{850} local
>  LIST-LENGTH[221]
>    has the following parameter:
>      LIST{847} local
>  CDDR[185]
>    has the following parameter:
>      PAIR{811} local
>  CADR[183]
>    has the following parameter:
>      PAIR{809} local
>  [inside EQV? 163]
>    has the following parameter:
>      v{785} local
>  EQV?[162]
>    has the following parameters:
>      OBJ1{783} local
>      OBJ2{784} local
>  loop[138]
>    has region
>    has the following parameter:
>      P{779} local
>  loop[132]
>    has the following parameter:
>      PATS{775} local
>  loop[126]
>    has the following parameter:
>      UNITS{771} local
>  INVESTIGATE[123]
>    has the following parameters:
>      UNITS{767} local
>      PATS{768} local
>  BROWSE[122]
>    has region
>  [inside MATCH 121] reentrant
>  [inside loop 118] reentrant
>  [inside loop 116] reentrant
>    has the following parameter:
>      v{766} local
>  loop[115] reentrant
>    has the following parameters:
>      L{763} local
>      E{764} local
>      D{765} local
>  [inside MATCH 114] reentrant
>  [inside MATCH 113] reentrant
>  [inside MATCH 112] reentrant
>  [inside MATCH 111] reentrant
>  [inside MATCH 110] reentrant
>    has the following parameter:
>      VAL{760} local
>  [inside MATCH 109] reentrant
>  [inside MATCH 108] reentrant
>  [inside MATCH 107] reentrant
>  [inside MATCH 106] reentrant
>    has the following parameter:
>      VAL{759} local
>  [inside MATCH 105] reentrant
>  [inside MATCH 104] reentrant
>  [inside MATCH 103] reentrant
>  [inside MATCH 102] reentrant
>    has the following parameter:
>      v{758} local
>  [inside MATCH 101] reentrant
>    has the following parameter:
>      v{757} local
>  [inside MATCH 100] reentrant
>  [inside MATCH 99] reentrant
>  [inside MATCH 98]
>    has the following parameter:
>      v{756} local
>  loop[89]
>    has the following parameters:
>      N{749} local
>      X{750} local
>  [inside loop 83]
>    has the following parameter:
>      N{744} local
>  loop[79]
>    has the following parameter:
>      A{742} local
>  RANDOMIZE[76]
>    has the following parameter:
>      L{739} local
>  loop[70]
>    has the following parameter:
>      P{737} local
>  loop[62]
>    has the following parameter:
>      J{733} local
>  loop[55]
>    has the following parameters:
>      I{727} local
>      IPATS{728} local
>      A{729} local
>  loop[48]
>    has the following parameter:
>      I{723} local
>  loop[40]
>    has the following parameters:
>      N{713} local
>      I{714} local
>      NAME{715} local
>      A{716} local
>  [inside INIT 36]
>    has the following parameter:
>      IPATS{709} local
>  INIT[35]
>    has the following parameters:
>      N{705} local
>      M{706} local
>      NPATS{707} local
>      IPATS{708} local
>  [inside PUT 31]
>    has the following parameter:
>      V{703} local
>  [inside PUT 29]
>    has the following parameter:
>      W{701} local
>  PUT[28]
>    has the following parameters:
>      X{698} local
>      Y{699} local
>  [inside GET 27]
>    has the following parameter:
>      V{697} local
>  [inside GET 26]
>    has the following parameter:
>      W{696} local
>  GET[25]
>    has the following parameter:
>      X{694} local
>  loop[19]
>    has the following parameters:
>      A{690} local
>      B{691} local
>  APPEND![16]
>    has the following parameters:
>      X{686} local
>      Y{687} local
>  [inside RUN 14]
>    has region
>    has the following parameters:
>      *RAND*{666} local
>      *PROPERTY-LISTS*{670} local
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) N)
>The following expression allocates on MATCH[95]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, browse-stalin.sc:135:4679, allocates on loop[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF ((PRIMITIVE-PROCEDURE NULL?) D) (QUOTE ()) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) D)) (QUOTE ()))
>The following expression, browse-stalin.sc:144:4900, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) L) ALIST)
>The following expression, browse-stalin.sc:144:4906, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) L)
>The following expression, browse-stalin.sc:139:4766, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) DAT)
>The following expression, browse-stalin.sc:130:4562, allocates on MATCH[95]:
>(APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) VAL) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PAT))
>The following expression, browse-stalin.sc:125:4366, allocates on MATCH[95]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) DAT)) ALIST)
>The following expression, browse-stalin.sc:125:4372, allocates on MATCH[95]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) DAT))
>The following expression, browse-stalin.sc:121:4263, allocates on MATCH[95]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) VAL) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PAT))
>The following expression, browse-stalin.sc:105:3685, allocates on BROWSE[122]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) A)
>The following expression, browse-stalin.sc:100:3570, allocates on BROWSE[122]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) A)
>The following expression, browse-stalin.sc:89:3255, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) IPATS) A)
>The following expression, browse-stalin.sc:83:3066, allocates on BROWSE[122]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME A)
>The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression, browse-stalin.sc:41:1882, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (COPY-TREE ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X)) (COPY-TREE ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) X)))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17854 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  2% - Expanding macros
>     1 - 27% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 -  9% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 20% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  7% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  2% - Asserting uniqueness
>     0 -  9% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  5% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m6.875s
>user	0m6.571s
>sys	0m0.259s
>run browse
>
>real	0m7.856s
>user	0m7.631s
>sys	0m0.221s
>compile cpstak
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16583 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    59 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18692 type sets
>   598 hunoz variables
>  1502 non-hunoz variables
>   474 noop environments
>  1568 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16583 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    59 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18692 type sets
>   598 hunoz variables
>  1502 non-hunoz variables
>   474 noop environments
>  1568 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3357 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    59 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4113 type sets
>   258 hunoz variables
>   489 non-hunoz variables
>     0 noop environments
>    59 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedure will be generated:
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      X{661}
>      Y{662}
>      Z{663}
>      A{666}
>      V3{673}
>      NUMBER{1783}
>      PORT{1784}
>      I{1787}
>      NUMBER{1788}
>      I{1791}
>      I{1797}
>      NUMBER{1798}
>      I{1801}
>      OBJ{1831}
>      PORT{1832}
>      OBJ{2085}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1791]
>    has the following parameter:
>      OBJ{2085} local
>  WRITE2[1374]
>    has the following parameters:
>      OBJ{1831} local
>      PORT{1832} local
>  LOOP[1328]
>    has the following parameter:
>      I{1801} local
>  LOOP[1325]
>    has the following parameters:
>      I{1797} local
>      NUMBER{1798} local
>  LOOP[1314]
>    has the following parameter:
>      I{1791} local
>  LOOP[1311]
>    has the following parameters:
>      I{1787} local
>      NUMBER{1788} local
>  DISPLAY-EXACT-INTEGER2[1307]
>    has the following parameters:
>      NUMBER{1783} local
>      PORT{1784} local
>  [inside top level 1294]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1737} global
>      BUFFER{1739} global
>  [inside TAK 20]
>    has parent parameter [inside TAK 19]
>    has the following parameter:
>      V3{673} local
>  [inside TAK 19]
>    has parent parameter [inside TAK 18]
>    has closure
>    has parent slot [inside TAK 18]
>    has the following parameter:
>      V2{672} slotted
>  [inside TAK 18]
>    has parent parameter TAK[17]
>    has closure
>    has parent slot TAK[17]
>    has the following parameter:
>      V1{671} slotted
>  TAK[17]
>    has closure
>    has region
>    has the following parameters:
>      X{667} slotted
>      Y{668} slotted
>      Z{669} slotted
>      K{670} slotted
>  [inside CPSTAK 16]
>    has the following parameter:
>      A{666} local
>  CPSTAK[13]
>    has the following parameters:
>      X{661} local
>      Y{662} local
>      Z{663} local
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The closure for [inside TAK 19] is allocated on TAK[17]
>The closure for [inside TAK 18] is allocated on TAK[17]
>The closure for TAK[17] is allocated on TAK[17]
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16584 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  3% - Reading source
>     0 -  3% - Expanding macros
>     1 - 36% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 14% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 22% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  4% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  1% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  3% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m4.945s
>user	0m4.775s
>sys	0m0.157s
>run cpstak
>
>real	0m0.631s
>user	0m0.603s
>sys	0m0.027s
>compile ctak
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16594 expressions
>     0 internal symbol types
>     0 external symbol types
>    27 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    60 called non-noop native procedure types
>     1 foreign procedure type
>     5 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18704 type sets
>   598 hunoz variables
>  1503 non-hunoz variables
>   474 noop environments
>  1569 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16594 expressions
>     0 internal symbol types
>     0 external symbol types
>    27 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    60 called non-noop native procedure types
>     1 foreign procedure type
>     5 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18704 type sets
>   598 hunoz variables
>  1503 non-hunoz variables
>   474 noop environments
>  1569 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3368 expressions
>     0 internal symbol types
>     0 external symbol types
>    27 primitive procedure types
>   214 non-called native procedure types
>   254 called noop native procedure types
>    60 called non-noop native procedure types
>     1 foreign procedure type
>     5 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4125 type sets
>   258 hunoz variables
>   490 non-hunoz variables
>     0 noop environments
>    60 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  CTAK-AUX[15] reentrant
>    has the following parameters:
>      K{667} local
>      X{668} local
>      Y{669} local
>      Z{670} local
>    has the following in-lined locals:
>      K{671}
>      K{672}
>      K{673}
>      K{674}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{660}
>      X{663}
>      Y{664}
>      Z{665}
>      K{666}
>      NUMBER{1784}
>      PORT{1785}
>      I{1788}
>      NUMBER{1789}
>      I{1792}
>      I{1798}
>      NUMBER{1799}
>      I{1802}
>      OBJ{1832}
>      PORT{1833}
>      OBJ{2086}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1792]
>    has the following parameter:
>      OBJ{2086} local
>  WRITE2[1375]
>    has the following parameters:
>      OBJ{1832} local
>      PORT{1833} local
>  LOOP[1329]
>    has the following parameter:
>      I{1802} local
>  LOOP[1326]
>    has the following parameters:
>      I{1798} local
>      NUMBER{1799} local
>  LOOP[1315]
>    has the following parameter:
>      I{1792} local
>  LOOP[1312]
>    has the following parameters:
>      I{1788} local
>      NUMBER{1789} local
>  DISPLAY-EXACT-INTEGER2[1308]
>    has the following parameters:
>      NUMBER{1784} local
>      PORT{1785} local
>  [inside top level 1295]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1738} global
>      BUFFER{1740} global
>  [inside CTAK-AUX 21] reentrant
>    has the following parameter:
>      K{674} local
>  [inside CTAK-AUX 20] reentrant
>    has the following parameter:
>      K{673} local
>  [inside CTAK-AUX 19] reentrant
>    has the following parameter:
>      K{672} local
>  [inside CTAK-AUX 18] reentrant
>    has the following parameter:
>      K{671} local
>  [inside CTAK-AUX 17] reentrant
>  [inside CTAK 14]
>    has the following parameter:
>      K{666} local
>  CTAK[13]
>    has the following parameters:
>      X{663} local
>      Y{664} local
>      Z{665} local
>  loop[8]
>    has the following parameter:
>      I{660} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16595 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W16542 is general case for the following reasons:
>  insufficient squish tag bits (3 needed 2 available)
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 37% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 14% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 22% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  2% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  1% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  2% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m4.925s
>user	0m4.744s
>sys	0m0.169s
>run ctak
>
>real	0m1.950s
>user	0m1.940s
>sys	0m0.010s
>compile dderiv
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17020 expressions
>     9 internal symbol types
>     0 external symbol types
>    17 primitive procedure types
>   213 non-called native procedure types
>   261 called noop native procedure types
>    62 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    96 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19355 type sets
>   617 hunoz variables
>  1517 non-hunoz variables
>   485 noop environments
>  1595 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17765 expressions
>     9 internal symbol types
>     0 external symbol types
>    17 primitive procedure types
>   216 non-called native procedure types
>   264 called noop native procedure types
>   116 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>   108 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20159 type sets
>   623 hunoz variables
>  1571 non-hunoz variables
>   488 noop environments
>  1691 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 10
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4238 expressions
>     9 internal symbol types
>     0 external symbol types
>    17 primitive procedure types
>   213 non-called native procedure types
>   264 called noop native procedure types
>   116 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>   108 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5269 type sets
>   276 hunoz variables
>   555 non-hunoz variables
>     0 noop environments
>   141 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 10
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  MAP[852] reentrant
>    has the following parameters:
>      PROC{1480} local
>      LIST1{1481} local
>    has the following in-lined locals:
>      A{693}
>      LIST{848}
>      LIST{851}
>      R{852}
>      LIST1{1485}
>      C{1486}
>      OBJS{2144}
>      A{2176}
>      DDERIV{2177}
>      A{2178}
>      DDERIV{2179}
>  CADR[78]
>    has the following parameter:
>      PAIR{736} local
>  /DDERIV[27] reentrant
>    has the following parameter:
>      A{697} local
>    has the following in-lined locals:
>      OBJS{773}
>      OBJS{2140}
>      OBJS{2141}
>      OBJS{2142}
>      A{2172}
>      DDERIV{2173}
>      A{2174}
>      DDERIV{2175}
>  *DDERIV[26] reentrant
>    has the following parameter:
>      A{696} local
>    has the following in-lined local:
>      OBJS{2143}
>  -DDERIV[25] reentrant
>    has the following parameter:
>      A{695} local
>  +DDERIV[24] reentrant
>    has the following parameter:
>      A{694} local
>  GET[13]
>    has the following parameter:
>      X{682} local
>    has the following in-lined locals:
>      W{684}
>      V{685}
>      ALIST{871}
>      OBJ{2134}
>      ALIST{2135}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{680}
>      W{689}
>      V{691}
>      A{698}
>      DDERIV{699}
>      I{702}
>      ALIST{2137}
>      ALIST{2139}
>      W{2148}
>      V{2150}
>      W{2155}
>      V{2157}
>      W{2162}
>      V{2164}
>      A{2166}
>      DDERIV{2167}
>      A{2168}
>      DDERIV{2169}
>      A{2170}
>      DDERIV{2171}
>      A{2180}
>      DDERIV{2181}
>      ALIST{2183}
>      ALIST{2185}
>      ALIST{2187}
>      ALIST{2189}
>      ALIST{2191}
>      ALIST{2193}
>The following non-trivial in-line native procedures will be generated:
>  [clone ASSQ[251] 2178]
>    has the following parameter:
>      ALIST{2193} local
>  [clone ASSQ[251] 2177]
>    has the following parameter:
>      ALIST{2191} local
>  [clone ASSQ[251] 2176]
>    has the following parameter:
>      ALIST{2189} local
>  [clone ASSQ[251] 2175]
>    has the following parameter:
>      ALIST{2187} local
>  [clone ASSQ[251] 2174]
>    has the following parameter:
>      ALIST{2185} local
>  [clone ASSQ[251] 2173]
>    has the following parameter:
>      ALIST{2183} local
>  [clone [inside DDERIV 33] 2170]
>    has the following parameter:
>      DDERIV{2181} local
>  [clone DDERIV[28] 2165]
>    has the following parameter:
>      A{2180} local
>  [clone [inside DDERIV 34] 2163] reentrant
>  [clone [inside DDERIV 33] 2162] reentrant
>    has the following parameter:
>      DDERIV{2179} local
>  [clone [inside DDERIV 32] 2161] reentrant
>  [clone DDERIV[28] 2157] reentrant
>    has the following parameter:
>      A{2178} local
>  [clone [inside DDERIV 34] 2155] reentrant
>  [clone [inside DDERIV 33] 2154] reentrant
>    has the following parameter:
>      DDERIV{2177} local
>  [clone [inside DDERIV 32] 2153] reentrant
>  [clone DDERIV[28] 2149] reentrant
>    has the following parameter:
>      A{2176} local
>  [clone [inside DDERIV 34] 2147] reentrant
>  [clone [inside DDERIV 33] 2146] reentrant
>    has the following parameter:
>      DDERIV{2175} local
>  [clone [inside DDERIV 32] 2145] reentrant
>  [clone DDERIV[28] 2141] reentrant
>    has the following parameter:
>      A{2174} local
>  [clone [inside DDERIV 34] 2139] reentrant
>  [clone [inside DDERIV 33] 2138] reentrant
>    has the following parameter:
>      DDERIV{2173} local
>  [clone [inside DDERIV 32] 2137] reentrant
>  [clone DDERIV[28] 2133] reentrant
>    has the following parameter:
>      A{2172} local
>  [clone [inside DDERIV 33] 2130]
>    has the following parameter:
>      DDERIV{2171} local
>  [clone DDERIV[28] 2125]
>    has the following parameter:
>      A{2170} local
>  [clone [inside DDERIV 33] 2122]
>    has the following parameter:
>      DDERIV{2169} local
>  [clone DDERIV[28] 2117]
>    has the following parameter:
>      A{2168} local
>  [clone [inside DDERIV 33] 2114]
>    has the following parameter:
>      DDERIV{2167} local
>  [clone DDERIV[28] 2109]
>    has the following parameter:
>      A{2166} local
>  [clone [inside PUT 19] 2105]
>    has the following parameter:
>      V{2164} local
>  [clone [inside PUT 17] 2103]
>    has the following parameter:
>      W{2162} local
>  [clone [inside PUT 19] 2098]
>    has the following parameter:
>      V{2157} local
>  [clone [inside PUT 17] 2096]
>    has the following parameter:
>      W{2155} local
>  [clone [inside PUT 19] 2091]
>    has the following parameter:
>      V{2150} local
>  [clone [inside PUT 17] 2089]
>    has the following parameter:
>      W{2148} local
>  [clone LIST[115] 2087]
>    has the following parameter:
>      OBJS{2144} local
>  [clone LIST[115] 2086]
>    has the following parameter:
>      OBJS{2143} local
>  [clone LIST[115] 2085]
>    has the following parameter:
>      OBJS{2142} local
>  [clone LIST[115] 2084]
>    has the following parameter:
>      OBJS{2141} local
>  [clone LIST[115] 2083]
>    has the following parameter:
>      OBJS{2140} local
>  [clone ASSQ[251] 2082]
>    has the following parameter:
>      ALIST{2139} local
>  [clone ASSQ[251] 2081]
>    has the following parameter:
>      ALIST{2137} local
>  [clone ASSQ[251] 2080]
>    has the following parameters:
>      OBJ{2134} local
>      ALIST{2135} local
>  LOOP[856] reentrant
>    has the following parameters:
>      LIST1{1485} local
>      C{1486} local
>  [inside MAP 853] reentrant
>  ASSQ[251]
>    has the following parameter:
>      ALIST{871} local
>  LOOP[226]
>    has the following parameters:
>      LIST{851} local
>      R{852} local
>  LIST-REVERSE[223]
>    has the following parameter:
>      LIST{848} local
>  LIST[115]
>    has the following parameter:
>      OBJS{773} local
>  loop[39]
>    has region
>    has the following parameter:
>      I{702} local
>  [inside DDERIV 33]
>    has the following parameter:
>      DDERIV{699} local
>  DDERIV[28]
>    has the following parameter:
>      A{698} local
>  DDERIV-AUX[23] reentrant
>    has the following parameter:
>      A{693} local
>  [inside PUT 19]
>    has the following parameter:
>      V{691} local
>  [inside PUT 17]
>    has the following parameter:
>      W{689} local
>  [inside GET 15]
>    has the following parameter:
>      V{685} local
>  [inside GET 14]
>    has the following parameter:
>      W{684} local
>  loop[8]
>    has the following parameter:
>      I{680} local
>  [inside top level 4]
>    has the following parameter:
>      *PROPERTY-LISTS*{661} global
>The following expression, dderiv-stalin.sc:51:2178, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, dderiv-stalin.sc:52:2221, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, dderiv-stalin.sc:54:2316, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, dderiv-stalin.sc:54:2322, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression, dderiv-stalin.sc:51:2178, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, dderiv-stalin.sc:52:2221, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, dderiv-stalin.sc:54:2316, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, dderiv-stalin.sc:54:2322, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression, dderiv-stalin.sc:51:2178, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, dderiv-stalin.sc:52:2221, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, dderiv-stalin.sc:54:2316, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, dderiv-stalin.sc:54:2322, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>The following expression allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on loop[39]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, dderiv-stalin.sc:71:2794, allocates on loop[39]:
>(LIST (QUOTE -) (LIST (QUOTE /) (DDERIV ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) A)) (CADR A)) (LIST (QUOTE /) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) A) (LIST (QUOTE *) (CADR A) (CADR A) (DDERIV (CADR A)))))
>The following expression, dderiv-stalin.sc:73:2853, allocates on loop[39]:
>(LIST (QUOTE /) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) A) (LIST (QUOTE *) (CADR A) (CADR A) (DDERIV (CADR A))))
>The following expression, dderiv-stalin.sc:75:2882, allocates on loop[39]:
>(LIST (QUOTE *) (CADR A) (CADR A) (DDERIV (CADR A)))
>The following expression, dderiv-stalin.sc:72:2810, allocates on loop[39]:
>(LIST (QUOTE /) (DDERIV ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) A)) (CADR A))
>The following expression, dderiv-stalin.sc:66:2650, allocates on loop[39]:
>(LIST (QUOTE *) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE *) A) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DDERIV-AUX A)))
>The following expression, dderiv-stalin.sc:66:2671, allocates on loop[39]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DDERIV-AUX A))
>The following expression, dderiv-stalin.sc:66:2659, allocates on loop[39]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE *) A)
>The following expression, dderiv-stalin.sc:62:2533, allocates on loop[39]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE -) (MAP DDERIV A))
>The following expression, dderiv-stalin.sc:58:2416, allocates on loop[39]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DDERIV A))
>The following expression, dderiv-stalin.sc:56:2371, allocates on loop[39]:
>(LIST (QUOTE /) (DDERIV A) A)
>The following expression, dderiv-stalin.sc:51:2178, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (QUOTE ()))
>The following expression, dderiv-stalin.sc:52:2221, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*)
>The following expression, dderiv-stalin.sc:54:2316, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W))
>The following expression, dderiv-stalin.sc:54:2322, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17639 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 29% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 10% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 19% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  7% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  3% - Asserting uniqueness
>     0 -  6% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  5% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m6.166s
>user	0m5.989s
>sys	0m0.142s
>run dderiv
>
>real	0m1.557s
>user	0m1.552s
>sys	0m0.005s
>compile deriv
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16907 expressions
>     8 internal symbol types
>     0 external symbol types
>    16 primitive procedure types
>   215 non-called native procedure types
>   253 called noop native procedure types
>    46 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    86 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19188 type sets
>   604 hunoz variables
>  1496 non-hunoz variables
>   477 noop environments
>  1582 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16909 expressions
>     8 internal symbol types
>     0 external symbol types
>    16 primitive procedure types
>   215 non-called native procedure types
>   253 called noop native procedure types
>    46 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    86 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19190 type sets
>   604 hunoz variables
>  1497 non-hunoz variables
>   477 noop environments
>  1583 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 2
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3414 expressions
>     8 internal symbol types
>     0 external symbol types
>    16 primitive procedure types
>   215 non-called native procedure types
>   253 called noop native procedure types
>    46 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    86 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4329 type sets
>   257 hunoz variables
>   478 non-hunoz variables
>     0 noop environments
>    47 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 2
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  MAP[831] reentrant
>    has the following parameters:
>      PROC{1446} local
>      LIST1{1447} local
>    has the following in-lined locals:
>      A{664}
>      LIST{814}
>      LIST{817}
>      R{818}
>      LIST1{1451}
>      C{1452}
>      OBJS{2100}
>  DERIV[14] reentrant
>    has the following parameter:
>      A{665} local
>    has the following in-lined local:
>      OBJS{739}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{662}
>      I{668}
>The following non-trivial in-line native procedures will be generated:
>  [clone LIST[95] 2059]
>    has the following parameter:
>      OBJS{2100} local
>  LOOP[835] reentrant
>    has the following parameters:
>      LIST1{1451} local
>      C{1452} local
>  [inside MAP 832] reentrant
>  LOOP[206]
>    has the following parameters:
>      LIST{817} local
>      R{818} local
>  LIST-REVERSE[203]
>    has the following parameter:
>      LIST{814} local
>  LIST[95]
>    has the following parameter:
>      OBJS{739} local
>  loop[26]
>    has region
>    has the following parameter:
>      I{668} local
>  [inside DERIV 20] reentrant
>  [inside DERIV 18] reentrant
>  DERIV-AUX[13] reentrant
>    has the following parameter:
>      A{664} local
>  loop[8]
>    has the following parameter:
>      I{662} local
>The following expression allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on loop[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, deriv-stalin.sc:28:1113, allocates on loop[26]:
>(LIST (QUOTE *) A ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DERIV-AUX ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) A))))
>The following expression, deriv-stalin.sc:28:1124, allocates on loop[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DERIV-AUX ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) A)))
>The following expression, deriv-stalin.sc:26:1001, allocates on loop[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE +) (MAP DERIV ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) A)))
>The following expression, deriv-stalin.sc:22:878, allocates on loop[26]:
>(LIST (QUOTE /) (DERIV A) A)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16910 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 12% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  5% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     0 -  2% - Asserting uniqueness
>     0 -  3% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  3% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.402s
>user	0m5.138s
>sys	0m0.250s
>run deriv
>
>real	0m3.199s
>user	0m2.016s
>sys	0m1.183s
>compile destruct
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16875 expressions
>     0 internal symbol types
>     0 external symbol types
>    20 primitive procedure types
>   216 non-called native procedure types
>   260 called noop native procedure types
>    87 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19025 type sets
>   614 hunoz variables
>  1521 non-hunoz variables
>   485 noop environments
>  1615 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>1 pass of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3456 expressions
>     0 internal symbol types
>     0 external symbol types
>    20 primitive procedure types
>   216 non-called native procedure types
>   260 called noop native procedure types
>    87 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4233 type sets
>   267 hunoz variables
>   495 non-hunoz variables
>     0 noop environments
>    87 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  LENGTH[151]
>    has the following parameter:
>      S{780} local
>    has the following in-lined locals:
>      LIST{775}
>      K{778}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{660}
>      X{662}
>      Y{663}
>      A{666}
>      B{667}
>      N{669}
>      M{670}
>      L{671}
>      I{674}
>      L{678}
>      v{681}
>      J{684}
>      A{685}
>      L1{688}
>      L2{689}
>      J{693}
>      A{694}
>      N{696}
>      J{700}
>      A{701}
>      X{702}
>      I{707}
>      A{708}
>The following non-trivial in-line native procedures will be generated:
>  LOOP[146]
>    has the following parameter:
>      K{778} local
>  LIST-LENGTH[143]
>    has the following parameter:
>      LIST{775} local
>  loop[75]
>    has the following parameters:
>      I{707} local
>      A{708} local
>  [inside loop 66]
>    has the following parameter:
>      X{702} local
>  loop[64]
>    has the following parameters:
>      J{700} local
>      A{701} local
>  [inside loop 58]
>    has the following parameter:
>      N{696} local
>  loop[53]
>    has the following parameters:
>      J{693} local
>      A{694} local
>  loop[47]
>    has the following parameters:
>      L1{688} local
>      L2{689} local
>  loop[39]
>    has the following parameters:
>      J{684} local
>      A{685} local
>  [inside loop 36]
>    has the following parameter:
>      v{681} local
>  loop[32]
>    has the following parameter:
>      L{678} local
>  loop[25]
>    has the following parameter:
>      I{674} local
>  [inside DESTRUCTIVE 22]
>    has the following parameter:
>      L{671} local
>  DESTRUCTIVE[21]
>    has region
>    has the following parameters:
>      N{669} local
>      M{670} local
>  loop[16]
>    has the following parameters:
>      A{666} local
>      B{667} local
>  APPEND![13]
>    has the following parameters:
>      X{662} local
>      Y{663} local
>  loop[8]
>    has the following parameter:
>      I{660} local
>The following expression, destruct-stalin.sc:27:989, allocates on DESTRUCTIVE[21]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) A)
>The following expression, destruct-stalin.sc:33:1230, allocates on DESTRUCTIVE[21]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) A)
>The following expression, destruct-stalin.sc:31:1154, allocates on DESTRUCTIVE[21]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) (QUOTE ()))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16876 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  4% - Expanding macros
>     1 - 41% - Fast tree shake
>     0 -  4% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 14% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 12% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  1% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  1% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  1% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  2% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  2% - Generating C code
>     0 -  0% - Writing database
>     0 -  1% - Compiling C code
>
>real	0m4.686s
>user	0m4.591s
>sys	0m0.084s
>run destruct
>
>real	0m0.759s
>user	0m0.695s
>sys	0m0.064s
>compile div-iter
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16637 expressions
>     0 internal symbol types
>     0 external symbol types
>    14 primitive procedure types
>   217 non-called native procedure types
>   254 called noop native procedure types
>    41 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18760 type sets
>   606 hunoz variables
>  1504 non-hunoz variables
>   480 noop environments
>  1578 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>1 pass of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3175 expressions
>     0 internal symbol types
>     0 external symbol types
>    14 primitive procedure types
>   217 non-called native procedure types
>   254 called noop native procedure types
>    41 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  3920 type sets
>   257 hunoz variables
>   475 non-hunoz variables
>     0 noop environments
>    41 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  ITERATIVE-DIV2[20]
>    has the following parameter:
>      L{671} local
>    has the following in-lined locals:
>      L{674}
>      A{675}
>      PAIR{714}
>  [inside top level 0]
>    has the following in-lined locals:
>      *LL*{654}
>      I{664}
>      N{666}
>      N{669}
>      A{670}
>      L{676}
>      I{679}
>The following non-trivial in-line native procedures will be generated:
>  CDDR[65]
>    has the following parameter:
>      PAIR{714} local
>  loop[30]
>    has region
>    has the following parameter:
>      I{679} local
>  TEST-1[27]
>    has the following parameter:
>      L{676} local
>  loop[23]
>    has the following parameters:
>      L{674} local
>      A{675} local
>  loop[16]
>    has the following parameters:
>      N{669} local
>      A{670} local
>  CREATE-N[13]
>    has the following parameter:
>      N{666} local
>  loop[8]
>    has the following parameter:
>      I{664} local
>  [inside top level 4]
>    has the following parameter:
>      *LL*{654} local
>The following expression, div-iter-stalin.sc:23:847, allocates on loop[30]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) A)
>The following expression, div-iter-stalin.sc:18:732, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) A)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16638 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  3% - Reading source
>     0 -  3% - Expanding macros
>     1 - 45% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  2% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 15% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 11% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  1% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  3% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  1% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  1% - Generating code
>     0 -  2% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m4.479s
>user	0m4.342s
>sys	0m0.107s
>run div-iter
>
>real	0m0.432s
>user	0m0.427s
>sys	0m0.003s
>compile div-rec
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16624 expressions
>     0 internal symbol types
>     0 external symbol types
>    14 primitive procedure types
>   217 non-called native procedure types
>   253 called noop native procedure types
>    38 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18743 type sets
>   605 hunoz variables
>  1501 non-hunoz variables
>   479 noop environments
>  1575 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>1 pass of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3162 expressions
>     0 internal symbol types
>     0 external symbol types
>    14 primitive procedure types
>   217 non-called native procedure types
>   253 called noop native procedure types
>    38 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  3903 type sets
>   256 hunoz variables
>   472 non-hunoz variables
>     0 noop environments
>    38 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  RECURSIVE-DIV2[20] reentrant
>    has the following parameter:
>      L{671} local
>    has the following in-lined local:
>      PAIR{710}
>  [inside top level 0]
>    has the following in-lined locals:
>      *LL*{654}
>      I{664}
>      N{666}
>      N{669}
>      A{670}
>      L{672}
>      I{675}
>The following non-trivial in-line native procedures will be generated:
>  CDDR[61]
>    has the following parameter:
>      PAIR{710} local
>  loop[26]
>    has region
>    has the following parameter:
>      I{675} local
>  TEST-2[23]
>    has the following parameter:
>      L{672} local
>  [inside RECURSIVE-DIV2 22] reentrant
>  loop[16]
>    has the following parameters:
>      N{669} local
>      A{670} local
>  CREATE-N[13]
>    has the following parameter:
>      N{666} local
>  loop[8]
>    has the following parameter:
>      I{664} local
>  [inside top level 4]
>    has the following parameter:
>      *LL*{654} local
>The following expression, div-rec-stalin.sc:23:848, allocates on loop[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) (RECURSIVE-DIV2 (CDDR L)))
>The following expression, div-rec-stalin.sc:18:732, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) A)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16625 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 45% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  2% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 15% - In-lining first-order calls to primitive procedures
>     0 -  1% - Annotating variables with their references
>     0 - 11% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  3% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  1% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     0 -  1% - Asserting uniqueness
>     0 -  2% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  1% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  2% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m4.683s
>user	0m4.445s
>sys	0m0.208s
>run div-rec
>
>real	0m0.798s
>user	0m0.792s
>sys	0m0.006s
>compile fft
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17065 expressions
>     0 internal symbol types
>     0 external symbol types
>    36 primitive procedure types
>   214 non-called native procedure types
>   271 called noop native procedure types
>    84 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    10 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19265 type sets
>   658 hunoz variables
>  1531 non-hunoz variables
>   495 noop environments
>  1609 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17065 expressions
>     0 internal symbol types
>     0 external symbol types
>    36 primitive procedure types
>   214 non-called native procedure types
>   271 called noop native procedure types
>    84 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    10 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19265 type sets
>   658 hunoz variables
>  1531 non-hunoz variables
>   495 noop environments
>  1609 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3713 expressions
>     0 internal symbol types
>     0 external symbol types
>    36 primitive procedure types
>   214 non-called native procedure types
>   271 called noop native procedure types
>    84 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    10 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4546 type sets
>   311 hunoz variables
>   511 non-hunoz variables
>     0 noop environments
>    84 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedure will be generated:
>  [inside top level 0]
>    has the following in-lined locals:
>      *IM*{654}
>      *RE*{655}
>      PI{656}
>      I{666}
>      AREAL{668}
>      AIMAG{669}
>      TI{670}
>      TR{671}
>      WI{672}
>      WR{673}
>      UI{674}
>      UR{675}
>      NV2{677}
>      IP{678}
>      LE1{679}
>      LE{680}
>      N{681}
>      M{682}
>      K{683}
>      J{684}
>      I{685}
>      AI{686}
>      AR{687}
>      I{708}
>      P{709}
>      L{729}
>      I{743}
>      P{744}
>      J{747}
>      I{751}
>      NTIMES{761}
>      STRING{1865}
>      PORT{1866}
>      N{1867}
>      I{1870}
>      OBJ{1954}
>      PORT{1955}
>      OBJ{2176}
>The following non-trivial in-line native procedures will be generated:
>  DISPLAY[1857]
>    has the following parameter:
>      OBJ{2176} local
>  DISPLAY2[1496]
>    has the following parameters:
>      OBJ{1954} local
>      PORT{1955} local
>  LOOP[1364]
>    has the following parameter:
>      I{1870} local
>  [inside DISPLAY-STRING2 1361]
>    has the following parameter:
>      N{1867} local
>  DISPLAY-STRING2[1360]
>    has the following parameters:
>      STRING{1865} local
>      PORT{1866} local
>  [inside top level 1356]
>    has the following parameter:
>      THE-CURRENT-OUTPUT-PORT{1826} global
>  loop[75]
>    has the following parameter:
>      NTIMES{761} local
>  loop[65]
>    has the following parameter:
>      I{751} local
>  loop[59]
>    has the following parameter:
>      J{747} local
>  LOOP[55]
>    has the following parameters:
>      I{743} local
>      P{744} local
>  loop[49]
>    has the following parameter:
>      L{729} local
>  LOOP[25]
>    has the following parameters:
>      I{708} local
>      P{709} local
>  [inside FFT 14]
>    has the following parameters:
>      TI{670} local
>      TR{671} local
>      WI{672} local
>      WR{673} local
>      UI{674} local
>      UR{675} local
>      NV2{677} local
>      IP{678} local
>      LE1{679} local
>      LE{680} local
>      N{681} local
>      M{682} local
>      K{683} local
>      J{684} local
>      I{685} local
>      AI{686} local
>      AR{687} local
>  FFT[13]
>    has the following parameters:
>      AREAL{668} local
>      AIMAG{669} local
>  loop[8]
>    has the following parameter:
>      I{666} local
>  [inside top level 4]
>    has the following parameters:
>      *IM*{654} local
>      *RE*{655} local
>      PI{656} local
>The following expression, fft-stalin.sc:23:797, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1025 0.0)
>The following expression, fft-stalin.sc:21:759, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1025 0.0)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17066 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W16616 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  3% - Reading source
>     0 -  3% - Expanding macros
>     1 - 37% - Fast tree shake
>     0 -  3% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 12% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 22% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  0% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  3% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.162s
>user	0m4.903s
>sys	0m0.163s
>run fft
>
>real	0m0.627s
>user	0m0.607s
>sys	0m0.019s
>compile fprint
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16894 expressions
>    21 internal symbol types
>     0 external symbol types
>    33 primitive procedure types
>   213 non-called native procedure types
>   257 called noop native procedure types
>    75 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    26 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19072 type sets
>   608 hunoz variables
>  1509 non-hunoz variables
>   480 noop environments
>  1604 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16894 expressions
>    21 internal symbol types
>     0 external symbol types
>    33 primitive procedure types
>   213 non-called native procedure types
>   257 called noop native procedure types
>    75 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    26 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19072 type sets
>   608 hunoz variables
>  1509 non-hunoz variables
>   480 noop environments
>  1604 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3508 expressions
>    21 internal symbol types
>     0 external symbol types
>    33 primitive procedure types
>   213 non-called native procedure types
>   257 called noop native procedure types
>    75 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    26 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4334 type sets
>   270 hunoz variables
>   495 non-hunoz variables
>     0 noop environments
>    75 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[1416] reentrant
>    has the following parameters:
>      OBJ{1848} local
>      PORT{1849} local
>    has the following in-lined local:
>      OBJ{1864}
>  DISPLAY-STRING2[1340]
>    has the following parameters:
>      STRING{1793} local
>      PORT{1794} local
>    has the following in-lined locals:
>      N{1795}
>      I{1798}
>  COPY[34] reentrant
>    has the following parameter:
>      X{688} local
>  INIT-AUX[13] reentrant
>    has the following parameters:
>      M{668} local
>      N{669} local
>      ATOMS{670} local
>    has the following in-lined locals:
>      I{673}
>      A{674}
>  [inside top level 0]
>    has the following in-lined locals:
>      TEST-PATTERN{653}
>      TEST-ATOMS{656}
>      I{666}
>      M{678}
>      N{679}
>      ATOMS{680}
>      ATOMS{683}
>      A{687}
>      STREAM{689}
>      STRING{1520}
>      OUTPUT-PORT{1522}
>      OBJ{2102}
>      &REST{2103}
>      &REST{2106}
>The following non-trivial in-line native procedures will be generated:
>  NEWLINE[1841]
>    has the following parameter:
>      &REST{2106} local
>  WRITE[1833]
>    has the following parameters:
>      OBJ{2102} local
>      &REST{2103} local
>  [inside LOOP 1453] reentrant
>  [inside LOOP 1452] reentrant
>  [inside LOOP 1451] reentrant
>  [inside LOOP 1449] reentrant
>  LOOP[1448] reentrant
>    has the following parameter:
>      OBJ{1864} local
>  [inside WRITE2 1445] reentrant
>  [inside WRITE2 1444] reentrant
>  LOOP[1344]
>    has the following parameter:
>      I{1798} local
>  [inside DISPLAY-STRING2 1341]
>    has the following parameter:
>      N{1795} local
>  [inside CALL-WITH-OUTPUT-FILE 921]
>    has the following parameter:
>      OUTPUT-PORT{1522} local
>  CALL-WITH-OUTPUT-FILE[920]
>    has the following parameter:
>      STRING{1520} local
>  [inside FPRINT 38]
>    has region
>  [inside FPRINT 37]
>    has region
>    has the following parameter:
>      STREAM{689} local
>  loop[30]
>    has the following parameter:
>      A{687} local
>  [inside INIT 26]
>    has the following parameter:
>      ATOMS{683} local
>  INIT[23]
>    has the following parameters:
>      M{678} local
>      N{679} local
>      ATOMS{680} local
>  [inside loop 21] reentrant
>  [inside loop 20] reentrant
>  loop[18] reentrant
>    has the following parameters:
>      I{673} local
>      A{674} local
>  [inside INIT-AUX 17] reentrant
>  [inside INIT-AUX 16] reentrant
>  [inside INIT-AUX 15] reentrant
>  loop[8]
>    has the following parameter:
>      I{666} local
>  [inside top level 4]
>    has the following parameters:
>      TEST-PATTERN{653} local
>      TEST-ATOMS{656} local
>The following expression, fprint-stalin.sc:42:1534, allocates on [inside FPRINT 37]:
>(NEWLINE STREAM)
>The following expression, fprint-stalin.sc:43:1554, allocates on [inside FPRINT 38]:
>(WRITE TEST-PATTERN STREAM)
>The following expression, fprint-stalin.sc:32:1253, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (COPY ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X)) (COPY ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) X)))
>The following expression, fprint-stalin.sc:29:1154, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (INIT-AUX ((PRIMITIVE-PROCEDURE -) M 1) N ATOMS) A)
>The following expression, fprint-stalin.sc:27:1085, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ATOMS) A)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16895 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 37% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 13% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 23% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  3% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  2% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  0% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.325s
>user	0m5.139s
>sys	0m0.174s
>run fprint
>
>real	0m1.182s
>user	0m0.507s
>sys	0m0.133s
>compile fread
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16525 expressions
>    12 internal symbol types
>     1 external symbol type
>    37 primitive procedure types
>   196 non-called native procedure types
>   323 called noop native procedure types
>   468 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   106 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18834 type sets
>   596 hunoz variables
>  1491 non-hunoz variables
>   473 noop environments
>  1562 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 24270 expressions
>    12 internal symbol types
>     1 external symbol type
>    37 primitive procedure types
>   196 non-called native procedure types
>   454 called noop native procedure types
>  1074 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   110 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 27639 type sets
>   727 hunoz variables
>  2671 non-hunoz variables
>   604 noop environments
>  2559 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 12937 expressions
>    12 internal symbol types
>     1 external symbol type
>    37 primitive procedure types
>   196 non-called native procedure types
>   454 called noop native procedure types
>  1074 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   110 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 15267 type sets
>   490 hunoz variables
>  1869 non-hunoz variables
>     0 noop environments
>  1333 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  LOOKUP-CHARACTER-NAME[1247]
>    has the following parameter:
>      S{1708} local
>    has the following in-lined locals:
>      CHAR1{1056}
>      CHAR2{1057}
>      CHAR1{1061}
>      CHAR2{1062}
>      NAMES{1711}
>      S{1715}
>      NAME{1716}
>      v{1717}
>      CHAR{2098}
>      CHAR{2099}
>  READ-SYMBOL[1241]
>    has region
>    has the following parameter:
>      S{1705} local
>    has the following in-lined locals:
>      C{1706}
>      CHAR{2100}
>      &REST{2151}
>      &REST{2203}
>      LIST{3223}
>      LIST{3226}
>      R{3227}
>      LIST{3228}
>      LIST{3231}
>      R{3232}
>      C{3253}
>      v{3254}
>      v{3255}
>      v{3256}
>      v{3257}
>      CHAR{3258}
>      CHAR1{3259}
>      CHAR2{3260}
>      CHAR1{3264}
>      CHAR2{3265}
>      CHAR1{3268}
>      CHAR2{3269}
>      CHAR1{3273}
>      CHAR2{3274}
>      CHAR1{3277}
>      CHAR2{3278}
>      CHAR1{3282}
>      CHAR2{3283}
>  CHAR-INITIAL?[1221]
>    has the following parameter:
>      C{1685} local
>    has the following in-lined locals:
>      v{1686}
>      v{1687}
>      v{1688}
>      v{1689}
>      v{1690}
>      v{1691}
>      v{1692}
>      v{1693}
>      v{1694}
>      v{1695}
>      v{1696}
>      v{1697}
>      v{1698}
>      v{1699}
>      CHAR{2128}
>      CHAR1{2988}
>      CHAR2{2989}
>      CHAR1{2993}
>      CHAR2{2994}
>      CHAR1{2997}
>      CHAR2{2998}
>      CHAR1{3002}
>      CHAR2{3003}
>      CHAR1{3006}
>      CHAR2{3007}
>      CHAR1{3011}
>      CHAR2{3012}
>      CHAR1{3015}
>      CHAR2{3016}
>      CHAR1{3020}
>      CHAR2{3021}
>      CHAR1{3024}
>      CHAR2{3025}
>      CHAR1{3029}
>      CHAR2{3030}
>      CHAR1{3033}
>      CHAR2{3034}
>      CHAR1{3038}
>      CHAR2{3039}
>      CHAR1{3042}
>      CHAR2{3043}
>      CHAR1{3047}
>      CHAR2{3048}
>      CHAR1{3051}
>      CHAR2{3052}
>      CHAR1{3056}
>      CHAR2{3057}
>      CHAR1{3060}
>      CHAR2{3061}
>      CHAR1{3065}
>      CHAR2{3066}
>      CHAR1{3069}
>      CHAR2{3070}
>      CHAR1{3074}
>      CHAR2{3075}
>      CHAR1{3078}
>      CHAR2{3079}
>      CHAR1{3083}
>      CHAR2{3084}
>      CHAR1{3087}
>      CHAR2{3088}
>      CHAR1{3092}
>      CHAR2{3093}
>      CHAR1{3096}
>      CHAR2{3097}
>      CHAR1{3101}
>      CHAR2{3102}
>      CHAR1{3105}
>      CHAR2{3106}
>      CHAR1{3110}
>      CHAR2{3111}
>  READ-NUMBER[1187]
>    has region
>    has the following parameter:
>      N{1663} local
>    has the following in-lined locals:
>      CHAR1{1011}
>      CHAR2{1012}
>      CHAR1{1016}
>      CHAR2{1017}
>      CHAR{1104}
>      C1{1664}
>      v{1667}
>      v{1668}
>      v{1669}
>      v{1670}
>      v{1671}
>      v{1672}
>      v{1673}
>      v{1674}
>      v{1675}
>      C2{1677}
>      C3{1679}
>      C3{1682}
>      &REST{2069}
>      CHAR{2102}
>      CHAR{2103}
>      CHAR{2124}
>      &REST{2150}
>      &REST{2152}
>      &REST{2153}
>      &REST{2154}
>      &REST{2155}
>      &REST{2202}
>      CHAR1{2385}
>      CHAR2{2386}
>      CHAR1{2390}
>      CHAR2{2391}
>      CHAR1{2853}
>      CHAR2{2854}
>      CHAR1{2858}
>      CHAR2{2859}
>      CHAR1{2862}
>      CHAR2{2863}
>      CHAR1{2867}
>      CHAR2{2868}
>      CHAR1{2871}
>      CHAR2{2872}
>      CHAR1{2876}
>      CHAR2{2877}
>      CHAR1{2880}
>      CHAR2{2881}
>      CHAR1{2885}
>      CHAR2{2886}
>      CHAR1{2889}
>      CHAR2{2890}
>      CHAR1{2894}
>      CHAR2{2895}
>      CHAR1{2898}
>      CHAR2{2899}
>      CHAR1{2903}
>      CHAR2{2904}
>      CHAR1{2907}
>      CHAR2{2908}
>      CHAR1{2912}
>      CHAR2{2913}
>      CHAR1{2916}
>      CHAR2{2917}
>      CHAR1{2921}
>      CHAR2{2922}
>      CHAR1{2925}
>      CHAR2{2926}
>      CHAR1{2930}
>      CHAR2{2931}
>      CHAR1{2934}
>      CHAR2{2935}
>      CHAR1{2939}
>      CHAR2{2940}
>      CHAR1{2943}
>      CHAR2{2944}
>      CHAR1{2948}
>      CHAR2{2949}
>  READ-INEXACT-NUMBER[1155]
>    has region
>    has the following parameters:
>      N{1641} local
>      M{1642} local
>    has the following in-lined locals:
>      C1{1643}
>      v{1645}
>      v{1646}
>      v{1647}
>      v{1648}
>      v{1649}
>      v{1650}
>      v{1651}
>      v{1652}
>      v{1653}
>      C2{1655}
>      C3{1657}
>      C3{1660}
>      CHAR{2113}
>      CHAR{2115}
>      CHAR{2116}
>      CHAR{2117}
>      &REST{2146}
>      &REST{2183}
>      &REST{2184}
>      &REST{2186}
>      &REST{2187}
>      &REST{2188}
>      CHAR1{2556}
>      CHAR2{2557}
>      CHAR1{2561}
>      CHAR2{2562}
>      CHAR1{2565}
>      CHAR2{2566}
>      CHAR1{2570}
>      CHAR2{2571}
>      CHAR1{2574}
>      CHAR2{2575}
>      CHAR1{2579}
>      CHAR2{2580}
>      CHAR1{2583}
>      CHAR2{2584}
>      CHAR1{2588}
>      CHAR2{2589}
>      CHAR1{2592}
>      CHAR2{2593}
>      CHAR1{2597}
>      CHAR2{2598}
>      CHAR1{2601}
>      CHAR2{2602}
>      CHAR1{2606}
>      CHAR2{2607}
>      CHAR1{2610}
>      CHAR2{2611}
>      CHAR1{2615}
>      CHAR2{2616}
>      CHAR1{2619}
>      CHAR2{2620}
>      CHAR1{2624}
>      CHAR2{2625}
>      CHAR1{2628}
>      CHAR2{2629}
>      CHAR1{2633}
>      CHAR2{2634}
>      CHAR1{2637}
>      CHAR2{2638}
>      CHAR1{2642}
>      CHAR2{2643}
>      CHAR1{2646}
>      CHAR2{2647}
>      CHAR1{2651}
>      CHAR2{2652}
>      CHAR1{2655}
>      CHAR2{2656}
>      CHAR1{2660}
>      CHAR2{2661}
>  READ-EXACT-HEXADECIMAL-INTEGER[1145]
>    has region
>    has the following parameter:
>      N{1636} local
>    has the following in-lined locals:
>      C{1637}
>      CHAR{2121}
>      &REST{2147}
>      &REST{2191}
>      &REST{2192}
>      &REST{2194}
>      CHAR1{2232}
>      CHAR2{2233}
>      CHAR1{2237}
>      CHAR2{2238}
>      CHAR1{2241}
>      CHAR2{2242}
>      CHAR1{2246}
>      CHAR2{2247}
>      CHAR1{2313}
>      CHAR2{2314}
>      CHAR1{2318}
>      CHAR2{2319}
>      CHAR1{2322}
>      CHAR2{2323}
>      CHAR1{2327}
>      CHAR2{2328}
>  READ-EXACT-DECIMAL-INTEGER[1139]
>    has region
>    has the following parameter:
>      N{1633} local
>    has the following in-lined locals:
>      C{1634}
>      CHAR{2114}
>      &REST{2145}
>      &REST{2185}
>  READ-EXACT-OCTAL-INTEGER[1133]
>    has region
>    has the following parameter:
>      N{1630} local
>    has the following in-lined locals:
>      CHAR1{1047}
>      CHAR2{1048}
>      CHAR1{1052}
>      CHAR2{1053}
>      C{1631}
>      &REST{2144}
>      &REST{2176}
>      CHAR1{2286}
>      CHAR2{2287}
>      CHAR1{2291}
>      CHAR2{2292}
>  READ-EXACT-BINARY-INTEGER[1125]
>    has region
>    has the following parameter:
>      N{1626} local
>    has the following in-lined locals:
>      C{1627}
>      &REST{2143}
>      &REST{2171}
>      &REST{2172}
>      CHAR1{2448}
>      CHAR2{2449}
>      CHAR1{2453}
>      CHAR2{2454}
>      CHAR1{2457}
>      CHAR2{2458}
>      CHAR1{2462}
>      CHAR2{2463}
>  READ[891] reentrant
>    has region
>    has the following parameter:
>      STATE{1507} local
>    has the following in-lined locals:
>      OBJS{726}
>      LIST{801}
>      LIST{804}
>      R{805}
>      CHAR1{1020}
>      CHAR2{1021}
>      CHAR1{1025}
>      CHAR2{1026}
>      CHAR1{1029}
>      CHAR2{1030}
>      CHAR1{1034}
>      CHAR2{1035}
>      CHAR1{1038}
>      CHAR2{1039}
>      CHAR1{1043}
>      CHAR2{1044}
>      CHAR{1102}
>      CHAR{1106}
>      CHAR{1114}
>      LIST{1367}
>      R{1368}
>      K{1372}
>      C1{1530}
>      C{1534}
>      C2{1536}
>      S{1541}
>      E{1542}
>      E1{1544}
>      S{1548}
>      C{1549}
>      C2{1550}
>      v{1552}
>      v{1553}
>      v{1554}
>      C3{1555}
>      C4{1557}
>      C4{1559}
>      v{1561}
>      C3{1562}
>      C4{1564}
>      v{1567}
>      C4{1568}
>      v{1571}
>      v{1572}
>      C3{1573}
>      C4{1575}
>      C5{1577}
>      C4{1580}
>      C5{1582}
>      C4{1585}
>      v{1588}
>      C3{1589}
>      C4{1591}
>      C4{1593}
>      S{1597}
>      E{1598}
>      C3{1599}
>      S{1603}
>      C{1604}
>      C1{1606}
>      C2{1608}
>      C3{1611}
>      C2{1615}
>      C3{1618}
>      C2{1622}
>      C{1700}
>      v{1701}
>      v{1702}
>      v{1703}
>      v{1704}
>      S{1718}
>      C{1719}
>      &REST{2070}
>      CHAR{2087}
>      CHAR{2088}
>      CHAR{2089}
>      CHAR{2090}
>      CHAR{2091}
>      CHAR{2092}
>      CHAR{2093}
>      CHAR{2094}
>      CHAR{2095}
>      CHAR{2096}
>      CHAR{2097}
>      CHAR{2101}
>      CHAR{2104}
>      CHAR{2105}
>      CHAR{2106}
>      CHAR{2107}
>      CHAR{2108}
>      CHAR{2109}
>      CHAR{2110}
>      CHAR{2111}
>      CHAR{2112}
>      CHAR{2118}
>      CHAR{2119}
>      CHAR{2120}
>      CHAR{2122}
>      CHAR{2123}
>      CHAR{2125}
>      CHAR{2126}
>      CHAR{2127}
>      OBJS{2129}
>      OBJS{2130}
>      OBJS{2131}
>      OBJS{2132}
>      OBJS{2133}
>      OBJS{2134}
>      OBJS{2135}
>      OBJS{2136}
>      OBJS{2137}
>      OBJS{2138}
>      &REST{2139}
>      &REST{2140}
>      &REST{2141}
>      &REST{2142}
>      &REST{2148}
>      &REST{2149}
>      &REST{2156}
>      &REST{2157}
>      &REST{2158}
>      &REST{2159}
>      &REST{2160}
>      &REST{2161}
>      &REST{2162}
>      &REST{2163}
>      &REST{2164}
>      &REST{2165}
>      &REST{2166}
>      &REST{2167}
>      &REST{2168}
>      &REST{2169}
>      &REST{2170}
>      &REST{2173}
>      &REST{2174}
>      &REST{2175}
>      &REST{2177}
>      &REST{2178}
>      &REST{2179}
>      &REST{2180}
>      &REST{2181}
>      &REST{2182}
>      &REST{2189}
>      &REST{2190}
>      &REST{2193}
>      &REST{2195}
>      &REST{2196}
>      &REST{2197}
>      &REST{2198}
>      &REST{2199}
>      &REST{2200}
>      &REST{2201}
>      &REST{2204}
>      CHAR1{2205}
>      CHAR2{2206}
>      CHAR1{2210}
>      CHAR2{2211}
>      CHAR1{2214}
>      CHAR2{2215}
>      CHAR1{2219}
>      CHAR2{2220}
>      CHAR1{2223}
>      CHAR2{2224}
>      CHAR1{2228}
>      CHAR2{2229}
>      CHAR1{2250}
>      CHAR2{2251}
>      CHAR1{2255}
>      CHAR2{2256}
>      CHAR1{2259}
>      CHAR2{2260}
>      CHAR1{2264}
>      CHAR2{2265}
>      CHAR1{2268}
>      CHAR2{2269}
>      CHAR1{2273}
>      CHAR2{2274}
>      CHAR1{2277}
>      CHAR2{2278}
>      CHAR1{2282}
>      CHAR2{2283}
>      CHAR1{2295}
>      CHAR2{2296}
>      CHAR1{2300}
>      CHAR2{2301}
>      CHAR1{2304}
>      CHAR2{2305}
>      CHAR1{2309}
>      CHAR2{2310}
>      CHAR1{2331}
>      CHAR2{2332}
>      CHAR1{2336}
>      CHAR2{2337}
>      CHAR1{2340}
>      CHAR2{2341}
>      CHAR1{2345}
>      CHAR2{2346}
>      CHAR1{2349}
>      CHAR2{2350}
>      CHAR1{2354}
>      CHAR2{2355}
>      CHAR1{2358}
>      CHAR2{2359}
>      CHAR1{2363}
>      CHAR2{2364}
>      CHAR1{2367}
>      CHAR2{2368}
>      CHAR1{2372}
>      CHAR2{2373}
>      CHAR1{2376}
>      CHAR2{2377}
>      CHAR1{2381}
>      CHAR2{2382}
>      CHAR1{2394}
>      CHAR2{2395}
>      CHAR1{2399}
>      CHAR2{2400}
>      CHAR1{2403}
>      CHAR2{2404}
>      CHAR1{2408}
>      CHAR2{2409}
>      CHAR1{2412}
>      CHAR2{2413}
>      CHAR1{2417}
>      CHAR2{2418}
>      CHAR1{2421}
>      CHAR2{2422}
>      CHAR1{2426}
>      CHAR2{2427}
>      CHAR1{2430}
>      CHAR2{2431}
>      CHAR1{2435}
>      CHAR2{2436}
>      CHAR1{2439}
>      CHAR2{2440}
>      CHAR1{2444}
>      CHAR2{2445}
>      CHAR1{2466}
>      CHAR2{2467}
>      CHAR1{2471}
>      CHAR2{2472}
>      CHAR1{2475}
>      CHAR2{2476}
>      CHAR1{2480}
>      CHAR2{2481}
>      CHAR1{2484}
>      CHAR2{2485}
>      CHAR1{2489}
>      CHAR2{2490}
>      CHAR1{2493}
>      CHAR2{2494}
>      CHAR1{2498}
>      CHAR2{2499}
>      CHAR1{2502}
>      CHAR2{2503}
>      CHAR1{2507}
>      CHAR2{2508}
>      CHAR1{2511}
>      CHAR2{2512}
>      CHAR1{2516}
>      CHAR2{2517}
>      CHAR1{2520}
>      CHAR2{2521}
>      CHAR1{2525}
>      CHAR2{2526}
>      CHAR1{2529}
>      CHAR2{2530}
>      CHAR1{2534}
>      CHAR2{2535}
>      CHAR1{2538}
>      CHAR2{2539}
>      CHAR1{2543}
>      CHAR2{2544}
>      CHAR1{2547}
>      CHAR2{2548}
>      CHAR1{2552}
>      CHAR2{2553}
>      CHAR1{2664}
>      CHAR2{2665}
>      CHAR1{2669}
>      CHAR2{2670}
>      CHAR1{2673}
>      CHAR2{2674}
>      CHAR1{2678}
>      CHAR2{2679}
>      CHAR1{2682}
>      CHAR2{2683}
>      CHAR1{2687}
>      CHAR2{2688}
>      CHAR1{2691}
>      CHAR2{2692}
>      CHAR1{2696}
>      CHAR2{2697}
>      CHAR1{2700}
>      CHAR2{2701}
>      CHAR1{2705}
>      CHAR2{2706}
>      CHAR1{2709}
>      CHAR2{2710}
>      CHAR1{2714}
>      CHAR2{2715}
>      CHAR1{2718}
>      CHAR2{2719}
>      CHAR1{2723}
>      CHAR2{2724}
>      CHAR1{2727}
>      CHAR2{2728}
>      CHAR1{2732}
>      CHAR2{2733}
>      CHAR1{2736}
>      CHAR2{2737}
>      CHAR1{2741}
>      CHAR2{2742}
>      CHAR1{2745}
>      CHAR2{2746}
>      CHAR1{2750}
>      CHAR2{2751}
>      CHAR1{2754}
>      CHAR2{2755}
>      CHAR1{2759}
>      CHAR2{2760}
>      CHAR1{2763}
>      CHAR2{2764}
>      CHAR1{2768}
>      CHAR2{2769}
>      CHAR1{2772}
>      CHAR2{2773}
>      CHAR1{2777}
>      CHAR2{2778}
>      CHAR1{2781}
>      CHAR2{2782}
>      CHAR1{2786}
>      CHAR2{2787}
>      CHAR1{2790}
>      CHAR2{2791}
>      CHAR1{2795}
>      CHAR2{2796}
>      CHAR1{2799}
>      CHAR2{2800}
>      CHAR1{2804}
>      CHAR2{2805}
>      CHAR1{2808}
>      CHAR2{2809}
>      CHAR1{2813}
>      CHAR2{2814}
>      CHAR1{2817}
>      CHAR2{2818}
>      CHAR1{2822}
>      CHAR2{2823}
>      CHAR1{2826}
>      CHAR2{2827}
>      CHAR1{2831}
>      CHAR2{2832}
>      CHAR1{2835}
>      CHAR2{2836}
>      CHAR1{2840}
>      CHAR2{2841}
>      CHAR1{2844}
>      CHAR2{2845}
>      CHAR1{2849}
>      CHAR2{2850}
>      CHAR1{2961}
>      CHAR2{2962}
>      CHAR1{2966}
>      CHAR2{2967}
>      CHAR1{2970}
>      CHAR2{2971}
>      CHAR1{2975}
>      CHAR2{2976}
>      CHAR1{2979}
>      CHAR2{2980}
>      CHAR1{2984}
>      CHAR2{2985}
>      CHAR1{3114}
>      CHAR2{3115}
>      CHAR1{3119}
>      CHAR2{3120}
>      CHAR1{3123}
>      CHAR2{3124}
>      CHAR1{3128}
>      CHAR2{3129}
>      CHAR1{3132}
>      CHAR2{3133}
>      CHAR1{3137}
>      CHAR2{3138}
>      CHAR1{3141}
>      CHAR2{3142}
>      CHAR1{3146}
>      CHAR2{3147}
>      CHAR1{3150}
>      CHAR2{3151}
>      CHAR1{3155}
>      CHAR2{3156}
>      CHAR1{3159}
>      CHAR2{3160}
>      CHAR1{3164}
>      CHAR2{3165}
>      CHAR1{3168}
>      CHAR2{3169}
>      CHAR1{3173}
>      CHAR2{3174}
>      CHAR1{3177}
>      CHAR2{3178}
>      CHAR1{3182}
>      CHAR2{3183}
>      CHAR1{3186}
>      CHAR2{3187}
>      CHAR1{3191}
>      CHAR2{3192}
>      CHAR1{3195}
>      CHAR2{3196}
>      CHAR1{3200}
>      CHAR2{3201}
>      CHAR1{3204}
>      CHAR2{3205}
>      CHAR1{3209}
>      CHAR2{3210}
>      LIST{3213}
>      LIST{3216}
>      R{3217}
>      LIST{3218}
>      LIST{3221}
>      R{3222}
>      C{3233}
>      v{3234}
>      v{3235}
>      v{3236}
>      v{3237}
>      C{3238}
>      v{3239}
>      v{3240}
>      v{3241}
>      v{3242}
>      C{3243}
>      v{3244}
>      v{3245}
>      v{3246}
>      v{3247}
>      C{3248}
>      v{3249}
>      v{3250}
>      v{3251}
>      v{3252}
>      CHAR{3286}
>      CHAR1{3287}
>      CHAR2{3288}
>      CHAR1{3292}
>      CHAR2{3293}
>      CHAR1{3296}
>      CHAR2{3297}
>      CHAR1{3301}
>      CHAR2{3302}
>      CHAR1{3305}
>      CHAR2{3306}
>      CHAR1{3310}
>      CHAR2{3311}
>      CHAR{3314}
>      CHAR1{3315}
>      CHAR2{3316}
>      CHAR1{3320}
>      CHAR2{3321}
>      CHAR1{3324}
>      CHAR2{3325}
>      CHAR1{3329}
>      CHAR2{3330}
>      CHAR1{3333}
>      CHAR2{3334}
>      CHAR1{3338}
>      CHAR2{3339}
>      CHAR{3342}
>      CHAR1{3343}
>      CHAR2{3344}
>      CHAR1{3348}
>      CHAR2{3349}
>      CHAR1{3352}
>      CHAR2{3353}
>      CHAR1{3357}
>      CHAR2{3358}
>      CHAR1{3361}
>      CHAR2{3362}
>      CHAR1{3366}
>      CHAR2{3367}
>      CHAR{3370}
>      CHAR1{3371}
>      CHAR2{3372}
>      CHAR1{3376}
>      CHAR2{3377}
>      CHAR1{3380}
>      CHAR2{3381}
>      CHAR1{3385}
>      CHAR2{3386}
>      CHAR1{3389}
>      CHAR2{3390}
>      CHAR1{3394}
>      CHAR2{3395}
>  STRING-COPY[671]
>    has the following parameter:
>      STRING{1321} local
>    has the following in-lined locals:
>      N{1322}
>      R{1323}
>      K{1327}
>  LIST->STRING[661]
>    has the following parameter:
>      LIST{1313} local
>    has the following in-lined locals:
>      R{1314}
>      K{1318}
>  STRING=?[510]
>    has the following parameters:
>      STRING1{1133} local
>      STRING2{1134} local
>    has the following in-lined locals:
>      STRING1{1138}
>      STRING2{1139}
>      N{1141}
>      K{1144}
>      v{1145}
>      CHAR1{2952}
>      CHAR2{2953}
>      CHAR1{2957}
>      CHAR2{2958}
>  [inside top level 254]
>    has the following parameter:
>      STRING{853} local
>    has the following in-lined locals:
>      FOUND{854}
>      PACKAGE{858}
>  LIST-LENGTH[78]
>    has the following parameter:
>      LIST{727} local
>    has the following in-lined local:
>      K{730}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      STREAM{660}
>      STRING{1485}
>      INPUT-PORT{1487}
>The following non-trivial in-line native procedures will be generated:
>  [clone LOOP?[421] 3160]
>    has the following parameters:
>      CHAR1{3394} local
>      CHAR2{3395} local
>  [clone CHAR=?[418] 3157]
>    has the following parameters:
>      CHAR1{3389} local
>      CHAR2{3390} local
>  [clone LOOP?[421] 3154]
>    has the following parameters:
>      CHAR1{3385} local
>      CHAR2{3386} local
>  [clone CHAR=?[418] 3151]
>    has the following parameters:
>      CHAR1{3380} local
>      CHAR2{3381} local
>  [clone LOOP?[421] 3148]
>    has the following parameters:
>      CHAR1{3376} local
>      CHAR2{3377} local
>  [clone CHAR=?[418] 3145]
>    has the following parameters:
>      CHAR1{3371} local
>      CHAR2{3372} local
>  [clone [inside top level 481] 3144]
>    has the following parameter:
>      CHAR{3370} local
>  [clone LOOP?[421] 3141]
>    has the following parameters:
>      CHAR1{3366} local
>      CHAR2{3367} local
>  [clone CHAR=?[418] 3138]
>    has the following parameters:
>      CHAR1{3361} local
>      CHAR2{3362} local
>  [clone LOOP?[421] 3135]
>    has the following parameters:
>      CHAR1{3357} local
>      CHAR2{3358} local
>  [clone CHAR=?[418] 3132]
>    has the following parameters:
>      CHAR1{3352} local
>      CHAR2{3353} local
>  [clone LOOP?[421] 3129]
>    has the following parameters:
>      CHAR1{3348} local
>      CHAR2{3349} local
>  [clone CHAR=?[418] 3126]
>    has the following parameters:
>      CHAR1{3343} local
>      CHAR2{3344} local
>  [clone [inside top level 481] 3125]
>    has the following parameter:
>      CHAR{3342} local
>  [clone LOOP?[421] 3122]
>    has the following parameters:
>      CHAR1{3338} local
>      CHAR2{3339} local
>  [clone CHAR=?[418] 3119]
>    has the following parameters:
>      CHAR1{3333} local
>      CHAR2{3334} local
>  [clone LOOP?[421] 3116]
>    has the following parameters:
>      CHAR1{3329} local
>      CHAR2{3330} local
>  [clone CHAR=?[418] 3113]
>    has the following parameters:
>      CHAR1{3324} local
>      CHAR2{3325} local
>  [clone LOOP?[421] 3110]
>    has the following parameters:
>      CHAR1{3320} local
>      CHAR2{3321} local
>  [clone CHAR=?[418] 3107]
>    has the following parameters:
>      CHAR1{3315} local
>      CHAR2{3316} local
>  [clone [inside top level 481] 3106]
>    has the following parameter:
>      CHAR{3314} local
>  [clone LOOP?[421] 3103]
>    has the following parameters:
>      CHAR1{3310} local
>      CHAR2{3311} local
>  [clone CHAR=?[418] 3100]
>    has the following parameters:
>      CHAR1{3305} local
>      CHAR2{3306} local
>  [clone LOOP?[421] 3097]
>    has the following parameters:
>      CHAR1{3301} local
>      CHAR2{3302} local
>  [clone CHAR=?[418] 3094]
>    has the following parameters:
>      CHAR1{3296} local
>      CHAR2{3297} local
>  [clone LOOP?[421] 3091]
>    has the following parameters:
>      CHAR1{3292} local
>      CHAR2{3293} local
>  [clone CHAR=?[418] 3088]
>    has the following parameters:
>      CHAR1{3287} local
>      CHAR2{3288} local
>  [clone [inside top level 481] 3087]
>    has the following parameter:
>      CHAR{3286} local
>  [clone LOOP?[421] 3084]
>    has the following parameters:
>      CHAR1{3282} local
>      CHAR2{3283} local
>  [clone CHAR=?[418] 3081]
>    has the following parameters:
>      CHAR1{3277} local
>      CHAR2{3278} local
>  [clone LOOP?[421] 3078]
>    has the following parameters:
>      CHAR1{3273} local
>      CHAR2{3274} local
>  [clone CHAR=?[418] 3075]
>    has the following parameters:
>      CHAR1{3268} local
>      CHAR2{3269} local
>  [clone LOOP?[421] 3072]
>    has the following parameters:
>      CHAR1{3264} local
>      CHAR2{3265} local
>  [clone CHAR=?[418] 3069]
>    has the following parameters:
>      CHAR1{3259} local
>      CHAR2{3260} local
>  [clone [inside top level 481] 3068]
>    has the following parameter:
>      CHAR{3258} local
>  [clone [inside CHAR-SUBSEQUENT? 1240] 3067]
>    has the following parameter:
>      v{3257} local
>  [clone [inside CHAR-SUBSEQUENT? 1239] 3066]
>    has the following parameter:
>      v{3256} local
>  [clone [inside CHAR-SUBSEQUENT? 1238] 3065]
>    has the following parameter:
>      v{3255} local
>  [clone [inside CHAR-SUBSEQUENT? 1237] 3064]
>    has the following parameter:
>      v{3254} local
>  [clone CHAR-SUBSEQUENT?[1236] 3063]
>    has the following parameter:
>      C{3253} local
>  [clone [inside CHAR-SUBSEQUENT? 1240] 3062]
>    has the following parameter:
>      v{3252} local
>  [clone [inside CHAR-SUBSEQUENT? 1239] 3061]
>    has the following parameter:
>      v{3251} local
>  [clone [inside CHAR-SUBSEQUENT? 1238] 3060]
>    has the following parameter:
>      v{3250} local
>  [clone [inside CHAR-SUBSEQUENT? 1237] 3059]
>    has the following parameter:
>      v{3249} local
>  [clone CHAR-SUBSEQUENT?[1236] 3058]
>    has the following parameter:
>      C{3248} local
>  [clone [inside CHAR-SUBSEQUENT? 1240] 3057]
>    has the following parameter:
>      v{3247} local
>  [clone [inside CHAR-SUBSEQUENT? 1239] 3056]
>    has the following parameter:
>      v{3246} local
>  [clone [inside CHAR-SUBSEQUENT? 1238] 3055]
>    has the following parameter:
>      v{3245} local
>  [clone [inside CHAR-SUBSEQUENT? 1237] 3054]
>    has the following parameter:
>      v{3244} local
>  [clone CHAR-SUBSEQUENT?[1236] 3053]
>    has the following parameter:
>      C{3243} local
>  [clone [inside CHAR-SUBSEQUENT? 1240] 3052]
>    has the following parameter:
>      v{3242} local
>  [clone [inside CHAR-SUBSEQUENT? 1239] 3051]
>    has the following parameter:
>      v{3241} local
>  [clone [inside CHAR-SUBSEQUENT? 1238] 3050]
>    has the following parameter:
>      v{3240} local
>  [clone [inside CHAR-SUBSEQUENT? 1237] 3049]
>    has the following parameter:
>      v{3239} local
>  [clone CHAR-SUBSEQUENT?[1236] 3048]
>    has the following parameter:
>      C{3238} local
>  [clone [inside CHAR-SUBSEQUENT? 1240] 3047]
>    has the following parameter:
>      v{3237} local
>  [clone [inside CHAR-SUBSEQUENT? 1239] 3046]
>    has the following parameter:
>      v{3236} local
>  [clone [inside CHAR-SUBSEQUENT? 1238] 3045]
>    has the following parameter:
>      v{3235} local
>  [clone [inside CHAR-SUBSEQUENT? 1237] 3044]
>    has the following parameter:
>      v{3234} local
>  [clone CHAR-SUBSEQUENT?[1236] 3043]
>    has the following parameter:
>      C{3233} local
>  [clone LOOP[188] 3041]
>    has the following parameters:
>      LIST{3231} local
>      R{3232} local
>  [clone LIST-REVERSE[185] 3038]
>    has the following parameter:
>      LIST{3228} local
>  [clone LOOP[188] 3036]
>    has the following parameters:
>      LIST{3226} local
>      R{3227} local
>  [clone LIST-REVERSE[185] 3033]
>    has the following parameter:
>      LIST{3223} local
>  [clone LOOP[188] 3031]
>    has the following parameters:
>      LIST{3221} local
>      R{3222} local
>  [clone LIST-REVERSE[185] 3028]
>    has the following parameter:
>      LIST{3218} local
>  [clone LOOP[188] 3026]
>    has the following parameters:
>      LIST{3216} local
>      R{3217} local
>  [clone LIST-REVERSE[185] 3023]
>    has the following parameter:
>      LIST{3213} local
>  [clone LOOP?[421] 3020]
>    has the following parameters:
>      CHAR1{3209} local
>      CHAR2{3210} local
>  [clone CHAR=?[418] 3017]
>    has the following parameters:
>      CHAR1{3204} local
>      CHAR2{3205} local
>  [clone LOOP?[421] 3014]
>    has the following parameters:
>      CHAR1{3200} local
>      CHAR2{3201} local
>  [clone CHAR=?[418] 3011]
>    has the following parameters:
>      CHAR1{3195} local
>      CHAR2{3196} local
>  [clone LOOP?[421] 3008]
>    has the following parameters:
>      CHAR1{3191} local
>      CHAR2{3192} local
>  [clone CHAR=?[418] 3005]
>    has the following parameters:
>      CHAR1{3186} local
>      CHAR2{3187} local
>  [clone LOOP?[421] 3002]
>    has the following parameters:
>      CHAR1{3182} local
>      CHAR2{3183} local
>  [clone CHAR=?[418] 2999]
>    has the following parameters:
>      CHAR1{3177} local
>      CHAR2{3178} local
>  [clone LOOP?[421] 2996]
>    has the following parameters:
>      CHAR1{3173} local
>      CHAR2{3174} local
>  [clone CHAR=?[418] 2993]
>    has the following parameters:
>      CHAR1{3168} local
>      CHAR2{3169} local
>  [clone LOOP?[421] 2990]
>    has the following parameters:
>      CHAR1{3164} local
>      CHAR2{3165} local
>  [clone CHAR=?[418] 2987]
>    has the following parameters:
>      CHAR1{3159} local
>      CHAR2{3160} local
>  [clone LOOP?[421] 2984]
>    has the following parameters:
>      CHAR1{3155} local
>      CHAR2{3156} local
>  [clone CHAR=?[418] 2981]
>    has the following parameters:
>      CHAR1{3150} local
>      CHAR2{3151} local
>  [clone LOOP?[421] 2978]
>    has the following parameters:
>      CHAR1{3146} local
>      CHAR2{3147} local
>  [clone CHAR=?[418] 2975]
>    has the following parameters:
>      CHAR1{3141} local
>      CHAR2{3142} local
>  [clone LOOP?[421] 2972]
>    has the following parameters:
>      CHAR1{3137} local
>      CHAR2{3138} local
>  [clone CHAR=?[418] 2969]
>    has the following parameters:
>      CHAR1{3132} local
>      CHAR2{3133} local
>  [clone LOOP?[421] 2966]
>    has the following parameters:
>      CHAR1{3128} local
>      CHAR2{3129} local
>  [clone CHAR=?[418] 2963]
>    has the following parameters:
>      CHAR1{3123} local
>      CHAR2{3124} local
>  [clone LOOP?[421] 2960]
>    has the following parameters:
>      CHAR1{3119} local
>      CHAR2{3120} local
>  [clone CHAR=?[418] 2957]
>    has the following parameters:
>      CHAR1{3114} local
>      CHAR2{3115} local
>  [clone LOOP?[421] 2954]
>    has the following parameters:
>      CHAR1{3110} local
>      CHAR2{3111} local
>  [clone CHAR=?[418] 2951]
>    has the following parameters:
>      CHAR1{3105} local
>      CHAR2{3106} local
>  [clone LOOP?[421] 2948]
>    has the following parameters:
>      CHAR1{3101} local
>      CHAR2{3102} local
>  [clone CHAR=?[418] 2945]
>    has the following parameters:
>      CHAR1{3096} local
>      CHAR2{3097} local
>  [clone LOOP?[421] 2942]
>    has the following parameters:
>      CHAR1{3092} local
>      CHAR2{3093} local
>  [clone CHAR=?[418] 2939]
>    has the following parameters:
>      CHAR1{3087} local
>      CHAR2{3088} local
>  [clone LOOP?[421] 2936]
>    has the following parameters:
>      CHAR1{3083} local
>      CHAR2{3084} local
>  [clone CHAR=?[418] 2933]
>    has the following parameters:
>      CHAR1{3078} local
>      CHAR2{3079} local
>  [clone LOOP?[421] 2930]
>    has the following parameters:
>      CHAR1{3074} local
>      CHAR2{3075} local
>  [clone CHAR=?[418] 2927]
>    has the following parameters:
>      CHAR1{3069} local
>      CHAR2{3070} local
>  [clone LOOP?[421] 2924]
>    has the following parameters:
>      CHAR1{3065} local
>      CHAR2{3066} local
>  [clone CHAR=?[418] 2921]
>    has the following parameters:
>      CHAR1{3060} local
>      CHAR2{3061} local
>  [clone LOOP?[421] 2918]
>    has the following parameters:
>      CHAR1{3056} local
>      CHAR2{3057} local
>  [clone CHAR=?[418] 2915]
>    has the following parameters:
>      CHAR1{3051} local
>      CHAR2{3052} local
>  [clone LOOP?[421] 2912]
>    has the following parameters:
>      CHAR1{3047} local
>      CHAR2{3048} local
>  [clone CHAR=?[418] 2909]
>    has the following parameters:
>      CHAR1{3042} local
>      CHAR2{3043} local
>  [clone LOOP?[421] 2906]
>    has the following parameters:
>      CHAR1{3038} local
>      CHAR2{3039} local
>  [clone CHAR=?[418] 2903]
>    has the following parameters:
>      CHAR1{3033} local
>      CHAR2{3034} local
>  [clone LOOP?[421] 2900]
>    has the following parameters:
>      CHAR1{3029} local
>      CHAR2{3030} local
>  [clone CHAR=?[418] 2897]
>    has the following parameters:
>      CHAR1{3024} local
>      CHAR2{3025} local
>  [clone LOOP?[421] 2894]
>    has the following parameters:
>      CHAR1{3020} local
>      CHAR2{3021} local
>  [clone CHAR=?[418] 2891]
>    has the following parameters:
>      CHAR1{3015} local
>      CHAR2{3016} local
>  [clone LOOP?[421] 2888]
>    has the following parameters:
>      CHAR1{3011} local
>      CHAR2{3012} local
>  [clone CHAR=?[418] 2885]
>    has the following parameters:
>      CHAR1{3006} local
>      CHAR2{3007} local
>  [clone LOOP?[421] 2882]
>    has the following parameters:
>      CHAR1{3002} local
>      CHAR2{3003} local
>  [clone CHAR=?[418] 2879]
>    has the following parameters:
>      CHAR1{2997} local
>      CHAR2{2998} local
>  [clone LOOP?[421] 2876]
>    has the following parameters:
>      CHAR1{2993} local
>      CHAR2{2994} local
>  [clone CHAR=?[418] 2873]
>    has the following parameters:
>      CHAR1{2988} local
>      CHAR2{2989} local
>  [clone LOOP?[421] 2870]
>    has the following parameters:
>      CHAR1{2984} local
>      CHAR2{2985} local
>  [clone CHAR=?[418] 2867]
>    has the following parameters:
>      CHAR1{2979} local
>      CHAR2{2980} local
>  [clone LOOP?[421] 2864]
>    has the following parameters:
>      CHAR1{2975} local
>      CHAR2{2976} local
>  [clone CHAR=?[418] 2861]
>    has the following parameters:
>      CHAR1{2970} local
>      CHAR2{2971} local
>  [clone LOOP?[421] 2858]
>    has the following parameters:
>      CHAR1{2966} local
>      CHAR2{2967} local
>  [clone CHAR=?[418] 2855]
>    has the following parameters:
>      CHAR1{2961} local
>      CHAR2{2962} local
>  [clone LOOP?[421] 2852]
>    has the following parameters:
>      CHAR1{2957} local
>      CHAR2{2958} local
>  [clone CHAR=?[418] 2849]
>    has the following parameters:
>      CHAR1{2952} local
>      CHAR2{2953} local
>  [clone LOOP?[421] 2846]
>    has the following parameters:
>      CHAR1{2948} local
>      CHAR2{2949} local
>  [clone CHAR=?[418] 2843]
>    has the following parameters:
>      CHAR1{2943} local
>      CHAR2{2944} local
>  [clone LOOP?[421] 2840]
>    has the following parameters:
>      CHAR1{2939} local
>      CHAR2{2940} local
>  [clone CHAR=?[418] 2837]
>    has the following parameters:
>      CHAR1{2934} local
>      CHAR2{2935} local
>  [clone LOOP?[421] 2834]
>    has the following parameters:
>      CHAR1{2930} local
>      CHAR2{2931} local
>  [clone CHAR=?[418] 2831]
>    has the following parameters:
>      CHAR1{2925} local
>      CHAR2{2926} local
>  [clone LOOP?[421] 2828]
>    has the following parameters:
>      CHAR1{2921} local
>      CHAR2{2922} local
>  [clone CHAR=?[418] 2825]
>    has the following parameters:
>      CHAR1{2916} local
>      CHAR2{2917} local
>  [clone LOOP?[421] 2822]
>    has the following parameters:
>      CHAR1{2912} local
>      CHAR2{2913} local
>  [clone CHAR=?[418] 2819]
>    has the following parameters:
>      CHAR1{2907} local
>      CHAR2{2908} local
>  [clone LOOP?[421] 2816]
>    has the following parameters:
>      CHAR1{2903} local
>      CHAR2{2904} local
>  [clone CHAR=?[418] 2813]
>    has the following parameters:
>      CHAR1{2898} local
>      CHAR2{2899} local
>  [clone LOOP?[421] 2810]
>    has the following parameters:
>      CHAR1{2894} local
>      CHAR2{2895} local
>  [clone CHAR=?[418] 2807]
>    has the following parameters:
>      CHAR1{2889} local
>      CHAR2{2890} local
>  [clone LOOP?[421] 2804]
>    has the following parameters:
>      CHAR1{2885} local
>      CHAR2{2886} local
>  [clone CHAR=?[418] 2801]
>    has the following parameters:
>      CHAR1{2880} local
>      CHAR2{2881} local
>  [clone LOOP?[421] 2798]
>    has the following parameters:
>      CHAR1{2876} local
>      CHAR2{2877} local
>  [clone CHAR=?[418] 2795]
>    has the following parameters:
>      CHAR1{2871} local
>      CHAR2{2872} local
>  [clone LOOP?[421] 2792]
>    has the following parameters:
>      CHAR1{2867} local
>      CHAR2{2868} local
>  [clone CHAR=?[418] 2789]
>    has the following parameters:
>      CHAR1{2862} local
>      CHAR2{2863} local
>  [clone LOOP?[421] 2786]
>    has the following parameters:
>      CHAR1{2858} local
>      CHAR2{2859} local
>  [clone CHAR=?[418] 2783]
>    has the following parameters:
>      CHAR1{2853} local
>      CHAR2{2854} local
>  [clone LOOP?[421] 2780]
>    has the following parameters:
>      CHAR1{2849} local
>      CHAR2{2850} local
>  [clone CHAR=?[418] 2777]
>    has the following parameters:
>      CHAR1{2844} local
>      CHAR2{2845} local
>  [clone LOOP?[421] 2774]
>    has the following parameters:
>      CHAR1{2840} local
>      CHAR2{2841} local
>  [clone CHAR=?[418] 2771]
>    has the following parameters:
>      CHAR1{2835} local
>      CHAR2{2836} local
>  [clone LOOP?[421] 2768]
>    has the following parameters:
>      CHAR1{2831} local
>      CHAR2{2832} local
>  [clone CHAR=?[418] 2765]
>    has the following parameters:
>      CHAR1{2826} local
>      CHAR2{2827} local
>  [clone LOOP?[421] 2762]
>    has the following parameters:
>      CHAR1{2822} local
>      CHAR2{2823} local
>  [clone CHAR=?[418] 2759]
>    has the following parameters:
>      CHAR1{2817} local
>      CHAR2{2818} local
>  [clone LOOP?[421] 2756]
>    has the following parameters:
>      CHAR1{2813} local
>      CHAR2{2814} local
>  [clone CHAR=?[418] 2753]
>    has the following parameters:
>      CHAR1{2808} local
>      CHAR2{2809} local
>  [clone LOOP?[421] 2750]
>    has the following parameters:
>      CHAR1{2804} local
>      CHAR2{2805} local
>  [clone CHAR=?[418] 2747]
>    has the following parameters:
>      CHAR1{2799} local
>      CHAR2{2800} local
>  [clone LOOP?[421] 2744]
>    has the following parameters:
>      CHAR1{2795} local
>      CHAR2{2796} local
>  [clone CHAR=?[418] 2741]
>    has the following parameters:
>      CHAR1{2790} local
>      CHAR2{2791} local
>  [clone LOOP?[421] 2738]
>    has the following parameters:
>      CHAR1{2786} local
>      CHAR2{2787} local
>  [clone CHAR=?[418] 2735]
>    has the following parameters:
>      CHAR1{2781} local
>      CHAR2{2782} local
>  [clone LOOP?[421] 2732]
>    has the following parameters:
>      CHAR1{2777} local
>      CHAR2{2778} local
>  [clone CHAR=?[418] 2729]
>    has the following parameters:
>      CHAR1{2772} local
>      CHAR2{2773} local
>  [clone LOOP?[421] 2726]
>    has the following parameters:
>      CHAR1{2768} local
>      CHAR2{2769} local
>  [clone CHAR=?[418] 2723]
>    has the following parameters:
>      CHAR1{2763} local
>      CHAR2{2764} local
>  [clone LOOP?[421] 2720]
>    has the following parameters:
>      CHAR1{2759} local
>      CHAR2{2760} local
>  [clone CHAR=?[418] 2717]
>    has the following parameters:
>      CHAR1{2754} local
>      CHAR2{2755} local
>  [clone LOOP?[421] 2714]
>    has the following parameters:
>      CHAR1{2750} local
>      CHAR2{2751} local
>  [clone CHAR=?[418] 2711]
>    has the following parameters:
>      CHAR1{2745} local
>      CHAR2{2746} local
>  [clone LOOP?[421] 2708]
>    has the following parameters:
>      CHAR1{2741} local
>      CHAR2{2742} local
>  [clone CHAR=?[418] 2705]
>    has the following parameters:
>      CHAR1{2736} local
>      CHAR2{2737} local
>  [clone LOOP?[421] 2702]
>    has the following parameters:
>      CHAR1{2732} local
>      CHAR2{2733} local
>  [clone CHAR=?[418] 2699]
>    has the following parameters:
>      CHAR1{2727} local
>      CHAR2{2728} local
>  [clone LOOP?[421] 2696]
>    has the following parameters:
>      CHAR1{2723} local
>      CHAR2{2724} local
>  [clone CHAR=?[418] 2693]
>    has the following parameters:
>      CHAR1{2718} local
>      CHAR2{2719} local
>  [clone LOOP?[421] 2690]
>    has the following parameters:
>      CHAR1{2714} local
>      CHAR2{2715} local
>  [clone CHAR=?[418] 2687]
>    has the following parameters:
>      CHAR1{2709} local
>      CHAR2{2710} local
>  [clone LOOP?[421] 2684]
>    has the following parameters:
>      CHAR1{2705} local
>      CHAR2{2706} local
>  [clone CHAR=?[418] 2681]
>    has the following parameters:
>      CHAR1{2700} local
>      CHAR2{2701} local
>  [clone LOOP?[421] 2678]
>    has the following parameters:
>      CHAR1{2696} local
>      CHAR2{2697} local
>  [clone CHAR=?[418] 2675]
>    has the following parameters:
>      CHAR1{2691} local
>      CHAR2{2692} local
>  [clone LOOP?[421] 2672]
>    has the following parameters:
>      CHAR1{2687} local
>      CHAR2{2688} local
>  [clone CHAR=?[418] 2669]
>    has the following parameters:
>      CHAR1{2682} local
>      CHAR2{2683} local
>  [clone LOOP?[421] 2666]
>    has the following parameters:
>      CHAR1{2678} local
>      CHAR2{2679} local
>  [clone CHAR=?[418] 2663]
>    has the following parameters:
>      CHAR1{2673} local
>      CHAR2{2674} local
>  [clone LOOP?[421] 2660]
>    has the following parameters:
>      CHAR1{2669} local
>      CHAR2{2670} local
>  [clone CHAR=?[418] 2657]
>    has the following parameters:
>      CHAR1{2664} local
>      CHAR2{2665} local
>  [clone LOOP?[421] 2654]
>    has the following parameters:
>      CHAR1{2660} local
>      CHAR2{2661} local
>  [clone CHAR=?[418] 2651]
>    has the following parameters:
>      CHAR1{2655} local
>      CHAR2{2656} local
>  [clone LOOP?[421] 2648]
>    has the following parameters:
>      CHAR1{2651} local
>      CHAR2{2652} local
>  [clone CHAR=?[418] 2645]
>    has the following parameters:
>      CHAR1{2646} local
>      CHAR2{2647} local
>  [clone LOOP?[421] 2642]
>    has the following parameters:
>      CHAR1{2642} local
>      CHAR2{2643} local
>  [clone CHAR=?[418] 2639]
>    has the following parameters:
>      CHAR1{2637} local
>      CHAR2{2638} local
>  [clone LOOP?[421] 2636]
>    has the following parameters:
>      CHAR1{2633} local
>      CHAR2{2634} local
>  [clone CHAR=?[418] 2633]
>    has the following parameters:
>      CHAR1{2628} local
>      CHAR2{2629} local
>  [clone LOOP?[421] 2630]
>    has the following parameters:
>      CHAR1{2624} local
>      CHAR2{2625} local
>  [clone CHAR=?[418] 2627]
>    has the following parameters:
>      CHAR1{2619} local
>      CHAR2{2620} local
>  [clone LOOP?[421] 2624]
>    has the following parameters:
>      CHAR1{2615} local
>      CHAR2{2616} local
>  [clone CHAR=?[418] 2621]
>    has the following parameters:
>      CHAR1{2610} local
>      CHAR2{2611} local
>  [clone LOOP?[421] 2618]
>    has the following parameters:
>      CHAR1{2606} local
>      CHAR2{2607} local
>  [clone CHAR=?[418] 2615]
>    has the following parameters:
>      CHAR1{2601} local
>      CHAR2{2602} local
>  [clone LOOP?[421] 2612]
>    has the following parameters:
>      CHAR1{2597} local
>      CHAR2{2598} local
>  [clone CHAR=?[418] 2609]
>    has the following parameters:
>      CHAR1{2592} local
>      CHAR2{2593} local
>  [clone LOOP?[421] 2606]
>    has the following parameters:
>      CHAR1{2588} local
>      CHAR2{2589} local
>  [clone CHAR=?[418] 2603]
>    has the following parameters:
>      CHAR1{2583} local
>      CHAR2{2584} local
>  [clone LOOP?[421] 2600]
>    has the following parameters:
>      CHAR1{2579} local
>      CHAR2{2580} local
>  [clone CHAR=?[418] 2597]
>    has the following parameters:
>      CHAR1{2574} local
>      CHAR2{2575} local
>  [clone LOOP?[421] 2594]
>    has the following parameters:
>      CHAR1{2570} local
>      CHAR2{2571} local
>  [clone CHAR=?[418] 2591]
>    has the following parameters:
>      CHAR1{2565} local
>      CHAR2{2566} local
>  [clone LOOP?[421] 2588]
>    has the following parameters:
>      CHAR1{2561} local
>      CHAR2{2562} local
>  [clone CHAR=?[418] 2585]
>    has the following parameters:
>      CHAR1{2556} local
>      CHAR2{2557} local
>  [clone LOOP?[421] 2582]
>    has the following parameters:
>      CHAR1{2552} local
>      CHAR2{2553} local
>  [clone CHAR=?[418] 2579]
>    has the following parameters:
>      CHAR1{2547} local
>      CHAR2{2548} local
>  [clone LOOP?[421] 2576]
>    has the following parameters:
>      CHAR1{2543} local
>      CHAR2{2544} local
>  [clone CHAR=?[418] 2573]
>    has the following parameters:
>      CHAR1{2538} local
>      CHAR2{2539} local
>  [clone LOOP?[421] 2570]
>    has the following parameters:
>      CHAR1{2534} local
>      CHAR2{2535} local
>  [clone CHAR=?[418] 2567]
>    has the following parameters:
>      CHAR1{2529} local
>      CHAR2{2530} local
>  [clone LOOP?[421] 2564]
>    has the following parameters:
>      CHAR1{2525} local
>      CHAR2{2526} local
>  [clone CHAR=?[418] 2561]
>    has the following parameters:
>      CHAR1{2520} local
>      CHAR2{2521} local
>  [clone LOOP?[421] 2558]
>    has the following parameters:
>      CHAR1{2516} local
>      CHAR2{2517} local
>  [clone CHAR=?[418] 2555]
>    has the following parameters:
>      CHAR1{2511} local
>      CHAR2{2512} local
>  [clone LOOP?[421] 2552]
>    has the following parameters:
>      CHAR1{2507} local
>      CHAR2{2508} local
>  [clone CHAR=?[418] 2549]
>    has the following parameters:
>      CHAR1{2502} local
>      CHAR2{2503} local
>  [clone LOOP?[421] 2546]
>    has the following parameters:
>      CHAR1{2498} local
>      CHAR2{2499} local
>  [clone CHAR=?[418] 2543]
>    has the following parameters:
>      CHAR1{2493} local
>      CHAR2{2494} local
>  [clone LOOP?[421] 2540]
>    has the following parameters:
>      CHAR1{2489} local
>      CHAR2{2490} local
>  [clone CHAR=?[418] 2537]
>    has the following parameters:
>      CHAR1{2484} local
>      CHAR2{2485} local
>  [clone LOOP?[421] 2534]
>    has the following parameters:
>      CHAR1{2480} local
>      CHAR2{2481} local
>  [clone CHAR=?[418] 2531]
>    has the following parameters:
>      CHAR1{2475} local
>      CHAR2{2476} local
>  [clone LOOP?[421] 2528]
>    has the following parameters:
>      CHAR1{2471} local
>      CHAR2{2472} local
>  [clone CHAR=?[418] 2525]
>    has the following parameters:
>      CHAR1{2466} local
>      CHAR2{2467} local
>  [clone LOOP?[421] 2522]
>    has the following parameters:
>      CHAR1{2462} local
>      CHAR2{2463} local
>  [clone CHAR=?[418] 2519]
>    has the following parameters:
>      CHAR1{2457} local
>      CHAR2{2458} local
>  [clone LOOP?[421] 2516]
>    has the following parameters:
>      CHAR1{2453} local
>      CHAR2{2454} local
>  [clone CHAR=?[418] 2513]
>    has the following parameters:
>      CHAR1{2448} local
>      CHAR2{2449} local
>  [clone LOOP?[421] 2510]
>    has the following parameters:
>      CHAR1{2444} local
>      CHAR2{2445} local
>  [clone CHAR=?[418] 2507]
>    has the following parameters:
>      CHAR1{2439} local
>      CHAR2{2440} local
>  [clone LOOP?[421] 2504]
>    has the following parameters:
>      CHAR1{2435} local
>      CHAR2{2436} local
>  [clone CHAR=?[418] 2501]
>    has the following parameters:
>      CHAR1{2430} local
>      CHAR2{2431} local
>  [clone LOOP?[421] 2498]
>    has the following parameters:
>      CHAR1{2426} local
>      CHAR2{2427} local
>  [clone CHAR=?[418] 2495]
>    has the following parameters:
>      CHAR1{2421} local
>      CHAR2{2422} local
>  [clone LOOP?[421] 2492]
>    has the following parameters:
>      CHAR1{2417} local
>      CHAR2{2418} local
>  [clone CHAR=?[418] 2489]
>    has the following parameters:
>      CHAR1{2412} local
>      CHAR2{2413} local
>  [clone LOOP?[421] 2486]
>    has the following parameters:
>      CHAR1{2408} local
>      CHAR2{2409} local
>  [clone CHAR=?[418] 2483]
>    has the following parameters:
>      CHAR1{2403} local
>      CHAR2{2404} local
>  [clone LOOP?[421] 2480]
>    has the following parameters:
>      CHAR1{2399} local
>      CHAR2{2400} local
>  [clone CHAR=?[418] 2477]
>    has the following parameters:
>      CHAR1{2394} local
>      CHAR2{2395} local
>  [clone LOOP?[421] 2474]
>    has the following parameters:
>      CHAR1{2390} local
>      CHAR2{2391} local
>  [clone CHAR=?[418] 2471]
>    has the following parameters:
>      CHAR1{2385} local
>      CHAR2{2386} local
>  [clone LOOP?[427] 2468]
>    has the following parameters:
>      CHAR1{2381} local
>      CHAR2{2382} local
>  [clone CHAR<?[424] 2465]
>    has the following parameters:
>      CHAR1{2376} local
>      CHAR2{2377} local
>  [clone LOOP?[433] 2462]
>    has the following parameters:
>      CHAR1{2372} local
>      CHAR2{2373} local
>  [clone CHAR>?[430] 2459]
>    has the following parameters:
>      CHAR1{2367} local
>      CHAR2{2368} local
>  [clone LOOP?[439] 2456]
>    has the following parameters:
>      CHAR1{2363} local
>      CHAR2{2364} local
>  [clone CHAR<=?[436] 2453]
>    has the following parameters:
>      CHAR1{2358} local
>      CHAR2{2359} local
>  [clone LOOP?[439] 2450]
>    has the following parameters:
>      CHAR1{2354} local
>      CHAR2{2355} local
>  [clone CHAR<=?[436] 2447]
>    has the following parameters:
>      CHAR1{2349} local
>      CHAR2{2350} local
>  [clone LOOP?[439] 2444]
>    has the following parameters:
>      CHAR1{2345} local
>      CHAR2{2346} local
>  [clone CHAR<=?[436] 2441]
>    has the following parameters:
>      CHAR1{2340} local
>      CHAR2{2341} local
>  [clone LOOP?[439] 2438]
>    has the following parameters:
>      CHAR1{2336} local
>      CHAR2{2337} local
>  [clone CHAR<=?[436] 2435]
>    has the following parameters:
>      CHAR1{2331} local
>      CHAR2{2332} local
>  [clone LOOP?[439] 2432]
>    has the following parameters:
>      CHAR1{2327} local
>      CHAR2{2328} local
>  [clone CHAR<=?[436] 2429]
>    has the following parameters:
>      CHAR1{2322} local
>      CHAR2{2323} local
>  [clone LOOP?[439] 2426]
>    has the following parameters:
>      CHAR1{2318} local
>      CHAR2{2319} local
>  [clone CHAR<=?[436] 2423]
>    has the following parameters:
>      CHAR1{2313} local
>      CHAR2{2314} local
>  [clone LOOP?[439] 2420]
>    has the following parameters:
>      CHAR1{2309} local
>      CHAR2{2310} local
>  [clone CHAR<=?[436] 2417]
>    has the following parameters:
>      CHAR1{2304} local
>      CHAR2{2305} local
>  [clone LOOP?[439] 2414]
>    has the following parameters:
>      CHAR1{2300} local
>      CHAR2{2301} local
>  [clone CHAR<=?[436] 2411]
>    has the following parameters:
>      CHAR1{2295} local
>      CHAR2{2296} local
>  [clone LOOP?[439] 2408]
>    has the following parameters:
>      CHAR1{2291} local
>      CHAR2{2292} local
>  [clone CHAR<=?[436] 2405]
>    has the following parameters:
>      CHAR1{2286} local
>      CHAR2{2287} local
>  [clone LOOP?[445] 2402]
>    has the following parameters:
>      CHAR1{2282} local
>      CHAR2{2283} local
>  [clone CHAR>=?[442] 2399]
>    has the following parameters:
>      CHAR1{2277} local
>      CHAR2{2278} local
>  [clone LOOP?[445] 2396]
>    has the following parameters:
>      CHAR1{2273} local
>      CHAR2{2274} local
>  [clone CHAR>=?[442] 2393]
>    has the following parameters:
>      CHAR1{2268} local
>      CHAR2{2269} local
>  [clone LOOP?[445] 2390]
>    has the following parameters:
>      CHAR1{2264} local
>      CHAR2{2265} local
>  [clone CHAR>=?[442] 2387]
>    has the following parameters:
>      CHAR1{2259} local
>      CHAR2{2260} local
>  [clone LOOP?[445] 2384]
>    has the following parameters:
>      CHAR1{2255} local
>      CHAR2{2256} local
>  [clone CHAR>=?[442] 2381]
>    has the following parameters:
>      CHAR1{2250} local
>      CHAR2{2251} local
>  [clone LOOP?[445] 2378]
>    has the following parameters:
>      CHAR1{2246} local
>      CHAR2{2247} local
>  [clone CHAR>=?[442] 2375]
>    has the following parameters:
>      CHAR1{2241} local
>      CHAR2{2242} local
>  [clone LOOP?[445] 2372]
>    has the following parameters:
>      CHAR1{2237} local
>      CHAR2{2238} local
>  [clone CHAR>=?[442] 2369]
>    has the following parameters:
>      CHAR1{2232} local
>      CHAR2{2233} local
>  [clone LOOP?[445] 2366]
>    has the following parameters:
>      CHAR1{2228} local
>      CHAR2{2229} local
>  [clone CHAR>=?[442] 2363]
>    has the following parameters:
>      CHAR1{2223} local
>      CHAR2{2224} local
>  [clone LOOP?[445] 2360]
>    has the following parameters:
>      CHAR1{2219} local
>      CHAR2{2220} local
>  [clone CHAR>=?[442] 2357]
>    has the following parameters:
>      CHAR1{2214} local
>      CHAR2{2215} local
>  [clone LOOP?[445] 2354]
>    has the following parameters:
>      CHAR1{2210} local
>      CHAR2{2211} local
>  [clone CHAR>=?[442] 2351]
>    has the following parameters:
>      CHAR1{2205} local
>      CHAR2{2206} local
>  [clone READ-CHAR[1772] 2347]
>    has the following parameter:
>      &REST{2204} local
>  [clone READ-CHAR[1772] 2343]
>    has the following parameter:
>      &REST{2203} local
>  [clone READ-CHAR[1772] 2339]
>    has the following parameter:
>      &REST{2202} local
>  [clone READ-CHAR[1772] 2335]
>    has the following parameter:
>      &REST{2201} local
>  [clone READ-CHAR[1772] 2331]
>    has the following parameter:
>      &REST{2200} local
>  [clone READ-CHAR[1772] 2327]
>    has the following parameter:
>      &REST{2199} local
>  [clone READ-CHAR[1772] 2323]
>    has the following parameter:
>      &REST{2198} local
>  [clone READ-CHAR[1772] 2319]
>    has the following parameter:
>      &REST{2197} local
>  [clone READ-CHAR[1772] 2315]
>    has the following parameter:
>      &REST{2196} local
>  [clone READ-CHAR[1772] 2311]
>    has the following parameter:
>      &REST{2195} local
>  [clone READ-CHAR[1772] 2307]
>    has the following parameter:
>      &REST{2194} local
>  [clone READ-CHAR[1772] 2303]
>    has the following parameter:
>      &REST{2193} local
>  [clone READ-CHAR[1772] 2299]
>    has the following parameter:
>      &REST{2192} local
>  [clone READ-CHAR[1772] 2295]
>    has the following parameter:
>      &REST{2191} local
>  [clone READ-CHAR[1772] 2291]
>    has the following parameter:
>      &REST{2190} local
>  [clone READ-CHAR[1772] 2287]
>    has the following parameter:
>      &REST{2189} local
>  [clone READ-CHAR[1772] 2283]
>    has the following parameter:
>      &REST{2188} local
>  [clone READ-CHAR[1772] 2279]
>    has the following parameter:
>      &REST{2187} local
>  [clone READ-CHAR[1772] 2275]
>    has the following parameter:
>      &REST{2186} local
>  [clone READ-CHAR[1772] 2271]
>    has the following parameter:
>      &REST{2185} local
>  [clone READ-CHAR[1772] 2267]
>    has the following parameter:
>      &REST{2184} local
>  [clone READ-CHAR[1772] 2263]
>    has the following parameter:
>      &REST{2183} local
>  [clone READ-CHAR[1772] 2259]
>    has the following parameter:
>      &REST{2182} local
>  [clone READ-CHAR[1772] 2255]
>    has the following parameter:
>      &REST{2181} local
>  [clone READ-CHAR[1772] 2251]
>    has the following parameter:
>      &REST{2180} local
>  [clone READ-CHAR[1772] 2247]
>    has the following parameter:
>      &REST{2179} local
>  [clone READ-CHAR[1772] 2243]
>    has the following parameter:
>      &REST{2178} local
>  [clone READ-CHAR[1772] 2239]
>    has the following parameter:
>      &REST{2177} local
>  [clone READ-CHAR[1772] 2235]
>    has the following parameter:
>      &REST{2176} local
>  [clone READ-CHAR[1772] 2231]
>    has the following parameter:
>      &REST{2175} local
>  [clone READ-CHAR[1772] 2227]
>    has the following parameter:
>      &REST{2174} local
>  [clone READ-CHAR[1772] 2223]
>    has the following parameter:
>      &REST{2173} local
>  [clone READ-CHAR[1772] 2219]
>    has the following parameter:
>      &REST{2172} local
>  [clone READ-CHAR[1772] 2215]
>    has the following parameter:
>      &REST{2171} local
>  [clone READ-CHAR[1772] 2211]
>    has the following parameter:
>      &REST{2170} local
>  [clone READ-CHAR[1772] 2207]
>    has the following parameter:
>      &REST{2169} local
>  [clone READ-CHAR[1772] 2203]
>    has the following parameter:
>      &REST{2168} local
>  [clone READ-CHAR[1772] 2199]
>    has the following parameter:
>      &REST{2167} local
>  [clone READ-CHAR[1772] 2195]
>    has the following parameter:
>      &REST{2166} local
>  [clone READ-CHAR[1772] 2191]
>    has the following parameter:
>      &REST{2165} local
>  [clone READ-CHAR[1772] 2187]
>    has the following parameter:
>      &REST{2164} local
>  [clone READ-CHAR[1772] 2183]
>    has the following parameter:
>      &REST{2163} local
>  [clone READ-CHAR[1772] 2179]
>    has the following parameter:
>      &REST{2162} local
>  [clone READ-CHAR[1772] 2175]
>    has the following parameter:
>      &REST{2161} local
>  [clone READ-CHAR[1772] 2171]
>    has the following parameter:
>      &REST{2160} local
>  [clone READ-CHAR[1772] 2167]
>    has the following parameter:
>      &REST{2159} local
>  [clone READ-CHAR[1772] 2163]
>    has the following parameter:
>      &REST{2158} local
>  [clone READ-CHAR[1772] 2159]
>    has the following parameter:
>      &REST{2157} local
>  [clone READ-CHAR[1772] 2155]
>    has the following parameter:
>      &REST{2156} local
>  [clone READ-CHAR[1772] 2151]
>    has the following parameter:
>      &REST{2155} local
>  [clone READ-CHAR[1772] 2147]
>    has the following parameter:
>      &REST{2154} local
>  [clone READ-CHAR[1772] 2143]
>    has the following parameter:
>      &REST{2153} local
>  [clone READ-CHAR[1772] 2139]
>    has the following parameter:
>      &REST{2152} local
>  [clone PEEK-CHAR[1776] 2135]
>    has the following parameter:
>      &REST{2151} local
>  [clone PEEK-CHAR[1776] 2131]
>    has the following parameter:
>      &REST{2150} local
>  [clone PEEK-CHAR[1776] 2127]
>    has the following parameter:
>      &REST{2149} local
>  [clone PEEK-CHAR[1776] 2123]
>    has the following parameter:
>      &REST{2148} local
>  [clone PEEK-CHAR[1776] 2119]
>    has the following parameter:
>      &REST{2147} local
>  [clone PEEK-CHAR[1776] 2115]
>    has the following parameter:
>      &REST{2146} local
>  [clone PEEK-CHAR[1776] 2111]
>    has the following parameter:
>      &REST{2145} local
>  [clone PEEK-CHAR[1776] 2107]
>    has the following parameter:
>      &REST{2144} local
>  [clone PEEK-CHAR[1776] 2103]
>    has the following parameter:
>      &REST{2143} local
>  [clone PEEK-CHAR[1776] 2099]
>    has the following parameter:
>      &REST{2142} local
>  [clone PEEK-CHAR[1776] 2095]
>    has the following parameter:
>      &REST{2141} local
>  [clone PEEK-CHAR[1776] 2091]
>    has the following parameter:
>      &REST{2140} local
>  [clone PEEK-CHAR[1776] 2087]
>    has the following parameter:
>      &REST{2139} local
>  [clone LIST[77] 2086]
>    has the following parameter:
>      OBJS{2138} local
>  [clone LIST[77] 2085]
>    has the following parameter:
>      OBJS{2137} local
>  [clone LIST[77] 2084]
>    has the following parameter:
>      OBJS{2136} local
>  [clone LIST[77] 2083]
>    has the following parameter:
>      OBJS{2135} local
>  [clone LIST[77] 2082]
>    has the following parameter:
>      OBJS{2134} local
>  [clone LIST[77] 2081]
>    has the following parameter:
>      OBJS{2133} local
>  [clone LIST[77] 2080]
>    has the following parameter:
>      OBJS{2132} local
>  [clone LIST[77] 2079]
>    has the following parameter:
>      OBJS{2131} local
>  [clone LIST[77] 2078]
>    has the following parameter:
>      OBJS{2130} local
>  [clone LIST[77] 2077]
>    has the following parameter:
>      OBJS{2129} local
>  [clone [inside top level 479] 2076]
>    has the following parameter:
>      CHAR{2128} local
>  [clone [inside top level 479] 2075]
>    has the following parameter:
>      CHAR{2127} local
>  [clone [inside top level 481] 2074]
>    has the following parameter:
>      CHAR{2126} local
>  [clone [inside top level 481] 2073]
>    has the following parameter:
>      CHAR{2125} local
>  [clone [inside top level 481] 2072]
>    has the following parameter:
>      CHAR{2124} local
>  [clone [inside top level 481] 2071]
>    has the following parameter:
>      CHAR{2123} local
>  [clone [inside top level 481] 2070]
>    has the following parameter:
>      CHAR{2122} local
>  [clone [inside top level 481] 2069]
>    has the following parameter:
>      CHAR{2121} local
>  [clone [inside top level 481] 2068]
>    has the following parameter:
>      CHAR{2120} local
>  [clone [inside top level 481] 2067]
>    has the following parameter:
>      CHAR{2119} local
>  [clone [inside top level 481] 2066]
>    has the following parameter:
>      CHAR{2118} local
>  [clone [inside top level 481] 2065]
>    has the following parameter:
>      CHAR{2117} local
>  [clone [inside top level 481] 2064]
>    has the following parameter:
>      CHAR{2116} local
>  [clone [inside top level 481] 2063]
>    has the following parameter:
>      CHAR{2115} local
>  [clone [inside top level 481] 2062]
>    has the following parameter:
>      CHAR{2114} local
>  [clone [inside top level 481] 2061]
>    has the following parameter:
>      CHAR{2113} local
>  [clone [inside top level 481] 2060]
>    has the following parameter:
>      CHAR{2112} local
>  [clone [inside top level 481] 2059]
>    has the following parameter:
>      CHAR{2111} local
>  [clone [inside top level 481] 2058]
>    has the following parameter:
>      CHAR{2110} local
>  [clone [inside top level 481] 2057]
>    has the following parameter:
>      CHAR{2109} local
>  [clone [inside top level 481] 2056]
>    has the following parameter:
>      CHAR{2108} local
>  [clone [inside top level 481] 2055]
>    has the following parameter:
>      CHAR{2107} local
>  [clone [inside top level 481] 2054]
>    has the following parameter:
>      CHAR{2106} local
>  [clone [inside top level 481] 2053]
>    has the following parameter:
>      CHAR{2105} local
>  [clone [inside top level 481] 2052]
>    has the following parameter:
>      CHAR{2104} local
>  [clone [inside top level 481] 2051]
>    has the following parameter:
>      CHAR{2103} local
>  [clone [inside top level 481] 2050]
>    has the following parameter:
>      CHAR{2102} local
>  [clone [inside top level 491] 2049]
>    has the following parameter:
>      CHAR{2101} local
>  [clone [inside top level 491] 2048]
>    has the following parameter:
>      CHAR{2100} local
>  [clone [inside top level 491] 2047]
>    has the following parameter:
>      CHAR{2099} local
>  [clone [inside top level 491] 2046]
>    has the following parameter:
>      CHAR{2098} local
>  [clone [inside top level 491] 2045]
>    has the following parameter:
>      CHAR{2097} local
>  [clone [inside top level 491] 2044]
>    has the following parameter:
>      CHAR{2096} local
>  [clone [inside top level 491] 2043]
>    has the following parameter:
>      CHAR{2095} local
>  [clone [inside top level 491] 2042]
>    has the following parameter:
>      CHAR{2094} local
>  [clone [inside top level 491] 2041]
>    has the following parameter:
>      CHAR{2093} local
>  [clone [inside top level 491] 2040]
>    has the following parameter:
>      CHAR{2092} local
>  [clone [inside top level 491] 2039]
>    has the following parameter:
>      CHAR{2091} local
>  [clone [inside top level 491] 2038]
>    has the following parameter:
>      CHAR{2090} local
>  [clone [inside top level 491] 2037]
>    has the following parameter:
>      CHAR{2089} local
>  [clone [inside top level 491] 2036]
>    has the following parameter:
>      CHAR{2088} local
>  [clone [inside top level 491] 2035]
>    has the following parameter:
>      CHAR{2087} local
>  PEEK-CHAR[1776]
>    has the following parameter:
>      &REST{2070} local
>  READ-CHAR[1772]
>    has the following parameter:
>      &REST{2069} local
>  [inside READ-CHARACTER-NAME 1260]
>    has the following parameter:
>      C{1719} local
>  READ-CHARACTER-NAME[1259]
>    has region
>    has the following parameter:
>      S{1718} local
>  [inside LOOP? 1255]
>    has the following parameter:
>      v{1717} local
>  LOOP?[1254]
>    has the following parameters:
>      S{1715} local
>      NAME{1716} local
>  LOOP[1250]
>    has the following parameter:
>      NAMES{1711} local
>  [inside READ-SYMBOL 1246]
>    has region
>  [inside READ-SYMBOL 1243]
>    has region
>  [inside READ-SYMBOL 1242]
>    has the following parameter:
>      C{1706} local
>  [inside CHAR-SUBSEQUENT? 1240]
>    has the following parameter:
>      v{1704} local
>  [inside CHAR-SUBSEQUENT? 1239]
>    has the following parameter:
>      v{1703} local
>  [inside CHAR-SUBSEQUENT? 1238]
>    has the following parameter:
>      v{1702} local
>  [inside CHAR-SUBSEQUENT? 1237]
>    has the following parameter:
>      v{1701} local
>  CHAR-SUBSEQUENT?[1236]
>    has the following parameter:
>      C{1700} local
>  [inside CHAR-INITIAL? 1235]
>    has the following parameter:
>      v{1699} local
>  [inside CHAR-INITIAL? 1234]
>    has the following parameter:
>      v{1698} local
>  [inside CHAR-INITIAL? 1233]
>    has the following parameter:
>      v{1697} local
>  [inside CHAR-INITIAL? 1232]
>    has the following parameter:
>      v{1696} local
>  [inside CHAR-INITIAL? 1231]
>    has the following parameter:
>      v{1695} local
>  [inside CHAR-INITIAL? 1230]
>    has the following parameter:
>      v{1694} local
>  [inside CHAR-INITIAL? 1229]
>    has the following parameter:
>      v{1693} local
>  [inside CHAR-INITIAL? 1228]
>    has the following parameter:
>      v{1692} local
>  [inside CHAR-INITIAL? 1227]
>    has the following parameter:
>      v{1691} local
>  [inside CHAR-INITIAL? 1226]
>    has the following parameter:
>      v{1690} local
>  [inside CHAR-INITIAL? 1225]
>    has the following parameter:
>      v{1689} local
>  [inside CHAR-INITIAL? 1224]
>    has the following parameter:
>      v{1688} local
>  [inside CHAR-INITIAL? 1223]
>    has the following parameter:
>      v{1687} local
>  [inside CHAR-INITIAL? 1222]
>    has the following parameter:
>      v{1686} local
>  [inside READ-NUMBER 1214]
>    has the following parameter:
>      C3{1682} local
>  [inside READ-NUMBER 1213]
>    has region
>  [inside READ-NUMBER 1209]
>    has the following parameter:
>      C3{1679} local
>  [inside READ-NUMBER 1208]
>    has region
>  [inside READ-NUMBER 1205]
>    has the following parameter:
>      C2{1677} local
>  [inside READ-NUMBER 1204]
>    has region
>  [inside READ-NUMBER 1203]
>    has region
>  [inside READ-NUMBER 1202]
>    has the following parameter:
>      v{1675} local
>  [inside READ-NUMBER 1201]
>    has the following parameter:
>      v{1674} local
>  [inside READ-NUMBER 1200]
>    has the following parameter:
>      v{1673} local
>  [inside READ-NUMBER 1199]
>    has the following parameter:
>      v{1672} local
>  [inside READ-NUMBER 1198]
>    has the following parameter:
>      v{1671} local
>  [inside READ-NUMBER 1197]
>    has the following parameter:
>      v{1670} local
>  [inside READ-NUMBER 1196]
>    has the following parameter:
>      v{1669} local
>  [inside READ-NUMBER 1195]
>    has the following parameter:
>      v{1668} local
>  [inside READ-NUMBER 1194]
>    has the following parameter:
>      v{1667} local
>  [inside READ-NUMBER 1192]
>    has region
>  [inside READ-NUMBER 1188]
>    has the following parameter:
>      C1{1664} local
>  [inside READ-INEXACT-NUMBER 1180]
>    has the following parameter:
>      C3{1660} local
>  [inside READ-INEXACT-NUMBER 1179]
>    has region
>  [inside READ-INEXACT-NUMBER 1175]
>    has the following parameter:
>      C3{1657} local
>  [inside READ-INEXACT-NUMBER 1174]
>    has region
>  [inside READ-INEXACT-NUMBER 1171]
>    has the following parameter:
>      C2{1655} local
>  [inside READ-INEXACT-NUMBER 1170]
>    has region
>  [inside READ-INEXACT-NUMBER 1169]
>    has region
>  [inside READ-INEXACT-NUMBER 1168]
>    has the following parameter:
>      v{1653} local
>  [inside READ-INEXACT-NUMBER 1167]
>    has the following parameter:
>      v{1652} local
>  [inside READ-INEXACT-NUMBER 1166]
>    has the following parameter:
>      v{1651} local
>  [inside READ-INEXACT-NUMBER 1165]
>    has the following parameter:
>      v{1650} local
>  [inside READ-INEXACT-NUMBER 1164]
>    has the following parameter:
>      v{1649} local
>  [inside READ-INEXACT-NUMBER 1163]
>    has the following parameter:
>      v{1648} local
>  [inside READ-INEXACT-NUMBER 1162]
>    has the following parameter:
>      v{1647} local
>  [inside READ-INEXACT-NUMBER 1161]
>    has the following parameter:
>      v{1646} local
>  [inside READ-INEXACT-NUMBER 1160]
>    has the following parameter:
>      v{1645} local
>  [inside READ-INEXACT-NUMBER 1156]
>    has the following parameter:
>      C1{1643} local
>  [inside READ-EXACT-HEXADECIMAL-INTEGER 1146]
>    has the following parameter:
>      C{1637} local
>  [inside READ-EXACT-DECIMAL-INTEGER 1140]
>    has the following parameter:
>      C{1634} local
>  [inside READ-EXACT-OCTAL-INTEGER 1134]
>    has the following parameter:
>      C{1631} local
>  [inside READ-EXACT-BINARY-INTEGER 1126]
>    has the following parameter:
>      C{1627} local
>  [inside READ 1123]
>    has region
>  [inside READ 1118]
>    has region
>  [inside READ 1117]
>    has region
>  [inside READ 1115]
>    has region
>  [inside READ 1113]
>    has the following parameter:
>      C2{1622} local
>  [inside READ 1112]
>    has region
>  [inside READ 1110]
>    has region
>  [inside READ 1109]
>    has region
>  [inside READ 1107]
>    has region
>  [inside READ 1106]
>    has region
>  [inside READ 1104]
>    has region
>  [inside READ 1102]
>    has the following parameter:
>      C3{1618} local
>  [inside READ 1101]
>    has region
>  [inside READ 1100]
>    has region
>  [inside READ 1098]
>    has region
>  [inside READ 1096]
>    has the following parameter:
>      C2{1615} local
>  [inside READ 1095]
>    has region
>  [inside READ 1093]
>    has region
>  [inside READ 1092]
>    has region
>  [inside READ 1090]
>    has region
>  [inside READ 1089]
>    has region
>  [inside READ 1087]
>    has region
>  [inside READ 1085]
>    has the following parameter:
>      C3{1611} local
>  [inside READ 1084]
>    has region
>  [inside READ 1083]
>    has region
>  [inside READ 1081]
>    has region
>  [inside READ 1079]
>    has the following parameter:
>      C2{1608} local
>  [inside READ 1078]
>    has region
>  [inside LOOP 1074]
>    has region
>  [inside LOOP 1071]
>    has the following parameter:
>      C1{1606} local
>  [inside LOOP 1068]
>    has the following parameter:
>      C{1604} local
>  LOOP[1067]
>    has region
>    has the following parameter:
>      S{1603} local
>  [inside READ 1060]
>    has region
>  [inside READ 1059]
>    has the following parameter:
>      C3{1599} local
>  [inside READ 1058]
>    has region
>  [inside LOOP 1056] reentrant
>    has the following parameter:
>      E{1598} local
>  LOOP[1055] reentrant
>    has region
>    has the following parameter:
>      S{1597} local
>  [inside READ 1052] reentrant
>  [inside READ 1043]
>    has the following parameter:
>      C4{1593} local
>  [inside READ 1042]
>    has region
>  [inside READ 1035]
>    has the following parameter:
>      C4{1591} local
>  [inside READ 1034]
>    has region
>  [inside READ 1029]
>    has the following parameter:
>      C3{1589} local
>  [inside READ 1028]
>    has region
>  [inside READ 1027]
>    has the following parameter:
>      v{1588} local
>  [inside READ 1020]
>    has the following parameter:
>      C4{1585} local
>  [inside READ 1019]
>    has region
>  [inside READ 1013]
>    has the following parameter:
>      C5{1582} local
>  [inside READ 1012]
>    has region
>  [inside READ 1009]
>    has the following parameter:
>      C4{1580} local
>  [inside READ 1008]
>    has region
>  [inside READ 1002]
>    has the following parameter:
>      C5{1577} local
>  [inside READ 1001]
>    has region
>  [inside READ 998]
>    has the following parameter:
>      C4{1575} local
>  [inside READ 997]
>    has region
>  [inside READ 995]
>    has the following parameter:
>      C3{1573} local
>  [inside READ 994]
>    has region
>  [inside READ 993]
>    has the following parameter:
>      v{1572} local
>  [inside READ 989]
>    has the following parameter:
>      v{1571} local
>  [inside READ 986]
>    has the following parameter:
>      C4{1568} local
>  [inside READ 985]
>    has region
>  [inside READ 983]
>    has the following parameter:
>      v{1567} local
>  [inside READ 980]
>    has the following parameter:
>      C4{1564} local
>  [inside READ 979]
>    has region
>  [inside READ 976]
>    has the following parameter:
>      C3{1562} local
>  [inside READ 975]
>    has region
>  [inside READ 974]
>    has the following parameter:
>      v{1561} local
>  [inside READ 966]
>    has the following parameter:
>      C4{1559} local
>  [inside READ 965]
>    has region
>  [inside READ 959]
>    has the following parameter:
>      C4{1557} local
>  [inside READ 958]
>    has region
>  [inside READ 954]
>    has the following parameter:
>      C3{1555} local
>  [inside READ 953]
>    has region
>  [inside READ 952]
>    has the following parameter:
>      v{1554} local
>  [inside READ 950]
>    has the following parameter:
>      v{1553} local
>  [inside READ 948]
>    has the following parameter:
>      v{1552} local
>  [inside READ 947] reentrant
>  [inside READ 946] reentrant
>    has the following parameter:
>      C2{1550} local
>  [inside READ 945] reentrant
>  [inside LOOP 943] reentrant
>  LOOP[939]
>    has the following parameters:
>      S{1548} local
>      C{1549} local
>  [inside LOOP 934] reentrant
>    has the following parameter:
>      E1{1544} local
>  [inside LOOP 933] reentrant
>  [inside LOOP 932] reentrant
>  [inside LOOP 931] reentrant
>    has the following parameter:
>      E{1542} local
>  LOOP[930] reentrant
>    has region
>    has the following parameter:
>      S{1541} local
>  [inside READ 927] reentrant
>  [inside READ 925] reentrant
>  [inside READ 924] reentrant
>  [inside READ 923] reentrant
>  [inside READ 922] reentrant
>  [inside READ 921] reentrant
>    has the following parameter:
>      C2{1536} local
>  [inside READ 920] reentrant
>  [inside READ 919] reentrant
>  [inside READ 918] reentrant
>  [inside READ 916] reentrant
>  [inside LOOP 910]
>    has the following parameter:
>      C{1534} local
>  [inside READ 906] reentrant
>  [inside READ 905] reentrant
>  [inside READ 894] reentrant
>    has the following parameter:
>      C1{1530} local
>  [inside READ 893] reentrant
>  [inside READ 892] reentrant
>  [inside READ 888]
>    has the following parameters:
>      CLOSE{1503} global
>      DOT{1504} global
>  READ[886]
>    has the following parameter:
>      PORT{1501} global
>  [inside CALL-WITH-INPUT-FILE 867]
>    has the following parameter:
>      INPUT-PORT{1487} local
>  CALL-WITH-INPUT-FILE[866]
>    has the following parameter:
>      STRING{1485} local
>  LOOP[731]
>    has the following parameter:
>      K{1372} local
>  [inside LIST->VECTOR 727]
>    has the following parameter:
>      R{1368} local
>  LIST->VECTOR[726]
>    has the following parameter:
>      LIST{1367} local
>  LOOP[678]
>    has the following parameter:
>      K{1327} local
>  [inside STRING-COPY 673]
>    has the following parameter:
>      R{1323} local
>  [inside STRING-COPY 672]
>    has the following parameter:
>      N{1322} local
>  LOOP[666]
>    has the following parameter:
>      K{1318} local
>  [inside LIST->STRING 662]
>    has the following parameter:
>      R{1314} local
>  [inside LOOP? 518]
>    has the following parameter:
>      v{1145} local
>  LOOP?[517]
>    has the following parameter:
>      K{1144} local
>  [inside LOOP? 514]
>    has the following parameter:
>      N{1141} local
>  LOOP?[513]
>    has the following parameters:
>      STRING1{1138} local
>      STRING2{1139} local
>  [inside top level 491]
>    has the following parameter:
>      CHAR{1114} local
>  [inside top level 490]
>    has the following parameter:
>      CHAR-UPCASE{1113} global
>  [inside top level 483]
>    has the following parameter:
>      CHAR{1106} local
>  [inside top level 482]
>    has the following parameter:
>      CHAR-WHITESPACE?{1105} global
>  [inside top level 481]
>    has the following parameter:
>      CHAR{1104} local
>  [inside top level 480]
>    has the following parameter:
>      CHAR-NUMERIC?{1103} global
>  [inside top level 479]
>    has the following parameter:
>      CHAR{1102} local
>  [inside top level 478]
>    has the following parameter:
>      CHAR-ALPHABETIC?{1101} global
>  LOOP?[451]
>    has the following parameters:
>      CHAR1{1061} local
>      CHAR2{1062} local
>  CHAR-CI=?[448]
>    has the following parameters:
>      CHAR1{1056} local
>      CHAR2{1057} local
>  LOOP?[445]
>    has the following parameters:
>      CHAR1{1052} local
>      CHAR2{1053} local
>  CHAR>=?[442]
>    has the following parameters:
>      CHAR1{1047} local
>      CHAR2{1048} local
>  LOOP?[439]
>    has the following parameters:
>      CHAR1{1043} local
>      CHAR2{1044} local
>  CHAR<=?[436]
>    has the following parameters:
>      CHAR1{1038} local
>      CHAR2{1039} local
>  LOOP?[433]
>    has the following parameters:
>      CHAR1{1034} local
>      CHAR2{1035} local
>  CHAR>?[430]
>    has the following parameters:
>      CHAR1{1029} local
>      CHAR2{1030} local
>  LOOP?[427]
>    has the following parameters:
>      CHAR1{1025} local
>      CHAR2{1026} local
>  CHAR<?[424]
>    has the following parameters:
>      CHAR1{1020} local
>      CHAR2{1021} local
>  LOOP?[421]
>    has the following parameters:
>      CHAR1{1016} local
>      CHAR2{1017} local
>  CHAR=?[418]
>    has the following parameters:
>      CHAR1{1011} local
>      CHAR2{1012} local
>  LOOP[274]
>    has the following parameter:
>      PACKAGE{858} local
>  [inside top level 268]
>    has the following parameter:
>      FOUND{854} local
>  [inside top level 253]
>    has the following parameter:
>      PACKAGE{852} global
>  LOOP[188]
>    has the following parameters:
>      LIST{804} local
>      R{805} local
>  LIST-REVERSE[185]
>    has the following parameter:
>      LIST{801} local
>  LOOP[81]
>    has the following parameter:
>      K{730} local
>  LIST[77]
>    has the following parameter:
>      OBJS{726} local
>  [inside FREAD 14]
>    has region
>    has the following parameter:
>      STREAM{660} local
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on [inside READ-SYMBOL 1246]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside READ-SYMBOL 1243]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on LOOP[1055]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1259]:
>(READ-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1259]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1241]:
>(READ-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1241]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CHAR-UPCASE C) S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1203]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1204]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1213]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1208]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1192]:
>(READ-CHAR PORT)
>The following expression allocates on READ-NUMBER[1187]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1169]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1170]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1179]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1174]:
>(READ-CHAR PORT)
>The following expression allocates on READ-INEXACT-NUMBER[1155]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1145]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1145]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1145]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-DECIMAL-INTEGER[1139]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-OCTAL-INTEGER[1133]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1125]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1125]:
>(READ-CHAR PORT)
>The following expression allocates on READ[891]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1123]:
>(LIST (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1112]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1117]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1118]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1115]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1095]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1109]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1110]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1100]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1101]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1106]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1107]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1104]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1098]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1078]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1092]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1093]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1083]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1084]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1089]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1090]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1087]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1081]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1067]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on LOOP[1067]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1067]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C1 S)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1058]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1060]:
>(LIST C3)
>The following expression allocates on LOOP[1055]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on [inside READ 1028]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1042]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1034]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 994]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1019]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1008]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1012]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 997]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1001]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 975]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 985]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 979]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 953]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 965]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 958]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[930]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) E1)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) C)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on the heap:
>(LIST (QUOTE UNQUOTE) (READ (QUOTE UNQUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on the heap:
>(LIST (QUOTE UNQUOTE-SPLICING) (READ (QUOTE UNQUOTE-SPLICING)))
>The following expression allocates on the heap:
>(LIST (QUOTE QUASIQUOTE) (READ (QUOTE QUASIQUOTE)))
>The following expression allocates on the heap:
>(LIST (QUOTE QUOTE) (READ (QUOTE QUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) N)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (STRING-COPY STRING) PACKAGE)
>The following expression allocates on [inside LOOP 1074]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, fread-stalin.sc:19:742, allocates on [inside FREAD 14]:
>(READ STREAM)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W24553 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W14727 is general case for the following reasons:
>  flonum
>W14726 is general case for the following reasons:
>  flonum
>W14709 is general case for the following reasons:
>  flonum
>W14298 is general case for the following reasons:
>  flonum
>W14265 is general case for the following reasons:
>  flonum
>W14264 is general case for the following reasons:
>  flonum
>W14263 is general case for the following reasons:
>  flonum
>W13508 is general case for the following reasons:
>  flonum
>W13496 is general case for the following reasons:
>  flonum
>W261 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>fread-stalin.c: In function âf1241â:
>fread-stalin.c:1602:30: warning: value computed is not used
>fread-stalin.c: In function âf1187â:
>fread-stalin.c:2956:30: warning: value computed is not used
>fread-stalin.c:3079:30: warning: value computed is not used
>fread-stalin.c:3603:30: warning: value computed is not used
>fread-stalin.c: In function âf1155â:
>fread-stalin.c:4454:30: warning: value computed is not used
>fread-stalin.c:5000:30: warning: value computed is not used
>fread-stalin.c: In function âf1145â:
>fread-stalin.c:5685:30: warning: value computed is not used
>fread-stalin.c:5844:30: warning: value computed is not used
>fread-stalin.c:6005:30: warning: value computed is not used
>fread-stalin.c: In function âf1139â:
>fread-stalin.c:6180:30: warning: value computed is not used
>fread-stalin.c: In function âf1133â:
>fread-stalin.c:6444:30: warning: value computed is not used
>fread-stalin.c: In function âf1125â:
>fread-stalin.c:6669:30: warning: value computed is not used
>fread-stalin.c:6768:30: warning: value computed is not used
>fread-stalin.c: In function âf891â:
>fread-stalin.c:9581:31: warning: value computed is not used
>fread-stalin.c:14718:31: warning: value computed is not used
>fread-stalin.c:15397:31: warning: value computed is not used
>fread-stalin.c:15517:31: warning: value computed is not used
>fread-stalin.c:15653:31: warning: value computed is not used
>fread-stalin.c:15903:31: warning: value computed is not used
>fread-stalin.c:16257:31: warning: value computed is not used
>fread-stalin.c:16545:31: warning: value computed is not used
>fread-stalin.c:16680:31: warning: value computed is not used
>fread-stalin.c:16816:31: warning: value computed is not used
>fread-stalin.c:17068:31: warning: value computed is not used
>fread-stalin.c:17422:31: warning: value computed is not used
>fread-stalin.c:17709:31: warning: value computed is not used
>fread-stalin.c:17958:31: warning: value computed is not used
>Compilation time summary (in CPU seconds)
>     0 -  0% - Reading source
>     0 -  1% - Expanding macros
>     1 -  8% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  3% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 11% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 -  6% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  5% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     1 - 10% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     1 -  7% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     1 -  8% - Performing lightweight closure conversion
>     0 -  3% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  3% - Determining which environments have external continuation calls
>     0 -  3% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 - 13% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m14.131s
>user	0m13.635s
>sys	0m0.451s
>run fread
>
>real	0m2.694s
>user	0m2.629s
>sys	0m0.065s
>compile puzzle
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17563 expressions
>     0 internal symbol types
>     0 external symbol types
>    41 primitive procedure types
>   211 non-called native procedure types
>   307 called noop native procedure types
>   190 called non-noop native procedure types
>     1 foreign procedure type
>     1 continuation type
>     1 string type
>     1 structure type
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19834 type sets
>   688 hunoz variables
>  1566 non-hunoz variables
>   523 noop environments
>  1683 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17743 expressions
>     0 internal symbol types
>     0 external symbol types
>    41 primitive procedure types
>   211 non-called native procedure types
>   307 called noop native procedure types
>   196 called non-noop native procedure types
>     1 foreign procedure type
>     1 continuation type
>     1 string type
>     1 structure type
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20017 type sets
>   688 hunoz variables
>  1575 non-hunoz variables
>   523 noop environments
>  1707 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 4
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4528 expressions
>     0 internal symbol types
>     0 external symbol types
>    41 primitive procedure types
>   211 non-called native procedure types
>   307 called noop native procedure types
>   196 called non-noop native procedure types
>     1 foreign procedure type
>     1 continuation type
>     1 string type
>     1 structure type
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5460 type sets
>   347 hunoz variables
>   574 non-hunoz variables
>     0 noop environments
>   202 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 4
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY2[1598]
>    has the following parameters:
>      OBJ{2019} local
>      PORT{2020} local
>    has the following in-lined locals:
>      STRING{1930}
>      PORT{1931}
>      N{1932}
>      I{1935}
>  DEFINEPIECE[87]
>    has the following parameters:
>      ICLASS{753} local
>      II{754} local
>      JJ{755} local
>      KK{756} local
>    has the following in-lined locals:
>      INDEX{757}
>      I{763}
>      J{767}
>      K{771}
>  TRIAL[65] reentrant
>    has the following parameter:
>      J{735} local
>    has the following in-lined locals:
>      I{726}
>      J{727}
>      END{728}
>      K{732}
>      K{736}
>      I{740}
>      v{744}
>  PLACE[32]
>    has the following parameters:
>      I{712} local
>      J{713} local
>    has the following in-lined locals:
>      END{714}
>      K{719}
>      v{720}
>      K{723}
>  FIT[23]
>    has the following parameters:
>      I{705} local
>      J{706} local
>    has the following in-lined locals:
>      END{707}
>      K{710}
>      v{711}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      CLASSMAX{676}
>      N{700}
>      N{703}
>      LIST{704}
>      N{795}
>      M{796}
>      M{805}
>      I{809}
>      J{813}
>      K{817}
>      I{821}
>      M{825}
>      I{827}
>      LIST1{1626}
>      LIST1{1630}
>      NUMBER{1937}
>      PORT{1938}
>      I{1941}
>      NUMBER{1942}
>      I{1945}
>      I{1951}
>      NUMBER{1952}
>      I{1955}
>      OBJ{1985}
>      PORT{1986}
>      OBJ{2239}
>      OBJ{2241}
>      OBJ{2257}
>      OBJ{2259}
>      OBJ{2261}
>The following non-trivial in-line native procedures will be generated:
>  [clone DISPLAY[1959] 2226]
>    has the following parameter:
>      OBJ{2261} local
>  [clone DISPLAY[1959] 2222]
>    has the following parameter:
>      OBJ{2259} local
>  [clone DISPLAY[1959] 2218]
>    has the following parameter:
>      OBJ{2257} local
>  DISPLAY[1959]
>    has the following parameter:
>      OBJ{2241} local
>  WRITE[1955]
>    has the following parameter:
>      OBJ{2239} local
>  WRITE2[1538]
>    has the following parameters:
>      OBJ{1985} local
>      PORT{1986} local
>  LOOP[1492]
>    has the following parameter:
>      I{1955} local
>  LOOP[1489]
>    has the following parameters:
>      I{1951} local
>      NUMBER{1952} local
>  LOOP[1478]
>    has the following parameter:
>      I{1945} local
>  LOOP[1475]
>    has the following parameters:
>      I{1941} local
>      NUMBER{1942} local
>  DISPLAY-EXACT-INTEGER2[1471]
>    has the following parameters:
>      NUMBER{1937} local
>      PORT{1938} local
>  LOOP[1466]
>    has the following parameter:
>      I{1935} local
>  [inside DISPLAY-STRING2 1463]
>    has the following parameter:
>      N{1932} local
>  DISPLAY-STRING2[1462]
>    has the following parameters:
>      STRING{1930} local
>      PORT{1931} local
>  [inside top level 1458]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1891} global
>      BUFFER{1893} global
>  LOOP[1006]
>    has the following parameter:
>      LIST1{1630} local
>  FOR-EACH[1002]
>    has the following parameter:
>      LIST1{1626} local
>  [inside RUN 166]
>    has the following parameter:
>      I{827} local
>  loop[160]
>    has the following parameter:
>      M{825} local
>  loop[154]
>    has the following parameter:
>      I{821} local
>  loop[145]
>    has the following parameter:
>      K{817} local
>  loop[139]
>    has the following parameter:
>      J{813} local
>  loop[133]
>    has the following parameter:
>      I{809} local
>  loop[126]
>    has the following parameter:
>      M{805} local
>  [inside START 115]
>    has the following parameters:
>      N{795} local
>      M{796} local
>  loop[106]
>    has the following parameter:
>      K{771} local
>  loop[100]
>    has the following parameter:
>      J{767} local
>  loop[94]
>    has the following parameter:
>      I{763} local
>  [inside DEFINEPIECE 88]
>    has the following parameter:
>      INDEX{757} local
>  [inside loop 78]
>    has the following parameter:
>      v{744} local
>  [inside loop 77] reentrant
>  [inside loop 76] reentrant
>  [inside loop 75] reentrant
>  [inside loop 74] reentrant
>  [inside loop 73] reentrant
>  loop[70] reentrant
>    has the following parameter:
>      I{740} local
>  [inside TRIAL 69] reentrant
>  [inside TRIAL 68] reentrant
>  [inside TRIAL 67] reentrant
>  [inside TRIAL 66] reentrant
>    has the following parameter:
>      K{736} local
>  loop[57]
>    has the following parameter:
>      K{732} local
>  [inside PUZZLE-REMOVE 53]
>    has the following parameter:
>      END{728} local
>  PUZZLE-REMOVE[52]
>    has the following parameters:
>      I{726} local
>      J{727} local
>  loop[44]
>    has the following parameter:
>      K{723} local
>  [inside loop 38]
>    has the following parameter:
>      v{720} local
>  loop[37]
>    has the following parameter:
>      K{719} local
>  [inside PLACE 33]
>    has the following parameter:
>      END{714} local
>  [inside loop 28]
>    has the following parameter:
>      v{711} local
>  loop[27]
>    has the following parameter:
>      K{710} local
>  [inside FIT 24]
>    has the following parameter:
>      END{707} local
>  loop[19]
>    has the following parameters:
>      N{703} local
>      LIST{704} local
>  IOTA[16]
>    has the following parameter:
>      N{700} local
>  [inside RUN 14]
>    has region
>    has the following parameters:
>      *P*{667} global
>      *PUZZLE*{668} global
>      *PIECEMAX*{669} global
>      *CLASS*{670} global
>      *PIECECOUNT*{671} global
>      *D*{672} global
>      *KOUNT*{673} global
>      *III*{674} global
>      TYPEMAX{675} global
>      CLASSMAX{676} local
>      SIZE{677} global
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression, puzzle-stalin.sc:146:4506, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) SIZE 1))
>The following expression, puzzle-stalin.sc:34:1139, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) TYPEMAX 1))
>The following expression, puzzle-stalin.sc:33:1100, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) SIZE 1))
>The following expression, puzzle-stalin.sc:32:1051, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) TYPEMAX 1) 0)
>The following expression, puzzle-stalin.sc:31:1000, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) TYPEMAX 1) 0)
>The following expression, puzzle-stalin.sc:30:951, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) CLASSMAX 1) 0)
>The following expression, puzzle-stalin.sc:18:690, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE -) N 1) LIST)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17747 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 31% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  1% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 10% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  1% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  7% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  4% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  2% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.994s
>user	0m5.771s
>sys	0m0.211s
>run puzzle
>
>real	0m2.511s
>user	0m2.468s
>sys	0m0.041s
>compile tak
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16559 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   253 called noop native procedure types
>    52 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18658 type sets
>   597 hunoz variables
>  1493 non-hunoz variables
>   473 noop environments
>  1561 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16559 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   253 called noop native procedure types
>    52 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18658 type sets
>   597 hunoz variables
>  1493 non-hunoz variables
>   473 noop environments
>  1561 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3333 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   253 called noop native procedure types
>    52 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4079 type sets
>   257 hunoz variables
>   480 non-hunoz variables
>     0 noop environments
>    52 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  TAK[13] reentrant
>    has the following parameters:
>      X{661} local
>      Y{662} local
>      Z{663} local
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      NUMBER{1773}
>      PORT{1774}
>      I{1777}
>      NUMBER{1778}
>      I{1781}
>      I{1787}
>      NUMBER{1788}
>      I{1791}
>      OBJ{1821}
>      PORT{1822}
>      OBJ{2075}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1783]
>    has the following parameter:
>      OBJ{2075} local
>  WRITE2[1366]
>    has the following parameters:
>      OBJ{1821} local
>      PORT{1822} local
>  LOOP[1320]
>    has the following parameter:
>      I{1791} local
>  LOOP[1317]
>    has the following parameters:
>      I{1787} local
>      NUMBER{1788} local
>  LOOP[1306]
>    has the following parameter:
>      I{1781} local
>  LOOP[1303]
>    has the following parameters:
>      I{1777} local
>      NUMBER{1778} local
>  DISPLAY-EXACT-INTEGER2[1299]
>    has the following parameters:
>      NUMBER{1773} local
>      PORT{1774} local
>  [inside top level 1286]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1727} global
>      BUFFER{1729} global
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16560 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 39% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 14% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 23% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  0% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  2% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m4.855s
>user	0m4.675s
>sys	0m0.164s
>run tak
>
>real	0m0.208s
>user	0m0.206s
>sys	0m0.002s
>compile takl
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16622 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   213 non-called native procedure types
>   261 called noop native procedure types
>    74 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18737 type sets
>   602 hunoz variables
>  1502 non-hunoz variables
>   478 noop environments
>  1564 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16622 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   213 non-called native procedure types
>   261 called noop native procedure types
>    74 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18737 type sets
>   602 hunoz variables
>  1502 non-hunoz variables
>   478 noop environments
>  1564 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3562 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   213 non-called native procedure types
>   261 called noop native procedure types
>    74 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4341 type sets
>   272 hunoz variables
>   496 non-hunoz variables
>     0 noop environments
>    74 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[1374] reentrant
>    has the following parameters:
>      OBJ{1835} local
>      PORT{1836} local
>    has the following in-lined locals:
>      NUMBER{1787}
>      PORT{1788}
>      I{1791}
>      NUMBER{1792}
>      I{1795}
>      I{1801}
>      NUMBER{1802}
>      I{1805}
>      OBJ{1851}
>  DISPLAY-STRING2[1298]
>    has the following parameters:
>      STRING{1780} local
>      PORT{1781} local
>    has the following in-lined locals:
>      N{1782}
>      I{1785}
>  MAS[14] reentrant
>    has the following parameters:
>      X{672} local
>      Y{673} local
>      Z{674} local
>    has the following in-lined locals:
>      X{675}
>      Y{676}
>      v{677}
>  LISTN[13] reentrant
>    has the following parameter:
>      N{671} local
>  [inside top level 0]
>    has the following in-lined locals:
>      *6L*{654}
>      *12L*{655}
>      *18L*{656}
>      I{668}
>      OBJ{2089}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1791]
>    has the following parameter:
>      OBJ{2089} local
>  [inside LOOP 1411] reentrant
>  [inside LOOP 1410] reentrant
>  [inside LOOP 1409] reentrant
>  [inside LOOP 1407] reentrant
>  LOOP[1406] reentrant
>    has the following parameter:
>      OBJ{1851} local
>  [inside WRITE2 1403] reentrant
>  [inside WRITE2 1402] reentrant
>  LOOP[1328]
>    has the following parameter:
>      I{1805} local
>  LOOP[1325]
>    has the following parameters:
>      I{1801} local
>      NUMBER{1802} local
>  LOOP[1314]
>    has the following parameter:
>      I{1795} local
>  LOOP[1311]
>    has the following parameters:
>      I{1791} local
>      NUMBER{1792} local
>  DISPLAY-EXACT-INTEGER2[1307]
>    has the following parameters:
>      NUMBER{1787} local
>      PORT{1788} local
>  LOOP[1302]
>    has the following parameter:
>      I{1785} local
>  [inside DISPLAY-STRING2 1299]
>    has the following parameter:
>      N{1782} local
>  [inside top level 1294]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1741} global
>      BUFFER{1743} global
>  [inside SHORTERP 16]
>    has the following parameter:
>      v{677} local
>  SHORTERP[15]
>    has the following parameters:
>      X{675} local
>      Y{676} local
>  loop[8]
>    has the following parameter:
>      I{668} local
>  [inside top level 4]
>    has the following parameters:
>      *6L*{654} local
>      *12L*{655} local
>      *18L*{656} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression, takl-stalin.sc:19:720, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) N (LISTN ((PRIMITIVE-PROCEDURE -) N 1)))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16623 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 35% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 13% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     0 - 22% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  3% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  4% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.221s
>user	0m5.005s
>sys	0m0.199s
>run takl
>
>real	0m1.673s
>user	0m1.542s
>sys	0m0.127s
>compile takr
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 20721 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   352 called noop native procedure types
>   351 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 23315 type sets
>   696 hunoz variables
>  1889 non-hunoz variables
>   572 noop environments
>  1860 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 20721 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   352 called noop native procedure types
>   351 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 23315 type sets
>   696 hunoz variables
>  1889 non-hunoz variables
>   572 noop environments
>  1860 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  7495 expressions
>     0 internal symbol types
>     0 external symbol types
>    26 primitive procedure types
>   214 non-called native procedure types
>   352 called noop native procedure types
>   351 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  8736 type sets
>   356 hunoz variables
>   876 non-hunoz variables
>     0 noop environments
>   351 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  TAK99[310] reentrant passes parameters globally
>    has the following parameters:
>      X{1156} local
>      Y{1157} local
>      Z{1158} local
>  TAK98[307] reentrant passes parameters globally
>    has the following parameters:
>      X{1153} local
>      Y{1154} local
>      Z{1155} local
>  TAK97[304] reentrant passes parameters globally
>    has the following parameters:
>      X{1150} local
>      Y{1151} local
>      Z{1152} local
>  TAK96[301] reentrant passes parameters globally
>    has the following parameters:
>      X{1147} local
>      Y{1148} local
>      Z{1149} local
>  TAK95[298] reentrant passes parameters globally
>    has the following parameters:
>      X{1144} local
>      Y{1145} local
>      Z{1146} local
>  TAK94[295] reentrant passes parameters globally
>    has the following parameters:
>      X{1141} local
>      Y{1142} local
>      Z{1143} local
>  TAK93[292] reentrant passes parameters globally
>    has the following parameters:
>      X{1138} local
>      Y{1139} local
>      Z{1140} local
>  TAK92[289] reentrant passes parameters globally
>    has the following parameters:
>      X{1135} local
>      Y{1136} local
>      Z{1137} local
>  TAK91[286] reentrant passes parameters globally
>    has the following parameters:
>      X{1132} local
>      Y{1133} local
>      Z{1134} local
>  TAK90[283] reentrant passes parameters globally
>    has the following parameters:
>      X{1129} local
>      Y{1130} local
>      Z{1131} local
>  TAK89[280] reentrant passes parameters globally
>    has the following parameters:
>      X{1126} local
>      Y{1127} local
>      Z{1128} local
>  TAK88[277] reentrant passes parameters globally
>    has the following parameters:
>      X{1123} local
>      Y{1124} local
>      Z{1125} local
>  TAK87[274] reentrant passes parameters globally
>    has the following parameters:
>      X{1120} local
>      Y{1121} local
>      Z{1122} local
>  TAK86[271] reentrant passes parameters globally
>    has the following parameters:
>      X{1117} local
>      Y{1118} local
>      Z{1119} local
>  TAK85[268] reentrant passes parameters globally
>    has the following parameters:
>      X{1114} local
>      Y{1115} local
>      Z{1116} local
>  TAK84[265] reentrant passes parameters globally
>    has the following parameters:
>      X{1111} local
>      Y{1112} local
>      Z{1113} local
>  TAK83[262] reentrant passes parameters globally
>    has the following parameters:
>      X{1108} local
>      Y{1109} local
>      Z{1110} local
>  TAK82[259] reentrant passes parameters globally
>    has the following parameters:
>      X{1105} local
>      Y{1106} local
>      Z{1107} local
>  TAK81[256] reentrant passes parameters globally
>    has the following parameters:
>      X{1102} local
>      Y{1103} local
>      Z{1104} local
>  TAK80[253] reentrant passes parameters globally
>    has the following parameters:
>      X{1099} local
>      Y{1100} local
>      Z{1101} local
>  TAK79[250] reentrant passes parameters globally
>    has the following parameters:
>      X{1096} local
>      Y{1097} local
>      Z{1098} local
>  TAK78[247] reentrant passes parameters globally
>    has the following parameters:
>      X{1093} local
>      Y{1094} local
>      Z{1095} local
>  TAK77[244] reentrant passes parameters globally
>    has the following parameters:
>      X{1090} local
>      Y{1091} local
>      Z{1092} local
>  TAK76[241] reentrant passes parameters globally
>    has the following parameters:
>      X{1087} local
>      Y{1088} local
>      Z{1089} local
>  TAK75[238] reentrant passes parameters globally
>    has the following parameters:
>      X{1084} local
>      Y{1085} local
>      Z{1086} local
>  TAK74[235] reentrant passes parameters globally
>    has the following parameters:
>      X{1081} local
>      Y{1082} local
>      Z{1083} local
>  TAK73[232] reentrant passes parameters globally
>    has the following parameters:
>      X{1078} local
>      Y{1079} local
>      Z{1080} local
>  TAK72[229] reentrant passes parameters globally
>    has the following parameters:
>      X{1075} local
>      Y{1076} local
>      Z{1077} local
>  TAK71[226] reentrant passes parameters globally
>    has the following parameters:
>      X{1072} local
>      Y{1073} local
>      Z{1074} local
>  TAK70[223] reentrant passes parameters globally
>    has the following parameters:
>      X{1069} local
>      Y{1070} local
>      Z{1071} local
>  TAK69[220] reentrant passes parameters globally
>    has the following parameters:
>      X{1066} local
>      Y{1067} local
>      Z{1068} local
>  TAK68[217] reentrant passes parameters globally
>    has the following parameters:
>      X{1063} local
>      Y{1064} local
>      Z{1065} local
>  TAK67[214] reentrant passes parameters globally
>    has the following parameters:
>      X{1060} local
>      Y{1061} local
>      Z{1062} local
>  TAK66[211] reentrant passes parameters globally
>    has the following parameters:
>      X{1057} local
>      Y{1058} local
>      Z{1059} local
>  TAK65[208] reentrant passes parameters globally
>    has the following parameters:
>      X{1054} local
>      Y{1055} local
>      Z{1056} local
>  TAK64[205] reentrant passes parameters globally
>    has the following parameters:
>      X{1051} local
>      Y{1052} local
>      Z{1053} local
>  TAK63[202] reentrant passes parameters globally
>    has the following parameters:
>      X{1048} local
>      Y{1049} local
>      Z{1050} local
>  TAK62[199] reentrant passes parameters globally
>    has the following parameters:
>      X{1045} local
>      Y{1046} local
>      Z{1047} local
>  TAK61[196] reentrant passes parameters globally
>    has the following parameters:
>      X{1042} local
>      Y{1043} local
>      Z{1044} local
>  TAK60[193] reentrant passes parameters globally
>    has the following parameters:
>      X{1039} local
>      Y{1040} local
>      Z{1041} local
>  TAK59[190] reentrant passes parameters globally
>    has the following parameters:
>      X{1036} local
>      Y{1037} local
>      Z{1038} local
>  TAK58[187] reentrant passes parameters globally
>    has the following parameters:
>      X{1033} local
>      Y{1034} local
>      Z{1035} local
>  TAK57[184] reentrant passes parameters globally
>    has the following parameters:
>      X{1030} local
>      Y{1031} local
>      Z{1032} local
>  TAK56[181] reentrant passes parameters globally
>    has the following parameters:
>      X{1027} local
>      Y{1028} local
>      Z{1029} local
>  TAK55[178] reentrant passes parameters globally
>    has the following parameters:
>      X{1024} local
>      Y{1025} local
>      Z{1026} local
>  TAK54[175] reentrant passes parameters globally
>    has the following parameters:
>      X{1021} local
>      Y{1022} local
>      Z{1023} local
>  TAK53[172] reentrant passes parameters globally
>    has the following parameters:
>      X{1018} local
>      Y{1019} local
>      Z{1020} local
>  TAK52[169] reentrant passes parameters globally
>    has the following parameters:
>      X{1015} local
>      Y{1016} local
>      Z{1017} local
>  TAK51[166] reentrant passes parameters globally
>    has the following parameters:
>      X{1012} local
>      Y{1013} local
>      Z{1014} local
>  TAK50[163] reentrant passes parameters globally
>    has the following parameters:
>      X{1009} local
>      Y{1010} local
>      Z{1011} local
>  TAK49[160] reentrant passes parameters globally
>    has the following parameters:
>      X{1006} local
>      Y{1007} local
>      Z{1008} local
>  TAK48[157] reentrant passes parameters globally
>    has the following parameters:
>      X{1003} local
>      Y{1004} local
>      Z{1005} local
>  TAK47[154] reentrant passes parameters globally
>    has the following parameters:
>      X{1000} local
>      Y{1001} local
>      Z{1002} local
>  TAK46[151] reentrant passes parameters globally
>    has the following parameters:
>      X{997} local
>      Y{998} local
>      Z{999} local
>  TAK45[148] reentrant passes parameters globally
>    has the following parameters:
>      X{994} local
>      Y{995} local
>      Z{996} local
>  TAK44[145] reentrant passes parameters globally
>    has the following parameters:
>      X{991} local
>      Y{992} local
>      Z{993} local
>  TAK43[142] reentrant passes parameters globally
>    has the following parameters:
>      X{988} local
>      Y{989} local
>      Z{990} local
>  TAK42[139] reentrant passes parameters globally
>    has the following parameters:
>      X{985} local
>      Y{986} local
>      Z{987} local
>  TAK41[136] reentrant passes parameters globally
>    has the following parameters:
>      X{982} local
>      Y{983} local
>      Z{984} local
>  TAK40[133] reentrant passes parameters globally
>    has the following parameters:
>      X{979} local
>      Y{980} local
>      Z{981} local
>  TAK39[130] reentrant passes parameters globally
>    has the following parameters:
>      X{976} local
>      Y{977} local
>      Z{978} local
>  TAK38[127] reentrant passes parameters globally
>    has the following parameters:
>      X{973} local
>      Y{974} local
>      Z{975} local
>  TAK37[124] reentrant passes parameters globally
>    has the following parameters:
>      X{970} local
>      Y{971} local
>      Z{972} local
>  TAK36[121] reentrant passes parameters globally
>    has the following parameters:
>      X{967} local
>      Y{968} local
>      Z{969} local
>  TAK35[118] reentrant passes parameters globally
>    has the following parameters:
>      X{964} local
>      Y{965} local
>      Z{966} local
>  TAK34[115] reentrant passes parameters globally
>    has the following parameters:
>      X{961} local
>      Y{962} local
>      Z{963} local
>  TAK33[112] reentrant passes parameters globally
>    has the following parameters:
>      X{958} local
>      Y{959} local
>      Z{960} local
>  TAK32[109] reentrant passes parameters globally
>    has the following parameters:
>      X{955} local
>      Y{956} local
>      Z{957} local
>  TAK31[106] reentrant passes parameters globally
>    has the following parameters:
>      X{952} local
>      Y{953} local
>      Z{954} local
>  TAK30[103] reentrant passes parameters globally
>    has the following parameters:
>      X{949} local
>      Y{950} local
>      Z{951} local
>  TAK29[100] reentrant passes parameters globally
>    has the following parameters:
>      X{946} local
>      Y{947} local
>      Z{948} local
>  TAK28[97] reentrant passes parameters globally
>    has the following parameters:
>      X{943} local
>      Y{944} local
>      Z{945} local
>  TAK27[94] reentrant passes parameters globally
>    has the following parameters:
>      X{940} local
>      Y{941} local
>      Z{942} local
>  TAK26[91] reentrant passes parameters globally
>    has the following parameters:
>      X{937} local
>      Y{938} local
>      Z{939} local
>  TAK25[88] reentrant passes parameters globally
>    has the following parameters:
>      X{934} local
>      Y{935} local
>      Z{936} local
>  TAK24[85] reentrant passes parameters globally
>    has the following parameters:
>      X{931} local
>      Y{932} local
>      Z{933} local
>  TAK23[82] reentrant passes parameters globally
>    has the following parameters:
>      X{928} local
>      Y{929} local
>      Z{930} local
>  TAK22[79] reentrant passes parameters globally
>    has the following parameters:
>      X{925} local
>      Y{926} local
>      Z{927} local
>  TAK21[76] reentrant passes parameters globally
>    has the following parameters:
>      X{922} local
>      Y{923} local
>      Z{924} local
>  TAK20[73] reentrant passes parameters globally
>    has the following parameters:
>      X{919} local
>      Y{920} local
>      Z{921} local
>  TAK19[70] reentrant passes parameters globally
>    has the following parameters:
>      X{916} local
>      Y{917} local
>      Z{918} local
>  TAK18[67] reentrant passes parameters globally
>    has the following parameters:
>      X{913} local
>      Y{914} local
>      Z{915} local
>  TAK17[64] reentrant passes parameters globally
>    has the following parameters:
>      X{910} local
>      Y{911} local
>      Z{912} local
>  TAK16[61] reentrant passes parameters globally
>    has the following parameters:
>      X{907} local
>      Y{908} local
>      Z{909} local
>  TAK15[58] reentrant passes parameters globally
>    has the following parameters:
>      X{904} local
>      Y{905} local
>      Z{906} local
>  TAK14[55] reentrant passes parameters globally
>    has the following parameters:
>      X{901} local
>      Y{902} local
>      Z{903} local
>  TAK13[52] reentrant passes parameters globally
>    has the following parameters:
>      X{898} local
>      Y{899} local
>      Z{900} local
>  TAK12[49] reentrant passes parameters globally
>    has the following parameters:
>      X{895} local
>      Y{896} local
>      Z{897} local
>  TAK11[46] reentrant passes parameters globally
>    has the following parameters:
>      X{892} local
>      Y{893} local
>      Z{894} local
>  TAK10[43] reentrant passes parameters globally
>    has the following parameters:
>      X{889} local
>      Y{890} local
>      Z{891} local
>  TAK9[40] reentrant passes parameters globally
>    has the following parameters:
>      X{886} local
>      Y{887} local
>      Z{888} local
>  TAK8[37] reentrant passes parameters globally
>    has the following parameters:
>      X{883} local
>      Y{884} local
>      Z{885} local
>  TAK7[34] reentrant passes parameters globally
>    has the following parameters:
>      X{880} local
>      Y{881} local
>      Z{882} local
>  TAK6[31] reentrant passes parameters globally
>    has the following parameters:
>      X{877} local
>      Y{878} local
>      Z{879} local
>  TAK5[28] reentrant passes parameters globally
>    has the following parameters:
>      X{874} local
>      Y{875} local
>      Z{876} local
>  TAK4[25] reentrant passes parameters globally
>    has the following parameters:
>      X{871} local
>      Y{872} local
>      Z{873} local
>  TAK3[22] reentrant passes parameters globally
>    has the following parameters:
>      X{868} local
>      Y{869} local
>      Z{870} local
>  TAK2[19] reentrant passes parameters globally
>    has the following parameters:
>      X{865} local
>      Y{866} local
>      Z{867} local
>  TAK1[16] reentrant passes parameters globally
>    has the following parameters:
>      X{862} local
>      Y{863} local
>      Z{864} local
>  TAK0[13] reentrant passes parameters globally
>    has the following parameters:
>      X{859} local
>      Y{860} local
>      Z{861} local
>  [inside top level 0]
>    has the following in-lined locals:
>      I{856}
>      NUMBER{2268}
>      PORT{2269}
>      I{2272}
>      NUMBER{2273}
>      I{2276}
>      I{2282}
>      NUMBER{2283}
>      I{2286}
>      OBJ{2316}
>      PORT{2317}
>      OBJ{2570}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[2181]
>    has the following parameter:
>      OBJ{2570} local
>  WRITE2[1764]
>    has the following parameters:
>      OBJ{2316} local
>      PORT{2317} local
>  LOOP[1718]
>    has the following parameter:
>      I{2286} local
>  LOOP[1715]
>    has the following parameters:
>      I{2282} local
>      NUMBER{2283} local
>  LOOP[1704]
>    has the following parameter:
>      I{2276} local
>  LOOP[1701]
>    has the following parameters:
>      I{2272} local
>      NUMBER{2273} local
>  DISPLAY-EXACT-INTEGER2[1697]
>    has the following parameters:
>      NUMBER{2268} local
>      PORT{2269} local
>  [inside top level 1684]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2222} global
>      BUFFER{2224} global
>  [inside TAK99 312] reentrant
>  [inside TAK98 309] reentrant
>  [inside TAK97 306] reentrant
>  [inside TAK96 303] reentrant
>  [inside TAK95 300] reentrant
>  [inside TAK94 297] reentrant
>  [inside TAK93 294] reentrant
>  [inside TAK92 291] reentrant
>  [inside TAK91 288] reentrant
>  [inside TAK90 285] reentrant
>  [inside TAK89 282] reentrant
>  [inside TAK88 279] reentrant
>  [inside TAK87 276] reentrant
>  [inside TAK86 273] reentrant
>  [inside TAK85 270] reentrant
>  [inside TAK84 267] reentrant
>  [inside TAK83 264] reentrant
>  [inside TAK82 261] reentrant
>  [inside TAK81 258] reentrant
>  [inside TAK80 255] reentrant
>  [inside TAK79 252] reentrant
>  [inside TAK78 249] reentrant
>  [inside TAK77 246] reentrant
>  [inside TAK76 243] reentrant
>  [inside TAK75 240] reentrant
>  [inside TAK74 237] reentrant
>  [inside TAK73 234] reentrant
>  [inside TAK72 231] reentrant
>  [inside TAK71 228] reentrant
>  [inside TAK70 225] reentrant
>  [inside TAK69 222] reentrant
>  [inside TAK68 219] reentrant
>  [inside TAK67 216] reentrant
>  [inside TAK66 213] reentrant
>  [inside TAK65 210] reentrant
>  [inside TAK64 207] reentrant
>  [inside TAK63 204] reentrant
>  [inside TAK62 201] reentrant
>  [inside TAK61 198] reentrant
>  [inside TAK60 195] reentrant
>  [inside TAK59 192] reentrant
>  [inside TAK58 189] reentrant
>  [inside TAK57 186] reentrant
>  [inside TAK56 183] reentrant
>  [inside TAK55 180] reentrant
>  [inside TAK54 177] reentrant
>  [inside TAK53 174] reentrant
>  [inside TAK52 171] reentrant
>  [inside TAK51 168] reentrant
>  [inside TAK50 165] reentrant
>  [inside TAK49 162] reentrant
>  [inside TAK48 159] reentrant
>  [inside TAK47 156] reentrant
>  [inside TAK46 153] reentrant
>  [inside TAK45 150] reentrant
>  [inside TAK44 147] reentrant
>  [inside TAK43 144] reentrant
>  [inside TAK42 141] reentrant
>  [inside TAK41 138] reentrant
>  [inside TAK40 135] reentrant
>  [inside TAK39 132] reentrant
>  [inside TAK38 129] reentrant
>  [inside TAK37 126] reentrant
>  [inside TAK36 123] reentrant
>  [inside TAK35 120] reentrant
>  [inside TAK34 117] reentrant
>  [inside TAK33 114] reentrant
>  [inside TAK32 111] reentrant
>  [inside TAK31 108] reentrant
>  [inside TAK30 105] reentrant
>  [inside TAK29 102] reentrant
>  [inside TAK28 99] reentrant
>  [inside TAK27 96] reentrant
>  [inside TAK26 93] reentrant
>  [inside TAK25 90] reentrant
>  [inside TAK24 87] reentrant
>  [inside TAK23 84] reentrant
>  [inside TAK22 81] reentrant
>  [inside TAK21 78] reentrant
>  [inside TAK20 75] reentrant
>  [inside TAK19 72] reentrant
>  [inside TAK18 69] reentrant
>  [inside TAK17 66] reentrant
>  [inside TAK16 63] reentrant
>  [inside TAK15 60] reentrant
>  [inside TAK14 57] reentrant
>  [inside TAK13 54] reentrant
>  [inside TAK12 51] reentrant
>  [inside TAK11 48] reentrant
>  [inside TAK10 45] reentrant
>  [inside TAK9 42] reentrant
>  [inside TAK8 39] reentrant
>  [inside TAK7 36] reentrant
>  [inside TAK6 33] reentrant
>  [inside TAK5 30] reentrant
>  [inside TAK4 27] reentrant
>  [inside TAK3 24] reentrant
>  [inside TAK2 21] reentrant
>  [inside TAK1 18] reentrant
>  [inside TAK0 15] reentrant
>  loop[8]
>    has the following parameter:
>      I{856} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W20722 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     2 - 33% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 -  8% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 10% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     0 -  5% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     1 - 15% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  4% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m10.126s
>user	0m9.575s
>sys	0m0.529s
>run takr
>
>real	0m0.320s
>user	0m0.315s
>sys	0m0.004s
>compile tprint
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16883 expressions
>    21 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   214 non-called native procedure types
>   256 called noop native procedure types
>    68 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    24 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19055 type sets
>   608 hunoz variables
>  1507 non-hunoz variables
>   479 noop environments
>  1602 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16883 expressions
>    21 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   214 non-called native procedure types
>   256 called noop native procedure types
>    68 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    24 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19055 type sets
>   608 hunoz variables
>  1507 non-hunoz variables
>   479 noop environments
>  1602 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3463 expressions
>    21 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   214 non-called native procedure types
>   256 called noop native procedure types
>    68 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    24 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4278 type sets
>   269 hunoz variables
>   489 non-hunoz variables
>     0 noop environments
>    68 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 3
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[1413] reentrant
>    has the following parameters:
>      OBJ{1846} local
>      PORT{1847} local
>    has the following in-lined local:
>      OBJ{1862}
>  DISPLAY-STRING2[1337]
>    has the following parameters:
>      STRING{1791} local
>      PORT{1792} local
>    has the following in-lined locals:
>      N{1793}
>      I{1796}
>  INIT-AUX[27] reentrant
>    has the following parameters:
>      M{679} local
>      N{680} local
>      ATOMS{681} local
>    has the following in-lined locals:
>      I{684}
>      A{685}
>  COPY[25] reentrant
>    has the following parameter:
>      X{678} local
>  [inside top level 0]
>    has the following in-lined locals:
>      TTEST-PATTERN{652}
>      TTEST-ATOMS{655}
>      I{664}
>      M{667}
>      N{668}
>      ATOMS{669}
>      ATOMS{672}
>      A{676}
>      OBJ{2100}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1830]
>    has the following parameter:
>      OBJ{2100} local
>  [inside LOOP 1450] reentrant
>  [inside LOOP 1449] reentrant
>  [inside LOOP 1448] reentrant
>  [inside LOOP 1446] reentrant
>  LOOP[1445] reentrant
>    has the following parameter:
>      OBJ{1862} local
>  [inside WRITE2 1442] reentrant
>  [inside WRITE2 1441] reentrant
>  LOOP[1341]
>    has the following parameter:
>      I{1796} local
>  [inside DISPLAY-STRING2 1338]
>    has the following parameter:
>      N{1793} local
>  [inside top level 1333]
>    has the following parameter:
>      THE-CURRENT-OUTPUT-PORT{1752} global
>  [inside loop 35] reentrant
>  [inside loop 34] reentrant
>  loop[32] reentrant
>    has the following parameters:
>      I{684} local
>      A{685} local
>  [inside INIT-AUX 31] reentrant
>  [inside INIT-AUX 30] reentrant
>  [inside INIT-AUX 29] reentrant
>  loop[20]
>    has the following parameter:
>      A{676} local
>  [inside INIT 16]
>    has the following parameter:
>      ATOMS{672} local
>  INIT[13]
>    has the following parameters:
>      M{667} local
>      N{668} local
>      ATOMS{669} local
>  loop[8]
>    has the following parameter:
>      I{664} local
>  [inside top level 4]
>    has the following parameters:
>      TTEST-PATTERN{652} local
>      TTEST-ATOMS{655} local
>The following expression, tprint-stalin.sc:35:1342, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (INIT-AUX ((PRIMITIVE-PROCEDURE -) M 1) N ATOMS) A)
>The following expression, tprint-stalin.sc:32:1231, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ATOMS) A)
>The following expression, tprint-stalin.sc:24:943, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (COPY ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X)) (COPY ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) X)))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16884 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 37% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 12% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 24% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  0% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  2% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  1% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  1% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.234s
>user	0m5.069s
>sys	0m0.123s
>run tprint
>
>real	0m0.305s
>user	0m0.300s
>sys	0m0.005s
>compile traverse
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17453 expressions
>     1 internal symbol type
>     0 external symbol types
>    23 primitive procedure types
>   219 non-called native procedure types
>   294 called noop native procedure types
>   136 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19758 type sets
>   689 hunoz variables
>  1602 non-hunoz variables
>   520 noop environments
>  1677 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17564 expressions
>     1 internal symbol type
>     0 external symbol types
>    23 primitive procedure types
>   225 non-called native procedure types
>   294 called noop native procedure types
>   133 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     8 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19897 type sets
>   693 hunoz variables
>  1624 non-hunoz variables
>   520 noop environments
>  1695 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 7
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3992 expressions
>     1 internal symbol type
>     0 external symbol types
>    23 primitive procedure types
>   219 non-called native procedure types
>   294 called noop native procedure types
>   133 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     8 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4930 type sets
>   337 hunoz variables
>   585 non-hunoz variables
>     0 noop environments
>   140 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 7
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  CAAR[200]
>    has the following parameter:
>      PAIR{892} local
>  TRAVERSE[123]
>    has the following parameter:
>      ROOT{852} local
>  TRAVERS[112] reentrant
>    has the following parameters:
>      NODE{838} local
>      MARK{839} local
>    has the following in-lined locals:
>      NODE{750}
>      NODE{751}
>      NODE{752}
>      NODE{753}
>      NODE{754}
>      NODE{755}
>      NODE{756}
>      NODE{763}
>      V{764}
>      NODE{765}
>      V{766}
>      NODE{767}
>      V{768}
>      NODE{769}
>      V{770}
>      NODE{771}
>      V{772}
>      NODE{773}
>      V{774}
>      NODE{775}
>      V{776}
>      SONS{850}
>  TRAVERSE-SELECT[68]
>    has the following parameters:
>      N{797} local
>      Q{798} local
>    has the following in-lined locals:
>      N{801}
>      Q{802}
>  TRAVERSE-REMOVE[45]
>    has the following parameters:
>      N{780} local
>      Q{781} local
>    has the following in-lined locals:
>      X{782}
>      X{784}
>      P{788}
>      N{792}
>      Q{793}
>      P{794}
>      X{795}
>  TRAVERSE-RANDOM[43]
>  NODE-SONS[20]
>    has the following parameter:
>      NODE{748} local
>  NODE-PARENTS[19]
>    has the following parameter:
>      NODE{747} local
>  MAKE-NODE[16]
>    has the following in-lined local:
>      NODE{737}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      *ROOT*{672}
>      NODE{757}
>      V{758}
>      NODE{759}
>      V{760}
>      A{803}
>      Q{804}
>      N{811}
>      A{812}
>      M{815}
>      P{816}
>      UNUSED{820}
>      USED{821}
>      X{822}
>      Y{823}
>      NODE{831}
>      N{832}
>      N{835}
>      v{836}
>      I{859}
>      OBJ1{884}
>      OBJ2{885}
>      OBJ1{2291}
>      OBJ2{2292}
>      OBJ1{2295}
>      OBJ2{2296}
>      OBJ1{2301}
>      OBJ1{2303}
>      A{2305}
>      X{2307}
>      OBJ1{2313}
>      OBJ1{2315}
>The following non-trivial in-line native procedures will be generated:
>  [clone CONS[195] 2214]
>    has the following parameter:
>      OBJ1{2315} local
>  [clone CONS[195] 2213]
>    has the following parameter:
>      OBJ1{2313} local
>  [clone [inside ADD 77] 2206]
>    has the following parameter:
>      X{2307} local
>  [clone ADD[75] 2204]
>    has the following parameter:
>      A{2305} local
>  [clone CONS[195] 2203]
>    has the following parameter:
>      OBJ1{2303} local
>  [clone CONS[195] 2202]
>    has the following parameter:
>      OBJ1{2301} local
>  [clone CONS[195] 2199]
>    has the following parameters:
>      OBJ1{2295} local
>      OBJ2{2296} local
>  [clone CONS[195] 2197]
>    has the following parameters:
>      OBJ1{2291} local
>      OBJ2{2292} local
>  CONS[195]
>    has the following parameters:
>      OBJ1{884} local
>      OBJ2{885} local
>  loop[133]
>    has the following parameter:
>      I{859} local
>  [inside loop 121] reentrant
>  [inside loop 120] reentrant
>  loop[118] reentrant
>    has the following parameter:
>      SONS{850} local
>  [inside TRAVERS 117] reentrant
>  [inside TRAVERS 116] reentrant
>  [inside TRAVERS 115] reentrant
>  [inside TRAVERS 114] reentrant
>  [inside loop 107]
>    has the following parameter:
>      v{836} local
>  loop[106]
>    has the following parameter:
>      N{835} local
>  FIND-ROOT[103]
>    has the following parameters:
>      NODE{831} local
>      N{832} local
>  loop[93]
>    has the following parameters:
>      UNUSED{820} local
>      USED{821} local
>      X{822} local
>      Y{823} local
>  [inside loop 92]
>    has region
>  loop[88]
>    has the following parameters:
>      M{815} local
>      P{816} local
>  [inside CREATE-STRUCTURE 85]
>    has the following parameter:
>      A{812} local
>  CREATE-STRUCTURE[84]
>    has the following parameter:
>      N{811} local
>  ADD[75]
>    has the following parameters:
>      A{803} local
>      Q{804} local
>  loop[71]
>    has the following parameters:
>      N{801} local
>      Q{802} local
>  [inside loop 64]
>    has the following parameter:
>      X{795} local
>  loop[62]
>    has the following parameters:
>      N{792} local
>      Q{793} local
>      P{794} local
>  loop[54]
>    has the following parameter:
>      P{788} local
>  [inside TRAVERSE-REMOVE 50]
>    has the following parameter:
>      X{784} local
>  [inside TRAVERSE-REMOVE 47]
>    has the following parameter:
>      X{782} local
>  NODE-MARK-SET![38]
>    has the following parameters:
>      NODE{775} local
>      V{776} local
>  NODE-ENTRY6-SET![37]
>    has the following parameters:
>      NODE{773} local
>      V{774} local
>  NODE-ENTRY5-SET![36]
>    has the following parameters:
>      NODE{771} local
>      V{772} local
>  NODE-ENTRY4-SET![35]
>    has the following parameters:
>      NODE{769} local
>      V{770} local
>  NODE-ENTRY3-SET![34]
>    has the following parameters:
>      NODE{767} local
>      V{768} local
>  NODE-ENTRY2-SET![33]
>    has the following parameters:
>      NODE{765} local
>      V{766} local
>  NODE-ENTRY1-SET![32]
>    has the following parameters:
>      NODE{763} local
>      V{764} local
>  NODE-SONS-SET![30]
>    has the following parameters:
>      NODE{759} local
>      V{760} local
>  NODE-PARENTS-SET![29]
>    has the following parameters:
>      NODE{757} local
>      V{758} local
>  NODE-MARK[28]
>    has the following parameter:
>      NODE{756} local
>  NODE-ENTRY6[27]
>    has the following parameter:
>      NODE{755} local
>  NODE-ENTRY5[26]
>    has the following parameter:
>      NODE{754} local
>  NODE-ENTRY4[25]
>    has the following parameter:
>      NODE{753} local
>  NODE-ENTRY3[24]
>    has the following parameter:
>      NODE{752} local
>  NODE-ENTRY2[23]
>    has the following parameter:
>      NODE{751} local
>  NODE-ENTRY1[22]
>    has the following parameter:
>      NODE{750} local
>  [inside MAKE-NODE 17]
>    has the following parameter:
>      NODE{737} local
>  [inside RUN 14]
>    has region
>    has the following parameters:
>      *ROOT*{672} local
>      *MARKER*{673} global
>      *COUNT*{674} global
>      *RAND*{675} global
>      *SN*{676} global
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression, traverse-stalin.sc:108:3709, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAKE-NODE) A)
>The following expression, traverse-stalin.sc:19:687, allocates on [inside RUN 14]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 11 (QUOTE ()))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17569 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 33% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  2% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  3% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.493s
>user	0m5.350s
>sys	0m0.132s
>run traverse
>
>real	0m36.563s
>user	0m35.173s
>sys	0m1.364s
>compile traverse-init
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17451 expressions
>     1 internal symbol type
>     0 external symbol types
>    22 primitive procedure types
>   236 non-called native procedure types
>   291 called noop native procedure types
>   101 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     2 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19755 type sets
>   688 hunoz variables
>  1602 non-hunoz variables
>   520 noop environments
>  1677 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17562 expressions
>     1 internal symbol type
>     0 external symbol types
>    22 primitive procedure types
>   242 non-called native procedure types
>   291 called noop native procedure types
>    98 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     8 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19894 type sets
>   692 hunoz variables
>  1624 non-hunoz variables
>   520 noop environments
>  1695 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 7
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3761 expressions
>     1 internal symbol type
>     0 external symbol types
>    22 primitive procedure types
>   236 non-called native procedure types
>   291 called noop native procedure types
>    98 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     8 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4651 type sets
>   318 hunoz variables
>   556 non-hunoz variables
>     0 noop environments
>   105 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 7
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  CAAR[200]
>    has the following parameter:
>      PAIR{891} local
>  TRAVERSE-SELECT[68]
>    has the following parameters:
>      N{796} local
>      Q{797} local
>    has the following in-lined locals:
>      N{800}
>      Q{801}
>  TRAVERSE-REMOVE[45]
>    has the following parameters:
>      N{779} local
>      Q{780} local
>    has the following in-lined locals:
>      X{781}
>      X{783}
>      P{787}
>      N{791}
>      Q{792}
>      P{793}
>      X{794}
>  TRAVERSE-RANDOM[43]
>  NODE-PARENTS[19]
>    has the following parameter:
>      NODE{746} local
>  MAKE-NODE[16]
>    has the following in-lined local:
>      NODE{736}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{658}
>      NODE{747}
>      NODE{756}
>      V{757}
>      NODE{758}
>      V{759}
>      A{802}
>      Q{803}
>      N{810}
>      A{811}
>      M{814}
>      P{815}
>      UNUSED{819}
>      USED{820}
>      X{821}
>      Y{822}
>      NODE{830}
>      N{831}
>      N{834}
>      v{835}
>      OBJ1{883}
>      OBJ2{884}
>      OBJ1{2290}
>      OBJ2{2291}
>      OBJ1{2294}
>      OBJ2{2295}
>      OBJ1{2300}
>      OBJ1{2302}
>      A{2304}
>      X{2306}
>      OBJ1{2312}
>      OBJ1{2314}
>The following non-trivial in-line native procedures will be generated:
>  [clone CONS[195] 2214]
>    has the following parameter:
>      OBJ1{2314} local
>  [clone CONS[195] 2213]
>    has the following parameter:
>      OBJ1{2312} local
>  [clone [inside ADD 77] 2206]
>    has the following parameter:
>      X{2306} local
>  [clone ADD[75] 2204]
>    has the following parameter:
>      A{2304} local
>  [clone CONS[195] 2203]
>    has the following parameter:
>      OBJ1{2302} local
>  [clone CONS[195] 2202]
>    has the following parameter:
>      OBJ1{2300} local
>  [clone CONS[195] 2199]
>    has the following parameters:
>      OBJ1{2294} local
>      OBJ2{2295} local
>  [clone CONS[195] 2197]
>    has the following parameters:
>      OBJ1{2290} local
>      OBJ2{2291} local
>  CONS[195]
>    has the following parameters:
>      OBJ1{883} local
>      OBJ2{884} local
>  INIT-TRAVERSE[128]
>    has region
>  [inside loop 107]
>    has the following parameter:
>      v{835} local
>  loop[106]
>    has the following parameter:
>      N{834} local
>  FIND-ROOT[103]
>    has the following parameters:
>      NODE{830} local
>      N{831} local
>  loop[93]
>    has the following parameters:
>      UNUSED{819} local
>      USED{820} local
>      X{821} local
>      Y{822} local
>  [inside loop 92]
>    has region
>  loop[88]
>    has the following parameters:
>      M{814} local
>      P{815} local
>  [inside CREATE-STRUCTURE 85]
>    has the following parameter:
>      A{811} local
>  CREATE-STRUCTURE[84]
>    has the following parameter:
>      N{810} local
>  ADD[75]
>    has the following parameters:
>      A{802} local
>      Q{803} local
>  loop[71]
>    has the following parameters:
>      N{800} local
>      Q{801} local
>  [inside loop 64]
>    has the following parameter:
>      X{794} local
>  loop[62]
>    has the following parameters:
>      N{791} local
>      Q{792} local
>      P{793} local
>  loop[54]
>    has the following parameter:
>      P{787} local
>  [inside TRAVERSE-REMOVE 50]
>    has the following parameter:
>      X{783} local
>  [inside TRAVERSE-REMOVE 47]
>    has the following parameter:
>      X{781} local
>  NODE-SONS-SET![30]
>    has the following parameters:
>      NODE{758} local
>      V{759} local
>  NODE-PARENTS-SET![29]
>    has the following parameters:
>      NODE{756} local
>      V{757} local
>  NODE-SONS[20]
>    has the following parameter:
>      NODE{747} local
>  [inside MAKE-NODE 17]
>    has the following parameter:
>      NODE{736} local
>  [inside RUN 14]
>    has the following parameters:
>      *RAND*{675} global
>      *SN*{676} global
>  loop[8]
>    has the following parameter:
>      I{658} local
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on [inside loop 92]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression, traverse-init-stalin.sc:108:3709, allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAKE-NODE) A)
>The following expression, traverse-init-stalin.sc:19:687, allocates on INIT-TRAVERSE[128]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 11 (QUOTE ()))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17567 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  1% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  0% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  3% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.701s
>user	0m5.292s
>sys	0m0.269s
>run traverse-init
>
>real	0m2.683s
>user	0m2.663s
>sys	0m0.020s
>compile fannkuch
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17005 expressions
>     0 internal symbol types
>     0 external symbol types
>    28 primitive procedure types
>   214 non-called native procedure types
>   277 called noop native procedure types
>   121 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    12 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19197 type sets
>   629 hunoz variables
>  1550 non-hunoz variables
>   497 noop environments
>  1630 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17005 expressions
>     0 internal symbol types
>     0 external symbol types
>    28 primitive procedure types
>   214 non-called native procedure types
>   277 called noop native procedure types
>   121 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    12 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19197 type sets
>   629 hunoz variables
>  1550 non-hunoz variables
>   497 noop environments
>  1630 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3779 expressions
>     0 internal symbol types
>     0 external symbol types
>    28 primitive procedure types
>   214 non-called native procedure types
>   277 called noop native procedure types
>   121 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>    12 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4618 type sets
>   289 hunoz variables
>   537 non-hunoz variables
>     0 noop environments
>   121 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedure will be generated:
>  [inside top level 0]
>    has the following in-lined locals:
>      I{660}
>      N{663}
>      PERM{664}
>      PERM1{665}
>      ZAEHL{666}
>      PERMMAX{667}
>      BISHMAX{685}
>      R{686}
>      R{691}
>      I{693}
>      v{695}
>      I{696}
>      COUNT{698}
>      P{700}
>      N{701}
>      I{704}
>      PERM{706}
>      PERM1{707}
>      N{708}
>      I{711}
>      PERM{713}
>      PERM1{714}
>      N{715}
>      I{718}
>      K{720}
>      K2{721}
>      PERM{722}
>      I{726}
>      TEMP{728}
>      J{729}
>      ZAEHL{731}
>      R{732}
>      I{733}
>      R{735}
>      PERM1{736}
>      PERM0{738}
>      I{742}
>      K{743}
>      PERM{745}
>      COUNT{749}
>      K{750}
>      N{752}
>      NUMBER{1862}
>      PORT{1863}
>      I{1866}
>      NUMBER{1867}
>      I{1870}
>      I{1876}
>      NUMBER{1877}
>      I{1880}
>      OBJ{1910}
>      PORT{1911}
>      OBJ{2164}
>The following non-trivial in-line native procedures will be generated:
>  WRITE[1876]
>    has the following parameter:
>      OBJ{2164} local
>  WRITE2[1459]
>    has the following parameters:
>      OBJ{1910} local
>      PORT{1911} local
>  LOOP[1413]
>    has the following parameter:
>      I{1880} local
>  LOOP[1410]
>    has the following parameters:
>      I{1876} local
>      NUMBER{1877} local
>  LOOP[1399]
>    has the following parameter:
>      I{1870} local
>  LOOP[1396]
>    has the following parameters:
>      I{1866} local
>      NUMBER{1867} local
>  DISPLAY-EXACT-INTEGER2[1392]
>    has the following parameters:
>      NUMBER{1862} local
>      PORT{1863} local
>  [inside top level 1379]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1816} global
>      BUFFER{1818} global
>  FANNKUCH[105]
>    has region
>    has the following parameter:
>      N{752} local
>  [inside LOOP 93]
>    has the following parameter:
>      K{750} local
>  LOOP[92]
>    has the following parameter:
>      COUNT{749} local
>  COUNT-FLIPS[89]
>    has the following parameter:
>      PERM{745} local
>  [inside LOOP 85]
>    has the following parameter:
>      K{743} local
>  LOOP[84]
>    has the following parameter:
>      I{742} local
>  [inside SHIFT 80]
>    has the following parameter:
>      PERM0{738} local
>  SHIFT[79]
>    has the following parameters:
>      R{735} local
>      PERM1{736} local
>  [inside KREUZ-LOOP 76]
>    has the following parameter:
>      I{733} local
>  KREUZ-LOOP[75]
>    has the following parameters:
>      ZAEHL{731} local
>      R{732} local
>  [inside loop 71]
>    has the following parameter:
>      J{729} local
>  [inside loop 70]
>    has the following parameter:
>      TEMP{728} local
>  loop[66]
>    has the following parameter:
>      I{726} local
>  FLIP[63]
>    has the following parameters:
>      K{720} local
>      K2{721} local
>      PERM{722} local
>  loop[58]
>    has the following parameter:
>      I{718} local
>  VECTOR-COPY2[55]
>    has the following parameters:
>      PERM{713} local
>      PERM1{714} local
>      N{715} local
>  loop[50]
>    has the following parameter:
>      I{711} local
>  VECTOR-COPY1[47]
>    has the following parameters:
>      PERM{706} local
>      PERM1{707} local
>      N{708} local
>  loop[42]
>    has the following parameter:
>      I{704} local
>  FILL[39]
>    has the following parameters:
>      P{700} local
>      N{701} local
>  [inside MAIN 33]
>    has the following parameter:
>      COUNT{698} local
>  [inside MAIN 30]
>    has the following parameter:
>      I{696} local
>  [inside MAIN 29]
>    has the following parameter:
>      v{695} local
>  [inside LOOP 26]
>    has the following parameter:
>      I{693} local
>  LOOP[22]
>    has the following parameter:
>      R{691} local
>  MAIN[18]
>    has the following parameters:
>      BISHMAX{685} local
>      R{686} local
>  FANNKUCH-1[13]
>    has the following parameters:
>      N{663} local
>      PERM{664} local
>      PERM1{665} local
>      ZAEHL{666} local
>      PERMMAX{667} local
>  loop[8]
>    has the following parameter:
>      I{660} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression, fannkuch-stalin.sc:60:1820, allocates on FANNKUCH[105]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, fannkuch-stalin.sc:59:1798, allocates on FANNKUCH[105]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, fannkuch-stalin.sc:58:1776, allocates on FANNKUCH[105]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, fannkuch-stalin.sc:57:1754, allocates on FANNKUCH[105]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17006 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 35% - Fast tree shake
>     0 -  3% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 12% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 22% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.204s
>user	0m4.998s
>sys	0m0.144s
>run fannkuch
>
>real	0m3.004s
>user	0m2.959s
>sys	0m0.044s
>compile simplex
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18146 expressions
>     0 internal symbol types
>     0 external symbol types
>    25 primitive procedure types
>   216 non-called native procedure types
>   307 called noop native procedure types
>   198 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>    20 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20430 type sets
>   684 hunoz variables
>  1577 non-hunoz variables
>   533 noop environments
>  1734 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18146 expressions
>     0 internal symbol types
>     0 external symbol types
>    25 primitive procedure types
>   216 non-called native procedure types
>   307 called noop native procedure types
>   198 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>    20 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20430 type sets
>   684 hunoz variables
>  1577 non-hunoz variables
>   533 noop environments
>  1734 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4688 expressions
>     0 internal symbol types
>     0 external symbol types
>    25 primitive procedure types
>   216 non-called native procedure types
>   307 called noop native procedure types
>   198 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     1 structure type
>    20 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5595 type sets
>   335 hunoz variables
>   549 non-hunoz variables
>     0 noop environments
>   198 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  ABS[578]
>    has the following parameter:
>      X{1117} local
>  SIMP3[93]
>    has the following parameter:
>      ONE?{748} local
>    has the following in-lined locals:
>      PIV{749}
>      II{754}
>      KK{759}
>      KK{763}
>  SIMP2[63]
>    has the following in-lined locals:
>      FLAG?{730}
>      Q1{731}
>      I{734}
>      Q{736}
>      Q0{738}
>      QP{739}
>      K{743}
>  SIMP1[51]
>    has the following parameters:
>      MM{720} local
>      ABS?{721} local
>    has the following in-lined local:
>      K{726}
>  MATRIX-SET![17]
>    has the following parameters:
>      A{677} local
>      I{678} local
>      J{679} local
>      X{680} local
>  MATRIX-REF[16]
>    has the following parameters:
>      A{674} local
>      I{675} local
>      J{676} local
>  MATRIX-ROWS[14]
>    has the following parameter:
>      A{672} local
>  FUCK-UP[13]
>  [inside top level 0]
>    has the following in-lined locals:
>      I{670}
>      A{673}
>      M1{682}
>      M2{683}
>      M3{684}
>      M12{688}
>      L3{693}
>      IPOSV{695}
>      IZROV{696}
>      ONE?{700}
>      PASS2?{701}
>      T{718}
>      K{767}
>      I{772}
>      I{778}
>      K{791}
>      I{797}
>      IS{801}
>      I{807}
>      T{809}
>      IP1{813}
>      I{818}
>      K{822}
>      K{828}
>      I{832}
>      SUM{833}
>The following non-trivial in-line native procedures will be generated:
>  TEST[239]
>    has region
>  loop[228]
>    has the following parameters:
>      I{832} local
>      SUM{833} local
>  loop[222]
>    has the following parameter:
>      K{828} local
>  loop[207]
>    has the following parameter:
>      K{822} local
>  loop[201]
>    has the following parameter:
>      I{818} local
>  LOOP[192]
>    has the following parameter:
>      IP1{813} local
>  [inside LOOP 184]
>    has the following parameter:
>      T{809} local
>  loop[178]
>    has the following parameter:
>      I{807} local
>  loop[168]
>    has the following parameter:
>      IS{801} local
>  loop[161]
>    has the following parameter:
>      I{797} local
>  LOOP[155]
>    has the following parameter:
>      K{791} local
>  loop[139]
>    has the following parameter:
>      I{778} local
>  loop[131]
>    has the following parameter:
>      I{772} local
>  loop[124]
>    has the following parameter:
>      K{767} local
>  loop[116]
>    has the following parameter:
>      KK{763} local
>  loop[106]
>    has the following parameter:
>      KK{759} local
>  loop[98]
>    has the following parameter:
>      II{754} local
>  [inside SIMP3 94]
>    has the following parameter:
>      PIV{749} local
>  LOOP[81]
>    has the following parameter:
>      K{743} local
>  [inside loop 76]
>    has the following parameters:
>      Q0{738} local
>      QP{739} local
>  [inside loop 72]
>    has the following parameter:
>      Q{736} local
>  loop[68]
>    has the following parameter:
>      I{734} local
>  [inside SIMP2 65]
>    has the following parameters:
>      FLAG?{730} local
>      Q1{731} local
>  loop[55]
>    has the following parameter:
>      K{726} local
>  [inside LOOP 47]
>    has the following parameter:
>      T{718} local
>  [inside SIMPLEX 34]
>    has the following parameter:
>      PASS2?{701} local
>  [inside SIMPLEX 33]
>    has the following parameter:
>      ONE?{700} local
>  [inside SIMPLEX 32]
>    has the following parameter:
>      BMAX{699} global
>  [inside SIMPLEX 31]
>    has the following parameter:
>      KP{698} global
>  [inside SIMPLEX 30]
>    has the following parameter:
>      IP{697} global
>  [inside SIMPLEX 29]
>    has the following parameter:
>      IZROV{696} local
>  [inside SIMPLEX 28]
>    has the following parameter:
>      IPOSV{695} local
>  [inside SIMPLEX 27]
>    has the following parameter:
>      NL1{694} global
>  [inside SIMPLEX 26]
>    has the following parameter:
>      L3{693} local
>  [inside SIMPLEX 25]
>    has region
>    has the following parameter:
>      L2{692} global
>  [inside SIMPLEX 24]
>    has region
>    has the following parameter:
>      L1{691} global
>  [inside SIMPLEX 23]
>    has region
>    has the following parameter:
>      N{690} global
>  [inside SIMPLEX 22]
>    has the following parameter:
>      M{689} global
>  [inside SIMPLEX 21]
>    has the following parameter:
>      M12{688} local
>  [inside SIMPLEX 19]
>    has the following parameter:
>      *EPSILON*{685} global
>  SIMPLEX[18]
>    has the following parameters:
>      A{681} global
>      M1{682} local
>      M2{683} local
>      M3{684} local
>  MATRIX-COLUMNS[15]
>    has the following parameter:
>      A{673} local
>  loop[8]
>    has the following parameter:
>      I{670} local
>The following expression, simplex-stalin.sc:160:5284, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) ((PRIMITIVE-PROCEDURE VECTOR) 0.0 1.0 1.0 3.0 -5.0e-1) ((PRIMITIVE-PROCEDURE VECTOR) 7.400000095367431640625e2 -1.0 0.0 -2.0 0.0) ((PRIMITIVE-PROCEDURE VECTOR) 0.0 0.0 -2.0 0.0 7.0) ((PRIMITIVE-PROCEDURE VECTOR) 5.0e-1 0.0 -1.0 1.0 -2.0) ((PRIMITIVE-PROCEDURE VECTOR) 9.0 -1.0 -1.0 -1.0 -1.0) ((PRIMITIVE-PROCEDURE VECTOR) 0.0 0.0 0.0 0.0 0.0))
>The following expression, simplex-stalin.sc:165:5469, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 0.0 0.0 0.0 0.0 0.0)
>The following expression, simplex-stalin.sc:164:5432, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 9.0 -1.0 -1.0 -1.0 -1.0)
>The following expression, simplex-stalin.sc:163:5397, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 5.0e-1 0.0 -1.0 1.0 -2.0)
>The following expression, simplex-stalin.sc:162:5363, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 0.0 0.0 -2.0 0.0 7.0)
>The following expression, simplex-stalin.sc:161:5326, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 7.400000095367431640625e2 -1.0 0.0 -2.0 0.0)
>The following expression, simplex-stalin.sc:160:5292, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE VECTOR) 0.0 1.0 1.0 3.0 -5.0e-1)
>The following expression, simplex-stalin.sc:22:607, allocates on [inside SIMPLEX 23]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, simplex-stalin.sc:23:629, allocates on [inside SIMPLEX 24]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) M)
>The following expression, simplex-stalin.sc:24:651, allocates on [inside SIMPLEX 25]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) M2)
>The following expression, simplex-stalin.sc:26:686, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) M)
>The following expression, simplex-stalin.sc:27:711, allocates on TEST[239]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, simplex-stalin.sc:157:5233, allocates on TEST[239]:
>(LIST IPOSV IZROV)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W18147 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W14317 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 19% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  3% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  4% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  2% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.934s
>user	0m5.741s
>sys	0m0.177s
>run simplex
>
>real	0m0.087s
>user	0m0.084s
>sys	0m0.003s
>compile em-functional
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 20020 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   192 non-called native procedure types
>   384 called noop native procedure types
>   499 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    17 structure types
>    46 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 22716 type sets
>   745 hunoz variables
>  1862 non-hunoz variables
>   582 noop environments
>  1883 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 25475 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   210 non-called native procedure types
>   544 called noop native procedure types
>  1080 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    31 structure types
>    90 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 29042 type sets
>   955 hunoz variables
>  2694 non-hunoz variables
>   748 noop environments
>  2728 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 56
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 12977 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   192 non-called native procedure types
>   544 called noop native procedure types
>  1080 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    31 structure types
>    90 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 15281 type sets
>   646 hunoz variables
>  1740 non-hunoz variables
>     0 noop environments
>  1317 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 56
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[1797] reentrant
>    has the following parameters:
>      OBJ{2338} local
>      PORT{2339} local
>    has the following in-lined locals:
>      NUMBER{2327}
>      PORT{2328}
>      MANTISSA{2332}
>      EXPONENT{2333}
>      MANTISSA{2336}
>      EXPONENT{2337}
>      OBJ{2354}
>      I{2366}
>  DISPLAY-MANTISSA-EXPONENT2[1759]
>    has the following parameters:
>      MANTISSA{2311} local
>      EXPONENT{2312} local
>      PORT{2313} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2314}
>      DIGIT{2315}
>      MANTISSA{2322}
>      FLOAT-DIGIT{2323}
>      DIGIT{2324}
>      MANTISSA{2326}
>  DISPLAY-EXACT-INTEGER2[1730]
>    has the following parameters:
>      NUMBER{2290} local
>      PORT{2291} local
>    has the following in-lined locals:
>      I{2294}
>      NUMBER{2295}
>      I{2298}
>      I{2304}
>      NUMBER{2305}
>      I{2308}
>  DISPLAY-STRING2[1721]
>    has the following parameters:
>      STRING{2283} local
>      PORT{2284} local
>    has the following in-lined locals:
>      N{2285}
>      I{2288}
>  LOOP[1154] reentrant
>    has the following parameter:
>      K{1886} local
>  LOOP[1089] reentrant
>    has the following parameter:
>      K{1832} local
>  MODULO[779]
>    has the following parameters:
>      N1{1468} local
>      N2{1469} local
>    has the following in-lined local:
>      v{1470}
>  REVERSE[620]
>    has the following parameter:
>      S{1326} local
>    has the following in-lined locals:
>      LIST{2828}
>      LIST{2831}
>      R{2832}
>  CDR[466]
>    has the following parameter:
>      PAIR{1203} local
>  M-STEP[331]
>    has the following parameters:
>      X{1123} local
>      Z{1124} local
>      CLIP{1125} local
>    has the following in-lined locals:
>      N{836}
>      I{839}
>      N{875}
>      I{878}
>      v{879}
>      N{881}
>      N{884}
>      C{885}
>      K{892}
>      U{893}
>      X{894}
>      A{950}
>      B{951}
>      U{960}
>      V{961}
>      UI{962}
>      VJ{963}
>      V{965}
>      A{966}
>      B{967}
>      K{968}
>      M{969}
>      ROW{970}
>      E{971}
>      A{1031}
>      A{1033}
>      N{1034}
>      D{1035}
>      V{1036}
>      B{1037}
>      Z{1038}
>      IP{1042}
>      I{1047}
>      SM{1049}
>      TRESH{1052}
>      IP{1053}
>      IR{1054}
>      IQ{1055}
>      G{1056}
>      H{1057}
>      T{1058}
>      C{1059}
>      H{1062}
>      J{1070}
>      THETA{1080}
>      IP{1081}
>      IP{1084}
>      IR{1085}
>      IQ{1086}
>      I{1087}
>      P{1088}
>      K{1089}
>      J{1093}
>      P{1094}
>      L{1096}
>      J{1097}
>      ROW{1099}
>      X{1100}
>      I{1101}
>      J{1102}
>      V{1103}
>      M{1104}
>      I{1106}
>      A{1107}
>      V{1108}
>      J{1109}
>      E{1110}
>      II{1126}
>      KK{1127}
>      J{1128}
>      ZJ{1129}
>      ZJ-SUM{1130}
>      MU{1131}
>      SIGMA{1132}
>      ZIJ{1133}
>      XI{1134}
>      X{1463}
>      X{2607}
>      X{2608}
>      X{2609}
>      X{2612}
>      X{2613}
>      X{2614}
>      X{2615}
>      X{2616}
>      X{2617}
>      X{2618}
>      OBJS{2621}
>      PAIR{2626}
>      PAIR{2639}
>      A{2644}
>      I{2645}
>      J{2646}
>      X{2647}
>      A{2648}
>      I{2649}
>      J{2650}
>      X{2651}
>      A{2652}
>      I{2653}
>      J{2654}
>      X{2655}
>      A{2692}
>      I{2693}
>      J{2694}
>      X{2695}
>      A{2696}
>      I{2697}
>      J{2698}
>      X{2699}
>      A{2700}
>      I{2701}
>      J{2702}
>      X{2703}
>      A{2707}
>      I{2708}
>      J{2709}
>      A{2710}
>      I{2711}
>      J{2712}
>      A{2713}
>      I{2714}
>      J{2715}
>      A{2716}
>      I{2717}
>      J{2718}
>      A{2719}
>      I{2720}
>      J{2721}
>      A{2779}
>      I{2780}
>      J{2781}
>      A{2782}
>      I{2783}
>      J{2784}
>      A{2785}
>      I{2786}
>      J{2787}
>      A{2788}
>      I{2789}
>      J{2790}
>      A{2791}
>      I{2792}
>      J{2793}
>      A{2794}
>      I{2795}
>      J{2796}
>      A{2797}
>      I{2798}
>      J{2799}
>      A{2803}
>      A{2804}
>      A{2808}
>      A{2809}
>      A{2810}
>      A{2811}
>      N{2834}
>      I{2837}
>      N{2906}
>      I{2909}
>      N{2912}
>      I{2915}
>      N{2918}
>      I{2921}
>      N{2924}
>      I{2927}
>      N{2930}
>      I{2933}
>      N{2936}
>      I{2939}
>      N{2942}
>      I{2945}
>      V{3000}
>      U{3001}
>      I{3003}
>      V{3005}
>      U{3006}
>      I{3008}
>      V{3010}
>      U{3011}
>      I{3013}
>      V{3015}
>      U{3016}
>      I{3018}
>      V{3020}
>      U{3021}
>      I{3023}
>      V{3025}
>      U{3026}
>      I{3028}
>      V{3035}
>      U{3036}
>      I{3038}
>      K{3039}
>      M{3040}
>      ROW{3041}
>      E{3042}
>      V1{3056}
>      V2{3057}
>      U{3058}
>      I{3060}
>      V1{3062}
>      V2{3063}
>      U{3064}
>      I{3066}
>      V1{3074}
>      V2{3075}
>      U{3076}
>      I{3078}
>      V1{3086}
>      V2{3087}
>      U{3088}
>      I{3090}
>      V{3108}
>      I{3109}
>      N{3110}
>      I{3113}
>      C{3114}
>      V{3116}
>      I{3117}
>      N{3118}
>      I{3121}
>      C{3122}
>      V{3124}
>      I{3125}
>      N{3126}
>      I{3129}
>      C{3130}
>      U{3141}
>      V{3142}
>      U{3144}
>      V{3145}
>      UI{3146}
>      VJ{3147}
>      N{3173}
>      V{3174}
>      I{3178}
>      A{3196}
>      J{3197}
>      A{3198}
>      J{3199}
>      A{3200}
>      J{3201}
>      A{3202}
>      B{3203}
>      N{3226}
>      I{3229}
>      v{3230}
>      N{3232}
>      N{3235}
>      C{3236}
>      ZS{3265}
>      ZS{3268}
>      R{3269}
>      N{3271}
>      I{3274}
>      K{3276}
>      U{3277}
>      X{3278}
>      V{3280}
>      U{3281}
>      I{3283}
>      N{3285}
>      I{3288}
>      N{3302}
>      I{3305}
>      N{3308}
>      I{3311}
>      V{3326}
>      U{3327}
>      I{3329}
>      N{3331}
>      I{3334}
>      V{3337}
>      U{3338}
>      I{3340}
>      N{3342}
>      I{3345}
>      ZS{3347}
>      ZS{3350}
>      R{3351}
>      V{3353}
>      U{3354}
>      I{3356}
>      N{3358}
>      I{3361}
>      V{3364}
>      U{3365}
>      I{3367}
>      N{3369}
>      I{3372}
>      N{3375}
>      I{3378}
>      N{3381}
>      I{3384}
>      N{3387}
>      I{3390}
>      N{3393}
>      I{3396}
>      N{3399}
>      I{3402}
>      A{3404}
>      N{3406}
>      V{3407}
>      I{3411}
>      N{3414}
>      I{3417}
>      X{3419}
>      XS{3420}
>      R{3424}
>      A{3425}
>      J{3426}
>      A{3427}
>      N{3429}
>      V{3430}
>      I{3434}
>      U{3437}
>      V{3438}
>      UI{3439}
>      VJ{3440}
>      V{3442}
>      U{3443}
>      I{3445}
>      N{3447}
>      I{3450}
>      V{3453}
>      U{3454}
>      I{3456}
>      N{3458}
>      I{3461}
>      U{3463}
>      V{3464}
>      V1{3466}
>      V2{3467}
>      U{3468}
>      I{3470}
>      N{3472}
>      I{3475}
>      ZS{3477}
>      ZS{3480}
>      R{3481}
>      V{3483}
>      I{3484}
>      N{3485}
>      I{3488}
>      C{3489}
>      ZS{3490}
>      ZS{3493}
>      R{3494}
>      A{3495}
>      N{3497}
>      V{3498}
>      I{3502}
>      A{3504}
>      N{3506}
>      V{3507}
>      I{3511}
>      N{3514}
>      I{3517}
>      N{3520}
>      I{3523}
>      V1{3526}
>      V2{3527}
>      U{3528}
>      I{3530}
>      N{3532}
>      I{3535}
>      ZS{3537}
>      ZS{3540}
>      R{3541}
>      V{3543}
>      I{3544}
>      N{3545}
>      I{3548}
>      C{3549}
>      ZS{3550}
>      ZS{3553}
>      R{3554}
>  E-STEP[323]
>    has region
>    has the following parameters:
>      X{1111} local
>      MODELS{1112} local
>    has the following in-lined locals:
>      V{849}
>      U{850}
>      I{852}
>      V1{854}
>      V2{855}
>      U{856}
>      I{858}
>      V{867}
>      I{868}
>      N{869}
>      I{872}
>      C{873}
>      U{886}
>      V{887}
>      E1{895}
>      E2{896}
>      E-MAX{897}
>      E-MIN{898}
>      FACTOR{899}
>      A{934}
>      A{952}
>      B{953}
>      A{954}
>      V{955}
>      U{956}
>      A{957}
>      J{958}
>      Z{1113}
>      S{1114}
>      ZI{1115}
>      ZI{1116}
>      XI{1117}
>      MODEL{1118}
>      LOG-DETERMINANT-SIGMA{1119}
>      SIGMA-INVERSE{1120}
>      MU{1121}
>      LOG-PI{1122}
>      Z{1516}
>      OBJS{2620}
>      A{2802}
>      ZS{2817}
>      ZS{2820}
>      R{2821}
>      N{2948}
>      I{2951}
>      N{2954}
>      I{2957}
>      V{2960}
>      U{2961}
>      I{2963}
>      V{2965}
>      U{2966}
>      I{2968}
>      V{2970}
>      U{2971}
>      I{2973}
>      V{2975}
>      U{2976}
>      I{2978}
>      V{2980}
>      U{2981}
>      I{2983}
>      V1{3050}
>      V2{3051}
>      U{3052}
>      I{3054}
>      V{3092}
>      I{3093}
>      N{3094}
>      I{3097}
>      C{3098}
>      V{3100}
>      I{3101}
>      N{3102}
>      I{3105}
>      C{3106}
>      U{3139}
>      V{3140}
>      N{3157}
>      V{3158}
>      I{3162}
>      N{3574}
>      I{3577}
>      N{3580}
>      I{3583}
>      N{3586}
>      I{3589}
>      V1{3592}
>      V2{3593}
>      U{3594}
>      I{3596}
>      N{3598}
>      I{3601}
>      ZS{3603}
>      ZS{3606}
>      R{3607}
>      V{3609}
>      I{3610}
>      N{3611}
>      I{3614}
>      C{3615}
>      ZS{3616}
>      ZS{3619}
>      R{3620}
>      N{3622}
>      I{3625}
>      ZS{3627}
>      ZS{3630}
>      R{3631}
>      ZS{3632}
>      ZS{3635}
>      R{3636}
>      N{3638}
>      I{3641}
>      N{3644}
>      I{3647}
>  ROTATE[281]
>    has the following parameters:
>      A{1072} local
>      I{1073} local
>      J{1074} local
>      K{1075} local
>      L{1076} local
>    has the following in-lined locals:
>      A{935}
>      I{936}
>      J{937}
>      A{938}
>      I{939}
>      J{940}
>      X{941}
>      H{1077}
>      G{1078}
>      A{2640}
>      I{2641}
>      J{2642}
>      X{2643}
>      A{2704}
>      I{2705}
>      J{2706}
>  INVERT-MATRIX[206]
>    has the following parameter:
>      A{1001} local
>    has the following in-lined locals:
>      A{933}
>      N{1003}
>      C{1004}
>      B{1005}
>      I{1009}
>      J{1010}
>      I{1011}
>      I{1012}
>      D{1014}
>      K{1016}
>      D{1017}
>      J{1018}
>      J{1020}
>      J{1024}
>      E{1027}
>      E{1029}
>      A{2656}
>      I{2657}
>      J{2658}
>      X{2659}
>      A{2660}
>      I{2661}
>      J{2662}
>      X{2663}
>      A{2664}
>      I{2665}
>      J{2666}
>      X{2667}
>      A{2668}
>      I{2669}
>      J{2670}
>      X{2671}
>      A{2672}
>      I{2673}
>      J{2674}
>      X{2675}
>      A{2676}
>      I{2677}
>      J{2678}
>      X{2679}
>      A{2722}
>      I{2723}
>      J{2724}
>      A{2725}
>      I{2726}
>      J{2727}
>      A{2728}
>      I{2729}
>      J{2730}
>      A{2731}
>      I{2732}
>      J{2733}
>      A{2734}
>      I{2735}
>      J{2736}
>      A{2737}
>      I{2738}
>      J{2739}
>      A{2740}
>      I{2741}
>      J{2742}
>      A{2743}
>      I{2744}
>      J{2745}
>      A{2746}
>      I{2747}
>      J{2748}
>      A{2749}
>      I{2750}
>      J{2751}
>      A{2752}
>      I{2753}
>      J{2754}
>      A{2800}
>      A{2805}
>      N{2840}
>      I{2843}
>      N{2846}
>      I{2849}
>      N{2852}
>      I{2855}
>      N{2858}
>      I{2861}
>      N{2864}
>      I{2867}
>      N{2870}
>      I{2873}
>      N{2876}
>      I{2879}
>      N{2882}
>      I{2885}
>  DETERMINANT[177]
>    has the following parameter:
>      A{972} local
>    has the following in-lined locals:
>      A{842}
>      B{843}
>      I{846}
>      N{975}
>      B{976}
>      D{977}
>      I{980}
>      J{981}
>      I{982}
>      INDEX{983}
>      GREATEST{984}
>      C{988}
>      J{991}
>      E{992}
>      K{993}
>      J{994}
>      J{995}
>      X{996}
>      V{998}
>      X{2610}
>      X{2611}
>      A{2680}
>      I{2681}
>      J{2682}
>      X{2683}
>      A{2684}
>      I{2685}
>      J{2686}
>      X{2687}
>      A{2688}
>      I{2689}
>      J{2690}
>      X{2691}
>      A{2755}
>      I{2756}
>      J{2757}
>      A{2758}
>      I{2759}
>      J{2760}
>      A{2761}
>      I{2762}
>      J{2763}
>      A{2764}
>      I{2765}
>      J{2766}
>      A{2767}
>      I{2768}
>      J{2769}
>      A{2770}
>      I{2771}
>      J{2772}
>      A{2773}
>      I{2774}
>      J{2775}
>      A{2776}
>      I{2777}
>      J{2778}
>      A{2801}
>      A{2806}
>      A{2807}
>      N{2888}
>      I{2891}
>      N{2894}
>      I{2897}
>      N{2900}
>      I{2903}
>      A{3205}
>      B{3206}
>      I{3209}
>      A{3212}
>      B{3213}
>      I{3216}
>      A{3219}
>      B{3220}
>      I{3223}
>  MATRIX-ROW-SET![162]
>    has the following parameters:
>      A{947} local
>      I{948} local
>      V{949} local
>  MATRIX-COLUMN-REF[160]
>    has the following parameters:
>      A{944} local
>      J{945} local
>    has the following in-lined locals:
>      V{946}
>      V{3030}
>      U{3031}
>      I{3033}
>      N{3260}
>      I{3263}
>  MATRIX-ROW-REF[159]
>    has the following parameters:
>      A{942} local
>      I{943} local
>  MAKE-MATRIX-INITIAL[153]
>    has the following parameters:
>      M{929} local
>      N{930} local
>      INITIAL{931} local
>    has the following in-lined locals:
>      N{3165}
>      V{3166}
>      I{3170}
>  MAKE-MATRIX[151]
>    has the following parameters:
>      M{926} local
>      N{927} local
>    has the following in-lined locals:
>      N{3149}
>      V{3150}
>      I{3154}
>  V-[112]
>    has the following parameters:
>      U{890} local
>      V{891} local
>    has the following in-lined locals:
>      V1{3068}
>      V2{3069}
>      U{3070}
>      I{3072}
>      N{3314}
>      I{3317}
>      Z{3319}
>      ZS{3320}
>      R{3324}
>  V+[111]
>    has the following parameters:
>      U{888} local
>      V{889} local
>    has the following in-lined locals:
>      V1{3080}
>      V2{3081}
>      U{3082}
>      I{3084}
>      N{3291}
>      I{3294}
>      ZS{3296}
>      ZS{3299}
>      R{3300}
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{821} local
>    has the following in-lined locals:
>      P{822}
>      ANS{823}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{811} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{809} local
>      N2{810} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{804} local
>    has the following in-lined locals:
>      S{807}
>      C{808}
>      CHAR{1624}
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{705}
>      RANDOM:MASK{706}
>      RANDOM:CHUNK-SIZE{707}
>      *MOST-POSITIVE-FIXNUM*{714}
>      I{801}
>      L{812}
>      TRIAL{813}
>      RANDOM-STRINGS{814}
>      NIBBLES{816}
>      I{819}
>      ILEN{828}
>      S{829}
>      SLOP{830}
>      N{833}
>      R{834}
>      L{860}
>      I{861}
>      L{864}
>      C{865}
>      N{901}
>      I{904}
>      C{905}
>      N{907}
>      V{908}
>      I{912}
>      L{915}
>      L{918}
>      C{919}
>      X{920}
>      L{921}
>      L{924}
>      I{925}
>      X{1135}
>      PI{1136}
>      MU{1137}
>      SIGMA{1138}
>      CLIP{1139}
>      EM-KICK-OFF-TOLERANCE{1140}
>      EM-CONVERGENCE-TOLERANCE{1141}
>      JJ{1142}
>      MODELS{1145}
>      OLD-LOG-LIKELIHOOD{1146}
>      STARTING?{1147}
>      LOG-LIKELIHOOD-Z{1148}
>      v{1149}
>      v{1150}
>      J{1151}
>      EPSILON{1152}
>      II{1153}
>      JJ{1154}
>      ZI{1156}
>      X{1158}
>      CLIP{1159}
>      EM-KICK-OFF-TOLERANCE{1160}
>      EM-CONVERGENCE-TOLERANCE{1161}
>      EMS-CONVERGENCE-TOLERANCE{1162}
>      JJ{1165}
>      OLD-LOG-LIKELIHOOD-MODELS{1166}
>      MODELS{1167}
>      NEW-LOG-LIKELIHOOD-MODELS{1168}
>      X{1169}
>      CLIP{1170}
>      EM-KICK-OFF-TOLERANCE{1171}
>      EM-CONVERGENCE-TOLERANCE{1172}
>      EMS-CONVERGENCE-TOLERANCE{1173}
>      Z{1174}
>      CLUSTERS{1175}
>      J{1176}
>      CLUSTER{1177}
>      CLUSTER{1178}
>      I{1179}
>      ZI{1180}
>      OBJ1{1183}
>      OBJ2{1184}
>      v{1185}
>      v{1186}
>      PAIR{1202}
>      PAIR{1209}
>      OBJS{1246}
>      LIST{1321}
>      LIST{1324}
>      R{1325}
>      X{1429}
>      XS{1430}
>      R{1434}
>      STRING{1801}
>      START{1802}
>      END{1803}
>      R{1804}
>      K{1808}
>      LIST1{1954}
>      LIST1{1958}
>      C{1959}
>      OBJ{2592}
>      OBJS{2619}
>      OBJS{2622}
>      PAIR{2623}
>      PAIR{2624}
>      PAIR{2625}
>      PAIR{2627}
>      PAIR{2628}
>      PAIR{2629}
>      PAIR{2630}
>      PAIR{2631}
>      PAIR{2632}
>      PAIR{2633}
>      PAIR{2634}
>      PAIR{2635}
>      PAIR{2636}
>      PAIR{2637}
>      PAIR{2638}
>      V{2985}
>      U{2986}
>      I{2988}
>      V{2990}
>      U{2991}
>      I{2993}
>      V{2995}
>      U{2996}
>      I{2998}
>      K{3046}
>      U{3047}
>      X{3048}
>      V{3132}
>      I{3133}
>      N{3134}
>      I{3137}
>      C{3138}
>      N{3181}
>      V{3182}
>      I{3186}
>      N{3189}
>      V{3190}
>      I{3194}
>      N{3238}
>      I{3241}
>      C{3242}
>      ZS{3243}
>      ZS{3246}
>      R{3247}
>      V{3249}
>      U{3250}
>      I{3252}
>      N{3254}
>      I{3257}
>      N{3556}
>      I{3559}
>      N{3562}
>      I{3565}
>      N{3568}
>      I{3571}
>The following non-trivial in-line native procedures will be generated:
>  [clone LOOP[61] 3471]
>    has the following parameter:
>      I{3647} local
>  [clone FOR-EACH-N[58] 3468]
>    has the following parameter:
>      N{3644} local
>  [clone LOOP[61] 3463]
>    has the following parameter:
>      I{3641} local
>  [clone FOR-EACH-N[58] 3460]
>    has the following parameter:
>      N{3638} local
>  [clone LOOP[759] 3458]
>    has the following parameters:
>      ZS{3635} local
>      R{3636} local
>  [clone +[756] 3455]
>    has the following parameter:
>      ZS{3632} local
>  [clone LOOP[764] 3453]
>    has the following parameters:
>      ZS{3630} local
>      R{3631} local
>  [clone *[761] 3450]
>    has the following parameter:
>      ZS{3627} local
>  [clone LOOP[61] 3445]
>    has the following parameter:
>      I{3625} local
>  [clone FOR-EACH-N[58] 3442]
>    has the following parameter:
>      N{3622} local
>  [clone LOOP[759] 3440]
>    has the following parameters:
>      ZS{3619} local
>      R{3620} local
>  [clone +[756] 3437]
>    has the following parameter:
>      ZS{3616} local
>  [clone LOOP[97] 3435]
>    has the following parameters:
>      I{3614} local
>      C{3615} local
>  [clone [inside REDUCE-VECTOR 91] 3429]
>    has the following parameter:
>      N{3611} local
>  [clone REDUCE-VECTOR[90] 3428]
>    has the following parameters:
>      V{3609} local
>      I{3610} local
>  [clone LOOP[764] 3426]
>    has the following parameters:
>      ZS{3606} local
>      R{3607} local
>  [clone *[761] 3423]
>    has the following parameter:
>      ZS{3603} local
>  [clone LOOP[61] 3418]
>    has the following parameter:
>      I{3601} local
>  [clone FOR-EACH-N[58] 3415]
>    has the following parameter:
>      N{3598} local
>  [clone [inside MAP-VECTOR-TWO 81] 3414]
>    has region
>    has the following parameter:
>      I{3596} local
>  [clone [inside MAP-VECTOR-TWO 79] 3412]
>    has the following parameter:
>      U{3594} local
>  [clone MAP-VECTOR-TWO[78] 3411]
>    has the following parameters:
>      V1{3592} local
>      V2{3593} local
>  [clone LOOP[61] 3406]
>    has the following parameter:
>      I{3589} local
>  [clone FOR-EACH-N[58] 3403]
>    has the following parameter:
>      N{3586} local
>  [clone LOOP[61] 3398]
>    has the following parameter:
>      I{3583} local
>  [clone FOR-EACH-N[58] 3395]
>    has the following parameter:
>      N{3580} local
>  [clone LOOP[61] 3390]
>    has the following parameter:
>      I{3577} local
>  [clone FOR-EACH-N[58] 3387]
>    has the following parameter:
>      N{3574} local
>  [clone LOOP[61] 3382]
>    has the following parameter:
>      I{3571} local
>  [clone FOR-EACH-N[58] 3379]
>    has the following parameter:
>      N{3568} local
>  [clone LOOP[61] 3374]
>    has the following parameter:
>      I{3565} local
>  [clone FOR-EACH-N[58] 3371]
>    has the following parameter:
>      N{3562} local
>  [clone LOOP[61] 3366]
>    has the following parameter:
>      I{3559} local
>  [clone FOR-EACH-N[58] 3363]
>    has the following parameter:
>      N{3556} local
>  [clone LOOP[759] 3361]
>    has the following parameters:
>      ZS{3553} local
>      R{3554} local
>  [clone +[756] 3358]
>    has the following parameter:
>      ZS{3550} local
>  [clone LOOP[97] 3356]
>    has the following parameters:
>      I{3548} local
>      C{3549} local
>  [clone [inside REDUCE-VECTOR 91] 3350]
>    has the following parameter:
>      N{3545} local
>  [clone REDUCE-VECTOR[90] 3349]
>    has the following parameters:
>      V{3543} local
>      I{3544} local
>  [clone LOOP[764] 3347]
>    has the following parameters:
>      ZS{3540} local
>      R{3541} local
>  [clone *[761] 3344]
>    has the following parameter:
>      ZS{3537} local
>  [clone LOOP[61] 3339]
>    has the following parameter:
>      I{3535} local
>  [clone FOR-EACH-N[58] 3336]
>    has the following parameter:
>      N{3532} local
>  [clone [inside MAP-VECTOR-TWO 81] 3335]
>    has region
>    has the following parameter:
>      I{3530} local
>  [clone [inside MAP-VECTOR-TWO 79] 3333]
>    has the following parameter:
>      U{3528} local
>  [clone MAP-VECTOR-TWO[78] 3332]
>    has the following parameters:
>      V1{3526} local
>      V2{3527} local
>  [clone LOOP[61] 3327]
>    has the following parameter:
>      I{3523} local
>  [clone FOR-EACH-N[58] 3324]
>    has the following parameter:
>      N{3520} local
>  [clone LOOP[61] 3319]
>    has the following parameter:
>      I{3517} local
>  [clone FOR-EACH-N[58] 3316]
>    has the following parameter:
>      N{3514} local
>  [clone LOOP[130] 3311]
>    has the following parameter:
>      I{3511} local
>  [clone [inside MAP-N-VECTOR 126] 3307]
>    has the following parameter:
>      V{3507} local
>  [clone MAP-N-VECTOR[125] 3306]
>    has the following parameter:
>      N{3506} local
>  [clone MATRIX-COLUMNS[156] 3305]
>    has the following parameter:
>      A{3504} local
>  [clone LOOP[130] 3300]
>    has the following parameter:
>      I{3502} local
>  [clone [inside MAP-N-VECTOR 126] 3296]
>    has the following parameter:
>      V{3498} local
>  [clone MAP-N-VECTOR[125] 3295]
>    has the following parameter:
>      N{3497} local
>  [clone MATRIX-COLUMNS[156] 3294]
>    has the following parameter:
>      A{3495} local
>  [clone LOOP[759] 3292]
>    has the following parameters:
>      ZS{3493} local
>      R{3494} local
>  [clone +[756] 3289]
>    has the following parameter:
>      ZS{3490} local
>  [clone LOOP[97] 3287]
>    has the following parameters:
>      I{3488} local
>      C{3489} local
>  [clone [inside REDUCE-VECTOR 91] 3281]
>    has the following parameter:
>      N{3485} local
>  [clone REDUCE-VECTOR[90] 3280]
>    has the following parameters:
>      V{3483} local
>      I{3484} local
>  [clone LOOP[764] 3278]
>    has the following parameters:
>      ZS{3480} local
>      R{3481} local
>  [clone *[761] 3275]
>    has the following parameter:
>      ZS{3477} local
>  [clone LOOP[61] 3270]
>    has the following parameter:
>      I{3475} local
>  [clone FOR-EACH-N[58] 3267]
>    has the following parameter:
>      N{3472} local
>  [clone [inside MAP-VECTOR-TWO 81] 3266]
>    has region
>    has the following parameter:
>      I{3470} local
>  [clone [inside MAP-VECTOR-TWO 79] 3264]
>    has the following parameter:
>      U{3468} local
>  [clone MAP-VECTOR-TWO[78] 3263]
>    has the following parameters:
>      V1{3466} local
>      V2{3467} local
>  [clone DOT[110] 3262]
>    has region
>    has the following parameters:
>      U{3463} local
>      V{3464} local
>  [clone LOOP[61] 3257]
>    has the following parameter:
>      I{3461} local
>  [clone FOR-EACH-N[58] 3254]
>    has the following parameter:
>      N{3458} local
>  [clone [inside MAP-VECTOR 77] 3253]
>    has the following parameter:
>      I{3456} local
>  [clone [inside MAP-VECTOR 75] 3251]
>    has the following parameter:
>      U{3454} local
>  [clone MAP-VECTOR[74] 3250]
>    has the following parameter:
>      V{3453} local
>  [clone LOOP[61] 3245]
>    has the following parameter:
>      I{3450} local
>  [clone FOR-EACH-N[58] 3242]
>    has the following parameter:
>      N{3447} local
>  [clone [inside MAP-VECTOR 77] 3241]
>    has the following parameter:
>      I{3445} local
>  [clone [inside MAP-VECTOR 75] 3239]
>    has the following parameter:
>      U{3443} local
>  [clone MAP-VECTOR[74] 3238]
>    has the following parameter:
>      V{3442} local
>  [clone [inside OUTER-PRODUCT 171] 3237]
>    has the following parameter:
>      VJ{3440} local
>  [clone [inside OUTER-PRODUCT 170] 3236]
>    has the following parameter:
>      UI{3439} local
>  [clone OUTER-PRODUCT[169] 3235]
>    has the following parameters:
>      U{3437} local
>      V{3438} local
>  [clone LOOP[130] 3230]
>    has the following parameter:
>      I{3434} local
>  [clone [inside MAP-N-VECTOR 126] 3226]
>    has the following parameter:
>      V{3430} local
>  [clone MAP-N-VECTOR[125] 3225]
>    has the following parameter:
>      N{3429} local
>  [clone MATRIX-COLUMNS[156] 3224]
>    has the following parameter:
>      A{3427} local
>  [clone [inside TRANSPOSE 168] 3223]
>    has the following parameter:
>      J{3426} local
>  [clone TRANSPOSE[167] 3222]
>    has the following parameter:
>      A{3425} local
>  [clone LOOP[749] 3220]
>    has the following parameter:
>      R{3424} local
>  [clone MAX[746] 3217]
>    has the following parameters:
>      X{3419} local
>      XS{3420} local
>  [clone LOOP[61] 3212]
>    has the following parameter:
>      I{3417} local
>  [clone FOR-EACH-N[58] 3209]
>    has the following parameter:
>      N{3414} local
>  [clone LOOP[130] 3204]
>    has the following parameter:
>      I{3411} local
>  [clone [inside MAP-N-VECTOR 126] 3200]
>    has the following parameter:
>      V{3407} local
>  [clone MAP-N-VECTOR[125] 3199]
>    has the following parameter:
>      N{3406} local
>  [clone MATRIX-COLUMNS[156] 3198]
>    has the following parameter:
>      A{3404} local
>  [clone LOOP[61] 3193]
>    has the following parameter:
>      I{3402} local
>  [clone FOR-EACH-N[58] 3190]
>    has the following parameter:
>      N{3399} local
>  [clone LOOP[61] 3185]
>    has the following parameter:
>      I{3396} local
>  [clone FOR-EACH-N[58] 3182]
>    has the following parameter:
>      N{3393} local
>  [clone LOOP[61] 3177]
>    has the following parameter:
>      I{3390} local
>  [clone FOR-EACH-N[58] 3174]
>    has the following parameter:
>      N{3387} local
>  [clone LOOP[61] 3169]
>    has the following parameter:
>      I{3384} local
>  [clone FOR-EACH-N[58] 3166]
>    has the following parameter:
>      N{3381} local
>  [clone LOOP[61] 3161]
>    has the following parameter:
>      I{3378} local
>  [clone FOR-EACH-N[58] 3158]
>    has the following parameter:
>      N{3375} local
>  [clone LOOP[61] 3153]
>    has the following parameter:
>      I{3372} local
>  [clone FOR-EACH-N[58] 3150]
>    has the following parameter:
>      N{3369} local
>  [clone [inside MAP-VECTOR 77] 3149]
>    has the following parameter:
>      I{3367} local
>  [clone [inside MAP-VECTOR 75] 3147]
>    has the following parameter:
>      U{3365} local
>  [clone MAP-VECTOR[74] 3146]
>    has the following parameter:
>      V{3364} local
>  [clone LOOP[61] 3141]
>    has the following parameter:
>      I{3361} local
>  [clone FOR-EACH-N[58] 3138]
>    has the following parameter:
>      N{3358} local
>  [clone [inside MAP-VECTOR 77] 3137]
>    has the following parameter:
>      I{3356} local
>  [clone [inside MAP-VECTOR 75] 3135]
>    has the following parameter:
>      U{3354} local
>  [clone MAP-VECTOR[74] 3134]
>    has the following parameter:
>      V{3353} local
>  [clone LOOP[764] 3132]
>    has the following parameters:
>      ZS{3350} local
>      R{3351} local
>  [clone *[761] 3129]
>    has the following parameter:
>      ZS{3347} local
>  [clone LOOP[61] 3124]
>    has the following parameter:
>      I{3345} local
>  [clone FOR-EACH-N[58] 3121]
>    has the following parameter:
>      N{3342} local
>  [clone [inside MAP-VECTOR 77] 3120]
>    has the following parameter:
>      I{3340} local
>  [clone [inside MAP-VECTOR 75] 3118]
>    has the following parameter:
>      U{3338} local
>  [clone MAP-VECTOR[74] 3117]
>    has the following parameter:
>      V{3337} local
>  [clone LOOP[61] 3112]
>    has the following parameter:
>      I{3334} local
>  [clone FOR-EACH-N[58] 3109]
>    has the following parameter:
>      N{3331} local
>  [clone [inside MAP-VECTOR 77] 3108]
>    has the following parameter:
>      I{3329} local
>  [clone [inside MAP-VECTOR 75] 3106]
>    has the following parameter:
>      U{3327} local
>  [clone MAP-VECTOR[74] 3105]
>    has the following parameter:
>      V{3326} local
>  [clone LOOP[769] 3103]
>    has the following parameter:
>      R{3324} local
>  [clone -[766] 3100]
>    has the following parameters:
>      Z{3319} local
>      ZS{3320} local
>  [clone LOOP[61] 3095]
>    has the following parameter:
>      I{3317} local
>  [clone FOR-EACH-N[58] 3092]
>    has the following parameter:
>      N{3314} local
>  [clone LOOP[61] 3087]
>    has the following parameter:
>      I{3311} local
>  [clone FOR-EACH-N[58] 3084]
>    has the following parameter:
>      N{3308} local
>  [clone LOOP[61] 3079]
>    has the following parameter:
>      I{3305} local
>  [clone FOR-EACH-N[58] 3076]
>    has the following parameter:
>      N{3302} local
>  [clone LOOP[759] 3074]
>    has the following parameters:
>      ZS{3299} local
>      R{3300} local
>  [clone +[756] 3071]
>    has the following parameter:
>      ZS{3296} local
>  [clone LOOP[61] 3066]
>    has the following parameter:
>      I{3294} local
>  [clone FOR-EACH-N[58] 3063]
>    has the following parameter:
>      N{3291} local
>  [clone LOOP[61] 3058]
>    has the following parameter:
>      I{3288} local
>  [clone FOR-EACH-N[58] 3055]
>    has the following parameter:
>      N{3285} local
>  [clone [inside MAP-VECTOR 77] 3054]
>    has the following parameter:
>      I{3283} local
>  [clone [inside MAP-VECTOR 75] 3052]
>    has the following parameter:
>      U{3281} local
>  [clone MAP-VECTOR[74] 3051]
>    has the following parameter:
>      V{3280} local
>  [clone [inside K*V 114] 3050]
>    has the following parameter:
>      X{3278} local
>  [clone K*V[113] 3049]
>    has the following parameters:
>      K{3276} local
>      U{3277} local
>  [clone LOOP[61] 3044]
>    has the following parameter:
>      I{3274} local
>  [clone FOR-EACH-N[58] 3041]
>    has the following parameter:
>      N{3271} local
>  [clone LOOP[759] 3039]
>    has the following parameters:
>      ZS{3268} local
>      R{3269} local
>  [clone +[756] 3036]
>    has the following parameter:
>      ZS{3265} local
>  [clone LOOP[61] 3031]
>    has the following parameter:
>      I{3263} local
>  [clone FOR-EACH-N[58] 3028]
>    has the following parameter:
>      N{3260} local
>  [clone LOOP[61] 3023]
>    has the following parameter:
>      I{3257} local
>  [clone FOR-EACH-N[58] 3020]
>    has the following parameter:
>      N{3254} local
>  [clone [inside MAP-VECTOR 77] 3019]
>    has the following parameter:
>      I{3252} local
>  [clone [inside MAP-VECTOR 75] 3017]
>    has the following parameter:
>      U{3250} local
>  [clone MAP-VECTOR[74] 3016]
>    has the following parameter:
>      V{3249} local
>  [clone LOOP[759] 3014]
>    has the following parameters:
>      ZS{3246} local
>      R{3247} local
>  [clone +[756] 3011]
>    has the following parameter:
>      ZS{3243} local
>  [clone LOOP[123] 3009]
>    has region
>    has the following parameters:
>      I{3241} local
>      C{3242} local
>  [clone MAP-N[120] 3006]
>    has the following parameter:
>      N{3238} local
>  [clone LOOP[108] 3004]
>    has the following parameters:
>      N{3235} local
>      C{3236} local
>  [clone SUM[105] 3001]
>    has the following parameter:
>      N{3232} local
>  [clone [inside LOOP 103] 2999]
>    has the following parameter:
>      v{3230} local
>  [clone LOOP[102] 2998]
>    has the following parameter:
>      I{3229} local
>  [clone EVERY-N[99] 2995]
>    has the following parameter:
>      N{3226} local
>  [clone LOOP[69] 2990]
>    has the following parameter:
>      I{3223} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 2987]
>    has the following parameters:
>      A{3219} local
>      B{3220} local
>  [clone LOOP[69] 2982]
>    has the following parameter:
>      I{3216} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 2979]
>    has the following parameters:
>      A{3212} local
>      B{3213} local
>  [clone LOOP[69] 2974]
>    has the following parameter:
>      I{3209} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 2971]
>    has the following parameters:
>      A{3205} local
>      B{3206} local
>  [clone M*[173] 2970]
>    has region
>    has the following parameters:
>      A{3202} local
>      B{3203} local
>  [clone [inside TRANSPOSE 168] 2969]
>    has the following parameter:
>      J{3201} local
>  [clone TRANSPOSE[167] 2968]
>    has the following parameter:
>      A{3200} local
>  [clone [inside TRANSPOSE 168] 2967]
>    has the following parameter:
>      J{3199} local
>  [clone TRANSPOSE[167] 2966]
>    has the following parameter:
>      A{3198} local
>  [clone [inside TRANSPOSE 168] 2965]
>    has the following parameter:
>      J{3197} local
>  [clone TRANSPOSE[167] 2964]
>    has the following parameter:
>      A{3196} local
>  [clone LOOP[130] 2959]
>    has the following parameter:
>      I{3194} local
>  [clone [inside MAP-N-VECTOR 126] 2955]
>    has the following parameter:
>      V{3190} local
>  [clone MAP-N-VECTOR[125] 2954]
>    has the following parameter:
>      N{3189} local
>  [clone LOOP[130] 2949]
>    has the following parameter:
>      I{3186} local
>  [clone [inside MAP-N-VECTOR 126] 2945]
>    has the following parameter:
>      V{3182} local
>  [clone MAP-N-VECTOR[125] 2944]
>    has the following parameter:
>      N{3181} local
>  [clone LOOP[130] 2939]
>    has the following parameter:
>      I{3178} local
>  [clone [inside MAP-N-VECTOR 126] 2935]
>    has the following parameter:
>      V{3174} local
>  [clone MAP-N-VECTOR[125] 2934]
>    has the following parameter:
>      N{3173} local
>  [clone LOOP[130] 2929]
>    has the following parameter:
>      I{3170} local
>  [clone [inside MAP-N-VECTOR 126] 2925]
>    has the following parameter:
>      V{3166} local
>  [clone MAP-N-VECTOR[125] 2924]
>    has the following parameter:
>      N{3165} local
>  [clone LOOP[130] 2919]
>    has the following parameter:
>      I{3162} local
>  [clone [inside MAP-N-VECTOR 126] 2915]
>    has the following parameter:
>      V{3158} local
>  [clone MAP-N-VECTOR[125] 2914]
>    has the following parameter:
>      N{3157} local
>  [clone LOOP[130] 2909]
>    has the following parameter:
>      I{3154} local
>  [clone [inside MAP-N-VECTOR 126] 2905]
>    has the following parameter:
>      V{3150} local
>  [clone MAP-N-VECTOR[125] 2904]
>    has the following parameter:
>      N{3149} local
>  [clone [inside OUTER-PRODUCT 171] 2903]
>    has region
>    has the following parameter:
>      VJ{3147} local
>  [clone [inside OUTER-PRODUCT 170] 2902]
>    has the following parameter:
>      UI{3146} local
>  [clone OUTER-PRODUCT[169] 2901]
>    has the following parameters:
>      U{3144} local
>      V{3145} local
>  [clone DOT[110] 2900]
>    has region
>    has the following parameters:
>      U{3141} local
>      V{3142} local
>  [clone DOT[110] 2899]
>    has region
>    has the following parameters:
>      U{3139} local
>      V{3140} local
>  [clone LOOP[97] 2897]
>    has region
>    has the following parameters:
>      I{3137} local
>      C{3138} local
>  [clone [inside REDUCE-VECTOR 91] 2891]
>    has the following parameter:
>      N{3134} local
>  [clone REDUCE-VECTOR[90] 2890]
>    has the following parameters:
>      V{3132} local
>      I{3133} local
>  [clone LOOP[97] 2888]
>    has the following parameters:
>      I{3129} local
>      C{3130} local
>  [clone [inside REDUCE-VECTOR 91] 2882]
>    has the following parameter:
>      N{3126} local
>  [clone REDUCE-VECTOR[90] 2881]
>    has the following parameters:
>      V{3124} local
>      I{3125} local
>  [clone LOOP[97] 2879]
>    has the following parameters:
>      I{3121} local
>      C{3122} local
>  [clone [inside REDUCE-VECTOR 91] 2873]
>    has the following parameter:
>      N{3118} local
>  [clone REDUCE-VECTOR[90] 2872]
>    has the following parameters:
>      V{3116} local
>      I{3117} local
>  [clone LOOP[97] 2870]
>    has the following parameters:
>      I{3113} local
>      C{3114} local
>  [clone [inside REDUCE-VECTOR 91] 2864]
>    has the following parameter:
>      N{3110} local
>  [clone REDUCE-VECTOR[90] 2863]
>    has the following parameters:
>      V{3108} local
>      I{3109} local
>  [clone LOOP[97] 2861]
>    has the following parameters:
>      I{3105} local
>      C{3106} local
>  [clone [inside REDUCE-VECTOR 91] 2855]
>    has the following parameter:
>      N{3102} local
>  [clone REDUCE-VECTOR[90] 2854]
>    has the following parameters:
>      V{3100} local
>      I{3101} local
>  [clone LOOP[97] 2852]
>    has the following parameters:
>      I{3097} local
>      C{3098} local
>  [clone [inside REDUCE-VECTOR 91] 2846]
>    has the following parameter:
>      N{3094} local
>  [clone REDUCE-VECTOR[90] 2845]
>    has the following parameters:
>      V{3092} local
>      I{3093} local
>  [clone [inside MAP-VECTOR-TWO 81] 2844]
>    has the following parameter:
>      I{3090} local
>  [clone [inside MAP-VECTOR-TWO 79] 2842]
>    has the following parameter:
>      U{3088} local
>  [clone MAP-VECTOR-TWO[78] 2841]
>    has the following parameters:
>      V1{3086} local
>      V2{3087} local
>  [clone [inside MAP-VECTOR-TWO 81] 2840]
>    has region
>    has the following parameter:
>      I{3084} local
>  [clone [inside MAP-VECTOR-TWO 79] 2838]
>    has the following parameter:
>      U{3082} local
>  [clone MAP-VECTOR-TWO[78] 2837]
>    has the following parameters:
>      V1{3080} local
>      V2{3081} local
>  [clone [inside MAP-VECTOR-TWO 81] 2836]
>    has the following parameter:
>      I{3078} local
>  [clone [inside MAP-VECTOR-TWO 79] 2834]
>    has the following parameter:
>      U{3076} local
>  [clone MAP-VECTOR-TWO[78] 2833]
>    has the following parameters:
>      V1{3074} local
>      V2{3075} local
>  [clone [inside MAP-VECTOR-TWO 81] 2832]
>    has region
>    has the following parameter:
>      I{3072} local
>  [clone [inside MAP-VECTOR-TWO 79] 2830]
>    has the following parameter:
>      U{3070} local
>  [clone MAP-VECTOR-TWO[78] 2829]
>    has the following parameters:
>      V1{3068} local
>      V2{3069} local
>  [clone [inside MAP-VECTOR-TWO 81] 2828]
>    has the following parameter:
>      I{3066} local
>  [clone [inside MAP-VECTOR-TWO 79] 2826]
>    has the following parameter:
>      U{3064} local
>  [clone MAP-VECTOR-TWO[78] 2825]
>    has the following parameters:
>      V1{3062} local
>      V2{3063} local
>  [clone [inside MAP-VECTOR-TWO 81] 2824]
>    has region
>    has the following parameter:
>      I{3060} local
>  [clone [inside MAP-VECTOR-TWO 79] 2822]
>    has the following parameter:
>      U{3058} local
>  [clone MAP-VECTOR-TWO[78] 2821]
>    has the following parameters:
>      V1{3056} local
>      V2{3057} local
>  [clone [inside MAP-VECTOR-TWO 81] 2820]
>    has region
>    has the following parameter:
>      I{3054} local
>  [clone [inside MAP-VECTOR-TWO 79] 2818]
>    has the following parameter:
>      U{3052} local
>  [clone MAP-VECTOR-TWO[78] 2817]
>    has the following parameters:
>      V1{3050} local
>      V2{3051} local
>  [clone [inside K*V 114] 2816]
>    has the following parameter:
>      X{3048} local
>  [clone K*V[113] 2815]
>    has the following parameters:
>      K{3046} local
>      U{3047} local
>  [clone [inside K*M 176] 2812]
>    has the following parameter:
>      E{3042} local
>  [clone [inside K*M 175] 2811]
>    has the following parameter:
>      ROW{3041} local
>  [clone K*M[174] 2810]
>    has the following parameters:
>      K{3039} local
>      M{3040} local
>  [clone [inside MAP-VECTOR 77] 2809]
>    has the following parameter:
>      I{3038} local
>  [clone [inside MAP-VECTOR 75] 2807]
>    has the following parameter:
>      U{3036} local
>  [clone MAP-VECTOR[74] 2806]
>    has the following parameter:
>      V{3035} local
>  [clone [inside MAP-VECTOR 77] 2805]
>    has the following parameter:
>      I{3033} local
>  [clone [inside MAP-VECTOR 75] 2803]
>    has the following parameter:
>      U{3031} local
>  [clone MAP-VECTOR[74] 2802]
>    has the following parameter:
>      V{3030} local
>  [clone [inside MAP-VECTOR 77] 2801]
>    has the following parameter:
>      I{3028} local
>  [clone [inside MAP-VECTOR 75] 2799]
>    has the following parameter:
>      U{3026} local
>  [clone MAP-VECTOR[74] 2798]
>    has the following parameter:
>      V{3025} local
>  [clone [inside MAP-VECTOR 77] 2797]
>    has the following parameter:
>      I{3023} local
>  [clone [inside MAP-VECTOR 75] 2795]
>    has the following parameter:
>      U{3021} local
>  [clone MAP-VECTOR[74] 2794]
>    has the following parameter:
>      V{3020} local
>  [clone [inside MAP-VECTOR 77] 2793]
>    has the following parameter:
>      I{3018} local
>  [clone [inside MAP-VECTOR 75] 2791]
>    has the following parameter:
>      U{3016} local
>  [clone MAP-VECTOR[74] 2790]
>    has the following parameter:
>      V{3015} local
>  [clone [inside MAP-VECTOR 77] 2789]
>    has the following parameter:
>      I{3013} local
>  [clone [inside MAP-VECTOR 75] 2787]
>    has the following parameter:
>      U{3011} local
>  [clone MAP-VECTOR[74] 2786]
>    has the following parameter:
>      V{3010} local
>  [clone [inside MAP-VECTOR 77] 2785]
>    has the following parameter:
>      I{3008} local
>  [clone [inside MAP-VECTOR 75] 2783]
>    has the following parameter:
>      U{3006} local
>  [clone MAP-VECTOR[74] 2782]
>    has the following parameter:
>      V{3005} local
>  [clone [inside MAP-VECTOR 77] 2781]
>    has the following parameter:
>      I{3003} local
>  [clone [inside MAP-VECTOR 75] 2779]
>    has the following parameter:
>      U{3001} local
>  [clone MAP-VECTOR[74] 2778]
>    has the following parameter:
>      V{3000} local
>  [clone [inside MAP-VECTOR 77] 2777]
>    has the following parameter:
>      I{2998} local
>  [clone [inside MAP-VECTOR 75] 2775]
>    has the following parameter:
>      U{2996} local
>  [clone MAP-VECTOR[74] 2774]
>    has the following parameter:
>      V{2995} local
>  [clone [inside MAP-VECTOR 77] 2773]
>    has the following parameter:
>      I{2993} local
>  [clone [inside MAP-VECTOR 75] 2771]
>    has the following parameter:
>      U{2991} local
>  [clone MAP-VECTOR[74] 2770]
>    has the following parameter:
>      V{2990} local
>  [clone [inside MAP-VECTOR 77] 2769]
>    has the following parameter:
>      I{2988} local
>  [clone [inside MAP-VECTOR 75] 2767]
>    has the following parameter:
>      U{2986} local
>  [clone MAP-VECTOR[74] 2766]
>    has the following parameter:
>      V{2985} local
>  [clone [inside MAP-VECTOR 77] 2765]
>    has the following parameter:
>      I{2983} local
>  [clone [inside MAP-VECTOR 75] 2763]
>    has the following parameter:
>      U{2981} local
>  [clone MAP-VECTOR[74] 2762]
>    has the following parameter:
>      V{2980} local
>  [clone [inside MAP-VECTOR 77] 2761]
>    has the following parameter:
>      I{2978} local
>  [clone [inside MAP-VECTOR 75] 2759]
>    has the following parameter:
>      U{2976} local
>  [clone MAP-VECTOR[74] 2758]
>    has the following parameter:
>      V{2975} local
>  [clone [inside MAP-VECTOR 77] 2757]
>    has the following parameter:
>      I{2973} local
>  [clone [inside MAP-VECTOR 75] 2755]
>    has the following parameter:
>      U{2971} local
>  [clone MAP-VECTOR[74] 2754]
>    has the following parameter:
>      V{2970} local
>  [clone [inside MAP-VECTOR 77] 2753]
>    has the following parameter:
>      I{2968} local
>  [clone [inside MAP-VECTOR 75] 2751]
>    has the following parameter:
>      U{2966} local
>  [clone MAP-VECTOR[74] 2750]
>    has the following parameter:
>      V{2965} local
>  [clone [inside MAP-VECTOR 77] 2749]
>    has the following parameter:
>      I{2963} local
>  [clone [inside MAP-VECTOR 75] 2747]
>    has the following parameter:
>      U{2961} local
>  [clone MAP-VECTOR[74] 2746]
>    has the following parameter:
>      V{2960} local
>  [clone LOOP[61] 2741]
>    has the following parameter:
>      I{2957} local
>  [clone FOR-EACH-N[58] 2738]
>    has the following parameter:
>      N{2954} local
>  [clone LOOP[61] 2733]
>    has the following parameter:
>      I{2951} local
>  [clone FOR-EACH-N[58] 2730]
>    has the following parameter:
>      N{2948} local
>  [clone LOOP[61] 2725]
>    has the following parameter:
>      I{2945} local
>  [clone FOR-EACH-N[58] 2722]
>    has the following parameter:
>      N{2942} local
>  [clone LOOP[61] 2717]
>    has the following parameter:
>      I{2939} local
>  [clone FOR-EACH-N[58] 2714]
>    has the following parameter:
>      N{2936} local
>  [clone LOOP[61] 2709]
>    has the following parameter:
>      I{2933} local
>  [clone FOR-EACH-N[58] 2706]
>    has the following parameter:
>      N{2930} local
>  [clone LOOP[61] 2701]
>    has the following parameter:
>      I{2927} local
>  [clone FOR-EACH-N[58] 2698]
>    has the following parameter:
>      N{2924} local
>  [clone LOOP[61] 2693]
>    has the following parameter:
>      I{2921} local
>  [clone FOR-EACH-N[58] 2690]
>    has the following parameter:
>      N{2918} local
>  [clone LOOP[61] 2685]
>    has the following parameter:
>      I{2915} local
>  [clone FOR-EACH-N[58] 2682]
>    has the following parameter:
>      N{2912} local
>  [clone LOOP[61] 2677]
>    has the following parameter:
>      I{2909} local
>  [clone FOR-EACH-N[58] 2674]
>    has the following parameter:
>      N{2906} local
>  [clone LOOP[61] 2669]
>    has the following parameter:
>      I{2903} local
>  [clone FOR-EACH-N[58] 2666]
>    has the following parameter:
>      N{2900} local
>  [clone LOOP[61] 2661]
>    has the following parameter:
>      I{2897} local
>  [clone FOR-EACH-N[58] 2658]
>    has the following parameter:
>      N{2894} local
>  [clone LOOP[61] 2653]
>    has the following parameter:
>      I{2891} local
>  [clone FOR-EACH-N[58] 2650]
>    has the following parameter:
>      N{2888} local
>  [clone LOOP[61] 2645]
>    has the following parameter:
>      I{2885} local
>  [clone FOR-EACH-N[58] 2642]
>    has the following parameter:
>      N{2882} local
>  [clone LOOP[61] 2637]
>    has the following parameter:
>      I{2879} local
>  [clone FOR-EACH-N[58] 2634]
>    has the following parameter:
>      N{2876} local
>  [clone LOOP[61] 2629]
>    has the following parameter:
>      I{2873} local
>  [clone FOR-EACH-N[58] 2626]
>    has the following parameter:
>      N{2870} local
>  [clone LOOP[61] 2621]
>    has the following parameter:
>      I{2867} local
>  [clone FOR-EACH-N[58] 2618]
>    has the following parameter:
>      N{2864} local
>  [clone LOOP[61] 2613]
>    has the following parameter:
>      I{2861} local
>  [clone FOR-EACH-N[58] 2610]
>    has the following parameter:
>      N{2858} local
>  [clone LOOP[61] 2605]
>    has the following parameter:
>      I{2855} local
>  [clone FOR-EACH-N[58] 2602]
>    has the following parameter:
>      N{2852} local
>  [clone LOOP[61] 2597]
>    has the following parameter:
>      I{2849} local
>  [clone FOR-EACH-N[58] 2594]
>    has the following parameter:
>      N{2846} local
>  [clone LOOP[61] 2589]
>    has the following parameter:
>      I{2843} local
>  [clone FOR-EACH-N[58] 2586]
>    has the following parameter:
>      N{2840} local
>  [clone LOOP[61] 2581]
>    has the following parameter:
>      I{2837} local
>  [clone FOR-EACH-N[58] 2578]
>    has the following parameter:
>      N{2834} local
>  [clone LOOP[618] 2576]
>    has the following parameters:
>      LIST{2831} local
>      R{2832} local
>  [clone LIST-REVERSE[615] 2573]
>    has the following parameter:
>      LIST{2828} local
>  [clone LOOP[759] 2566]
>    has the following parameters:
>      ZS{2820} local
>      R{2821} local
>  [clone +[756] 2563]
>    has the following parameter:
>      ZS{2817} local
>  [clone MATRIX-ROWS[155] 2557]
>    has the following parameter:
>      A{2811} local
>  [clone MATRIX-ROWS[155] 2556]
>    has the following parameter:
>      A{2810} local
>  [clone MATRIX-ROWS[155] 2555]
>    has the following parameter:
>      A{2809} local
>  [clone MATRIX-ROWS[155] 2554]
>    has the following parameter:
>      A{2808} local
>  [clone MATRIX-ROWS[155] 2553]
>    has the following parameter:
>      A{2807} local
>  [clone MATRIX-ROWS[155] 2552]
>    has the following parameter:
>      A{2806} local
>  [clone MATRIX-ROWS[155] 2551]
>    has the following parameter:
>      A{2805} local
>  [clone MATRIX-COLUMNS[156] 2550]
>    has the following parameter:
>      A{2804} local
>  [clone MATRIX-COLUMNS[156] 2549]
>    has the following parameter:
>      A{2803} local
>  [clone MATRIX-COLUMNS[156] 2548]
>    has the following parameter:
>      A{2802} local
>  [clone MATRIX-COLUMNS[156] 2547]
>    has the following parameter:
>      A{2801} local
>  [clone MATRIX-COLUMNS[156] 2546]
>    has the following parameter:
>      A{2800} local
>  [clone MATRIX-REF[157] 2545]
>    has the following parameters:
>      A{2797} local
>      I{2798} local
>      J{2799} local
>  [clone MATRIX-REF[157] 2544]
>    has the following parameters:
>      A{2794} local
>      I{2795} local
>      J{2796} local
>  [clone MATRIX-REF[157] 2543]
>    has the following parameters:
>      A{2791} local
>      I{2792} local
>      J{2793} local
>  [clone MATRIX-REF[157] 2542]
>    has the following parameters:
>      A{2788} local
>      I{2789} local
>      J{2790} local
>  [clone MATRIX-REF[157] 2541]
>    has the following parameters:
>      A{2785} local
>      I{2786} local
>      J{2787} local
>  [clone MATRIX-REF[157] 2540]
>    has the following parameters:
>      A{2782} local
>      I{2783} local
>      J{2784} local
>  [clone MATRIX-REF[157] 2539]
>    has the following parameters:
>      A{2779} local
>      I{2780} local
>      J{2781} local
>  [clone MATRIX-REF[157] 2538]
>    has the following parameters:
>      A{2776} local
>      I{2777} local
>      J{2778} local
>  [clone MATRIX-REF[157] 2537]
>    has the following parameters:
>      A{2773} local
>      I{2774} local
>      J{2775} local
>  [clone MATRIX-REF[157] 2536]
>    has the following parameters:
>      A{2770} local
>      I{2771} local
>      J{2772} local
>  [clone MATRIX-REF[157] 2535]
>    has the following parameters:
>      A{2767} local
>      I{2768} local
>      J{2769} local
>  [clone MATRIX-REF[157] 2534]
>    has the following parameters:
>      A{2764} local
>      I{2765} local
>      J{2766} local
>  [clone MATRIX-REF[157] 2533]
>    has the following parameters:
>      A{2761} local
>      I{2762} local
>      J{2763} local
>  [clone MATRIX-REF[157] 2532]
>    has the following parameters:
>      A{2758} local
>      I{2759} local
>      J{2760} local
>  [clone MATRIX-REF[157] 2531]
>    has the following parameters:
>      A{2755} local
>      I{2756} local
>      J{2757} local
>  [clone MATRIX-REF[157] 2530]
>    has the following parameters:
>      A{2752} local
>      I{2753} local
>      J{2754} local
>  [clone MATRIX-REF[157] 2529]
>    has the following parameters:
>      A{2749} local
>      I{2750} local
>      J{2751} local
>  [clone MATRIX-REF[157] 2528]
>    has the following parameters:
>      A{2746} local
>      I{2747} local
>      J{2748} local
>  [clone MATRIX-REF[157] 2527]
>    has the following parameters:
>      A{2743} local
>      I{2744} local
>      J{2745} local
>  [clone MATRIX-REF[157] 2526]
>    has the following parameters:
>      A{2740} local
>      I{2741} local
>      J{2742} local
>  [clone MATRIX-REF[157] 2525]
>    has the following parameters:
>      A{2737} local
>      I{2738} local
>      J{2739} local
>  [clone MATRIX-REF[157] 2524]
>    has the following parameters:
>      A{2734} local
>      I{2735} local
>      J{2736} local
>  [clone MATRIX-REF[157] 2523]
>    has the following parameters:
>      A{2731} local
>      I{2732} local
>      J{2733} local
>  [clone MATRIX-REF[157] 2522]
>    has the following parameters:
>      A{2728} local
>      I{2729} local
>      J{2730} local
>  [clone MATRIX-REF[157] 2521]
>    has the following parameters:
>      A{2725} local
>      I{2726} local
>      J{2727} local
>  [clone MATRIX-REF[157] 2520]
>    has the following parameters:
>      A{2722} local
>      I{2723} local
>      J{2724} local
>  [clone MATRIX-REF[157] 2519]
>    has the following parameters:
>      A{2719} local
>      I{2720} local
>      J{2721} local
>  [clone MATRIX-REF[157] 2518]
>    has the following parameters:
>      A{2716} local
>      I{2717} local
>      J{2718} local
>  [clone MATRIX-REF[157] 2517]
>    has the following parameters:
>      A{2713} local
>      I{2714} local
>      J{2715} local
>  [clone MATRIX-REF[157] 2516]
>    has the following parameters:
>      A{2710} local
>      I{2711} local
>      J{2712} local
>  [clone MATRIX-REF[157] 2515]
>    has the following parameters:
>      A{2707} local
>      I{2708} local
>      J{2709} local
>  [clone MATRIX-REF[157] 2514]
>    has the following parameters:
>      A{2704} local
>      I{2705} local
>      J{2706} local
>  [clone MATRIX-SET![158] 2513]
>    has the following parameters:
>      A{2700} local
>      I{2701} local
>      J{2702} local
>      X{2703} local
>  [clone MATRIX-SET![158] 2512]
>    has the following parameters:
>      A{2696} local
>      I{2697} local
>      J{2698} local
>      X{2699} local
>  [clone MATRIX-SET![158] 2511]
>    has the following parameters:
>      A{2692} local
>      I{2693} local
>      J{2694} local
>      X{2695} local
>  [clone MATRIX-SET![158] 2510]
>    has the following parameters:
>      A{2688} local
>      I{2689} local
>      J{2690} local
>      X{2691} local
>  [clone MATRIX-SET![158] 2509]
>    has the following parameters:
>      A{2684} local
>      I{2685} local
>      J{2686} local
>      X{2687} local
>  [clone MATRIX-SET![158] 2508]
>    has the following parameters:
>      A{2680} local
>      I{2681} local
>      J{2682} local
>      X{2683} local
>  [clone MATRIX-SET![158] 2507]
>    has the following parameters:
>      A{2676} local
>      I{2677} local
>      J{2678} local
>      X{2679} local
>  [clone MATRIX-SET![158] 2506]
>    has the following parameters:
>      A{2672} local
>      I{2673} local
>      J{2674} local
>      X{2675} local
>  [clone MATRIX-SET![158] 2505]
>    has the following parameters:
>      A{2668} local
>      I{2669} local
>      J{2670} local
>      X{2671} local
>  [clone MATRIX-SET![158] 2504]
>    has the following parameters:
>      A{2664} local
>      I{2665} local
>      J{2666} local
>      X{2667} local
>  [clone MATRIX-SET![158] 2503]
>    has the following parameters:
>      A{2660} local
>      I{2661} local
>      J{2662} local
>      X{2663} local
>  [clone MATRIX-SET![158] 2502]
>    has the following parameters:
>      A{2656} local
>      I{2657} local
>      J{2658} local
>      X{2659} local
>  [clone MATRIX-SET![158] 2501]
>    has the following parameters:
>      A{2652} local
>      I{2653} local
>      J{2654} local
>      X{2655} local
>  [clone MATRIX-SET![158] 2500]
>    has the following parameters:
>      A{2648} local
>      I{2649} local
>      J{2650} local
>      X{2651} local
>  [clone MATRIX-SET![158] 2499]
>    has the following parameters:
>      A{2644} local
>      I{2645} local
>      J{2646} local
>      X{2647} local
>  [clone MATRIX-SET![158] 2498]
>    has the following parameters:
>      A{2640} local
>      I{2641} local
>      J{2642} local
>      X{2643} local
>  [clone CAR[465] 2497]
>    has the following parameter:
>      PAIR{2639} local
>  [clone CAR[465] 2496]
>    has the following parameter:
>      PAIR{2638} local
>  [clone CAR[465] 2495]
>    has the following parameter:
>      PAIR{2637} local
>  [clone CAR[465] 2494]
>    has the following parameter:
>      PAIR{2636} local
>  [clone CAR[465] 2493]
>    has the following parameter:
>      PAIR{2635} local
>  [clone CAR[465] 2492]
>    has the following parameter:
>      PAIR{2634} local
>  [clone CAR[465] 2491]
>    has the following parameter:
>      PAIR{2633} local
>  [clone CAR[465] 2490]
>    has the following parameter:
>      PAIR{2632} local
>  [clone CAR[465] 2489]
>    has the following parameter:
>      PAIR{2631} local
>  [clone CAR[465] 2488]
>    has the following parameter:
>      PAIR{2630} local
>  [clone CAR[465] 2487]
>    has the following parameter:
>      PAIR{2629} local
>  [clone CAR[465] 2486]
>    has the following parameter:
>      PAIR{2628} local
>  [clone CAR[465] 2485]
>    has the following parameter:
>      PAIR{2627} local
>  [clone CADR[470] 2484]
>    has the following parameter:
>      PAIR{2626} local
>  [clone CADR[470] 2483]
>    has the following parameter:
>      PAIR{2625} local
>  [clone CADR[470] 2482]
>    has the following parameter:
>      PAIR{2624} local
>  [clone CADR[470] 2481]
>    has the following parameter:
>      PAIR{2623} local
>  [clone LIST[507] 2480]
>    has the following parameter:
>      OBJS{2622} local
>  [clone LIST[507] 2479]
>    has the following parameter:
>      OBJS{2621} local
>  [clone LIST[507] 2478]
>    has the following parameter:
>      OBJS{2620} local
>  [clone LIST[507] 2477]
>    has the following parameter:
>      OBJS{2619} local
>  [clone ABS[776] 2476]
>    has the following parameter:
>      X{2618} local
>  [clone ABS[776] 2475]
>    has the following parameter:
>      X{2617} local
>  [clone ABS[776] 2474]
>    has the following parameter:
>      X{2616} local
>  [clone ABS[776] 2473]
>    has the following parameter:
>      X{2615} local
>  [clone ABS[776] 2472]
>    has the following parameter:
>      X{2614} local
>  [clone ABS[776] 2471]
>    has the following parameter:
>      X{2613} local
>  [clone ABS[776] 2470]
>    has the following parameter:
>      X{2612} local
>  [clone ABS[776] 2469]
>    has the following parameter:
>      X{2611} local
>  [clone ABS[776] 2468]
>    has the following parameter:
>      X{2610} local
>  [clone ABS[776] 2467]
>    has the following parameter:
>      X{2609} local
>  [clone ABS[776] 2466]
>    has the following parameter:
>      X{2608} local
>  [clone ABS[776] 2465]
>    has the following parameter:
>      X{2607} local
>  WRITE[2214]
>    has the following parameter:
>      OBJ{2592} local
>  [inside LOOP 1845] reentrant
>  [inside LOOP 1844] reentrant
>  LOOP[1843] reentrant
>    has the following parameter:
>      I{2366} local
>  [inside WRITE2 1840] reentrant
>  [inside WRITE2 1839] reentrant
>  [inside WRITE2 1837] reentrant
>  [inside LOOP 1834] reentrant
>  [inside LOOP 1833] reentrant
>  [inside LOOP 1832] reentrant
>  [inside LOOP 1830] reentrant
>  LOOP[1829] reentrant
>    has the following parameter:
>      OBJ{2354} local
>  [inside WRITE2 1826] reentrant
>  [inside WRITE2 1825] reentrant
>  LOOP[1794]
>    has the following parameters:
>      MANTISSA{2336} local
>      EXPONENT{2337} local
>  LOOP[1789]
>    has the following parameters:
>      MANTISSA{2332} local
>      EXPONENT{2333} local
>  DISPLAY-INEXACT-REAL2[1780]
>    has the following parameters:
>      NUMBER{2327} local
>      PORT{2328} local
>  [inside LOOP 1777]
>    has the following parameter:
>      MANTISSA{2326} local
>  [inside LOOP 1774]
>    has the following parameter:
>      DIGIT{2324} local
>  [inside LOOP 1773]
>    has the following parameter:
>      FLOAT-DIGIT{2323} local
>  LOOP[1772]
>    has the following parameter:
>      MANTISSA{2322} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1761]
>    has the following parameter:
>      DIGIT{2315} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1760]
>    has the following parameter:
>      FLOAT-DIGIT{2314} local
>  LOOP[1751]
>    has the following parameter:
>      I{2308} local
>  LOOP[1748]
>    has the following parameters:
>      I{2304} local
>      NUMBER{2305} local
>  LOOP[1737]
>    has the following parameter:
>      I{2298} local
>  LOOP[1734]
>    has the following parameters:
>      I{2294} local
>      NUMBER{2295} local
>  LOOP[1725]
>    has the following parameter:
>      I{2288} local
>  [inside DISPLAY-STRING2 1722]
>    has the following parameter:
>      N{2285} local
>  [inside top level 1717]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2244} global
>      BUFFER{2246} global
>  LOOP[1241]
>    has region
>    has the following parameters:
>      LIST1{1958} local
>      C{1959} local
>  MAP[1237]
>    has the following parameter:
>      LIST1{1954} local
>  VECTOR->LIST[1151]
>    has the following parameter:
>      VECTOR{1883} global
>  [inside STRING->LIST 1086]
>    has the following parameter:
>      N{1829} global
>  STRING->LIST[1085]
>    has the following parameter:
>      STRING{1828} global
>  LOOP[1057]
>    has the following parameter:
>      K{1808} local
>  [inside SUBSTRING 1053]
>    has the following parameter:
>      R{1804} local
>  SUBSTRING[1052]
>    has the following parameters:
>      STRING{1801} local
>      START{1802} local
>      END{1803} local
>  [inside top level 911]
>    has the following parameter:
>      CHAR{1624} local
>  [inside top level 910]
>    has the following parameter:
>      CHAR-NUMERIC?{1623} global
>  EXP[830]
>    has the following parameter:
>      Z{1516} local
>  [inside MODULO 780]
>    has the following parameter:
>      v{1470} local
>  ABS[776]
>    has the following parameter:
>      X{1463} local
>  LOOP[749]
>    has the following parameter:
>      R{1434} local
>  MAX[746]
>    has the following parameters:
>      X{1429} local
>      XS{1430} local
>  LOOP[618]
>    has the following parameters:
>      LIST{1324} local
>      R{1325} local
>  LIST-REVERSE[615]
>    has the following parameter:
>      LIST{1321} local
>  LIST[507]
>    has the following parameter:
>      OBJS{1246} local
>  CADR[470]
>    has the following parameter:
>      PAIR{1209} local
>  CAR[465]
>    has the following parameter:
>      PAIR{1202} local
>  [inside EQV? 451]
>    has the following parameter:
>      v{1186} local
>  [inside EQV? 450]
>    has the following parameter:
>      v{1185} local
>  EQV?[449]
>    has the following parameters:
>      OBJ1{1183} local
>      OBJ2{1184} local
>  [inside EM-CLUSTERER 373]
>    has the following parameter:
>      ZI{1180} local
>  [inside EM-CLUSTERER 372]
>    has region
>    has the following parameter:
>      I{1179} local
>  [inside EM-CLUSTERER 371]
>    has the following parameter:
>      CLUSTER{1178} local
>  [inside EM-CLUSTERER 370]
>    has the following parameter:
>      CLUSTER{1177} local
>  [inside EM-CLUSTERER 369]
>    has the following parameter:
>      J{1176} local
>  [inside EM-CLUSTERER 367]
>    has the following parameter:
>      CLUSTERS{1175} local
>  [inside EM-CLUSTERER 366]
>    has the following parameter:
>      Z{1174} local
>  EM-CLUSTERER[365]
>    has region
>    has the following parameters:
>      X{1169} local
>      CLIP{1170} local
>      EM-KICK-OFF-TOLERANCE{1171} local
>      EM-CONVERGENCE-TOLERANCE{1172} local
>      EMS-CONVERGENCE-TOLERANCE{1173} local
>  [inside LOOP 362]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD-MODELS{1168} local
>  [inside LOOP 361]
>    has the following parameter:
>      MODELS{1167} local
>  LOOP[360]
>    has region
>    has the following parameters:
>      JJ{1165} local
>      OLD-LOG-LIKELIHOOD-MODELS{1166} local
>  EMS[357]
>    has region
>    has the following parameters:
>      X{1158} local
>      CLIP{1159} local
>      EM-KICK-OFF-TOLERANCE{1160} local
>      EM-CONVERGENCE-TOLERANCE{1161} local
>      EMS-CONVERGENCE-TOLERANCE{1162} local
>  [inside INITIAL-Z 355]
>    has the following parameter:
>      ZI{1156} local
>  [inside INITIAL-Z 354]
>    has region
>  INITIAL-Z[353]
>    has the following parameters:
>      II{1153} local
>      JJ{1154} local
>  NOISE[352]
>    has the following parameter:
>      EPSILON{1152} local
>  [inside EM 351]
>    has the following parameter:
>      J{1151} local
>  [inside LOOP 349]
>    has the following parameter:
>      v{1150} local
>  [inside LOOP 348]
>    has the following parameter:
>      v{1149} local
>  [inside LOOP 347]
>    has the following parameter:
>      LOG-LIKELIHOOD-Z{1148} local
>  LOOP[346]
>    has the following parameters:
>      MODELS{1145} local
>      OLD-LOG-LIKELIHOOD{1146} local
>      STARTING?{1147} local
>  [inside EM 343]
>    has the following parameter:
>      JJ{1142} local
>  EM[342]
>    has the following parameters:
>      X{1135} local
>      PI{1136} local
>      MU{1137} local
>      SIGMA{1138} local
>      CLIP{1139} local
>      EM-KICK-OFF-TOLERANCE{1140} local
>      EM-CONVERGENCE-TOLERANCE{1141} local
>  [inside M-STEP 341]
>    has region
>    has the following parameters:
>      ZIJ{1133} local
>      XI{1134} local
>  [inside M-STEP 339]
>    has the following parameter:
>      SIGMA{1132} local
>  [inside M-STEP 338]
>    has region
>    has the following parameter:
>      MU{1131} local
>  [inside M-STEP 337]
>    has region
>    has the following parameter:
>      ZJ-SUM{1130} local
>  [inside M-STEP 336]
>    has the following parameter:
>      ZJ{1129} local
>  [inside M-STEP 335]
>    has the following parameter:
>      J{1128} local
>  [inside M-STEP 333]
>    has the following parameter:
>      KK{1127} local
>  [inside M-STEP 332]
>    has the following parameter:
>      II{1126} local
>  [inside E-STEP 330]
>    has region
>    has the following parameters:
>      LOG-DETERMINANT-SIGMA{1119} local
>      SIGMA-INVERSE{1120} local
>      MU{1121} local
>      LOG-PI{1122} local
>  [inside E-STEP 329]
>    has the following parameter:
>      MODEL{1118} local
>  [inside E-STEP 328]
>    has the following parameter:
>      XI{1117} local
>  [inside E-STEP 327]
>    has the following parameter:
>      ZI{1116} local
>  [inside E-STEP 326]
>    has the following parameter:
>      ZI{1115} local
>  [inside E-STEP 325]
>    has region
>    has the following parameter:
>      S{1114} local
>  [inside E-STEP 324]
>    has region
>    has the following parameter:
>      Z{1113} local
>  [inside CLIP-EIGENVALUES 322]
>    has region
>  [inside CLIP-EIGENVALUES 321]
>    has the following parameter:
>      E{1110} local
>  [inside CLIP-EIGENVALUES 320]
>    has the following parameter:
>      J{1109} local
>  CLIP-EIGENVALUES[319]
>    has region
>    has the following parameters:
>      A{1107} local
>      V{1108} local
>  [inside VECTOR->DIAGONAL-MATRIX 318]
>    has the following parameter:
>      I{1106} local
>  [inside VECTOR->DIAGONAL-MATRIX 316]
>    has the following parameter:
>      M{1104} local
>  VECTOR->DIAGONAL-MATRIX[315]
>    has the following parameter:
>      V{1103} local
>  [inside JACOBI 313]
>    has the following parameter:
>      J{1102} local
>  [inside JACOBI 312]
>    has the following parameter:
>      I{1101} local
>  [inside JACOBI 311]
>    has the following parameter:
>      X{1100} local
>  [inside JACOBI 310]
>    has the following parameter:
>      ROW{1099} local
>  [inside JACOBI 305]
>    has the following parameter:
>      J{1097} local
>  [inside JACOBI 304]
>    has the following parameter:
>      L{1096} local
>  [inside JACOBI 301]
>    has the following parameter:
>      P{1094} local
>  [inside JACOBI 300]
>    has the following parameter:
>      J{1093} local
>  [inside JACOBI 296]
>    has the following parameters:
>      P{1088} local
>      K{1089} local
>  [inside JACOBI 295]
>    has the following parameter:
>      I{1087} local
>  [inside LOOP 292]
>    has the following parameter:
>      IQ{1086} local
>  [inside LOOP 291]
>    has the following parameter:
>      IR{1085} local
>  [inside LOOP 290]
>    has the following parameter:
>      IP{1084} local
>  [inside LOOP 287]
>    has the following parameter:
>      IP{1081} local
>  [inside LOOP 285]
>    has the following parameter:
>      THETA{1080} local
>  [inside ROTATE 282]
>    has the following parameters:
>      H{1077} local
>      G{1078} local
>  [inside LOOP 275]
>    has the following parameter:
>      J{1070} local
>  [inside LOOP 271]
>    has the following parameter:
>      H{1062} local
>  [inside LOOP 270]
>    has the following parameter:
>      TAU{1061} global
>  [inside LOOP 269]
>    has the following parameter:
>      S{1060} global
>  [inside LOOP 268]
>    has the following parameter:
>      C{1059} local
>  [inside LOOP 267]
>    has the following parameter:
>      T{1058} local
>  [inside LOOP 266]
>    has the following parameter:
>      H{1057} local
>  [inside LOOP 262]
>    has the following parameter:
>      G{1056} local
>  [inside LOOP 261]
>    has the following parameter:
>      IQ{1055} local
>  [inside LOOP 260]
>    has the following parameter:
>      IR{1054} local
>  [inside LOOP 259]
>    has the following parameter:
>      IP{1053} local
>  [inside LOOP 258]
>    has the following parameter:
>      TRESH{1052} local
>  [inside LOOP 255]
>    has the following parameter:
>      SM{1049} local
>  LOOP[253]
>    has the following parameter:
>      I{1047} local
>  [inside JACOBI 249]
>    has the following parameter:
>      IP{1042} local
>  [inside JACOBI 246]
>    has the following parameter:
>      Z{1038} local
>  [inside JACOBI 245]
>    has region
>    has the following parameter:
>      B{1037} local
>  [inside JACOBI 244]
>    has region
>    has the following parameter:
>      V{1036} local
>  [inside JACOBI 243]
>    has the following parameter:
>      D{1035} local
>  [inside JACOBI 242]
>    has the following parameter:
>      N{1034} local
>  [inside JACOBI 241]
>    has the following parameter:
>      A{1033} local
>  [inside JACOBI 240]
>    has region
>  JACOBI[239]
>    has the following parameter:
>      A{1031} local
>  [inside INVERT-MATRIX 234]
>    has the following parameter:
>      E{1029} local
>  [inside INVERT-MATRIX 232]
>    has the following parameter:
>      E{1027} local
>  [inside INVERT-MATRIX 229]
>    has the following parameter:
>      J{1024} local
>  [inside INVERT-MATRIX 225]
>    has the following parameter:
>      J{1020} local
>  [inside INVERT-MATRIX 222]
>    has the following parameter:
>      J{1018} local
>  [inside INVERT-MATRIX 221]
>    has the following parameter:
>      D{1017} local
>  [inside INVERT-MATRIX 220]
>    has the following parameter:
>      K{1016} local
>  [inside INVERT-MATRIX 218]
>    has the following parameter:
>      D{1014} local
>  [inside INVERT-MATRIX 216]
>    has the following parameter:
>      I{1012} local
>  [inside INVERT-MATRIX 215]
>    has the following parameter:
>      I{1011} local
>  [inside INVERT-MATRIX 214]
>    has the following parameter:
>      J{1010} local
>  [inside INVERT-MATRIX 213]
>    has the following parameter:
>      I{1009} local
>  [inside INVERT-MATRIX 210]
>    has the following parameter:
>      B{1005} local
>  [inside INVERT-MATRIX 209]
>    has the following parameter:
>      C{1004} local
>  [inside INVERT-MATRIX 208]
>    has the following parameter:
>      N{1003} local
>  [inside DETERMINANT 202]
>    has the following parameter:
>      V{998} local
>  [inside DETERMINANT 197]
>    has the following parameter:
>      X{996} local
>  [inside DETERMINANT 196]
>    has the following parameter:
>      J{995} local
>  [inside DETERMINANT 195]
>    has the following parameter:
>      J{994} local
>  [inside DETERMINANT 194]
>    has the following parameter:
>      K{993} local
>  [inside DETERMINANT 193]
>    has the following parameter:
>      E{992} local
>  [inside DETERMINANT 192]
>    has the following parameter:
>      J{991} local
>  [inside DETERMINANT 190]
>    has the following parameter:
>      C{988} local
>  [inside DETERMINANT 188]
>    has the following parameters:
>      INDEX{983} local
>      GREATEST{984} local
>  [inside DETERMINANT 187]
>    has the following parameter:
>      I{982} local
>  [inside DETERMINANT 186]
>    has the following parameter:
>      J{981} local
>  [inside DETERMINANT 185]
>    has the following parameter:
>      I{980} local
>  [inside DETERMINANT 182]
>    has the following parameter:
>      D{977} local
>  [inside DETERMINANT 181]
>    has the following parameter:
>      B{976} local
>  [inside DETERMINANT 180]
>    has the following parameter:
>      N{975} local
>  [inside K*M 176]
>    has the following parameter:
>      E{971} local
>  [inside K*M 175]
>    has the following parameter:
>      ROW{970} local
>  K*M[174]
>    has the following parameters:
>      K{968} local
>      M{969} local
>  M*[173]
>    has region
>    has the following parameters:
>      A{966} local
>      B{967} local
>  SELF-OUTER-PRODUCT[172]
>    has the following parameter:
>      V{965} local
>  [inside OUTER-PRODUCT 171]
>    has the following parameter:
>      VJ{963} local
>  [inside OUTER-PRODUCT 170]
>    has the following parameter:
>      UI{962} local
>  OUTER-PRODUCT[169]
>    has the following parameters:
>      U{960} local
>      V{961} local
>  [inside TRANSPOSE 168]
>    has the following parameter:
>      J{958} local
>  TRANSPOSE[167]
>    has the following parameter:
>      A{957} local
>  [inside M*V 166]
>    has the following parameter:
>      U{956} local
>  M*V[165]
>    has the following parameters:
>      A{954} local
>      V{955} local
>  M-[164]
>    has the following parameters:
>      A{952} local
>      B{953} local
>  M+[163]
>    has the following parameters:
>      A{950} local
>      B{951} local
>  [inside MATRIX-COLUMN-REF 161]
>    has the following parameter:
>      V{946} local
>  MATRIX-SET![158]
>    has the following parameters:
>      A{938} local
>      I{939} local
>      J{940} local
>      X{941} local
>  MATRIX-REF[157]
>    has the following parameters:
>      A{935} local
>      I{936} local
>      J{937} local
>  MATRIX-COLUMNS[156]
>    has the following parameter:
>      A{934} local
>  MATRIX-ROWS[155]
>    has the following parameter:
>      A{933} local
>  LOOP[146]
>    has the following parameters:
>      L{924} local
>      I{925} local
>  POSITIONV[143]
>    has the following parameters:
>      X{920} local
>      L{921} local
>  LOOP[138]
>    has region
>    has the following parameters:
>      L{918} local
>      C{919} local
>  REMOVE-IF-NOT[135]
>    has the following parameter:
>      L{915} local
>  LOOP[130]
>    has the following parameter:
>      I{912} local
>  [inside MAP-N-VECTOR 126]
>    has the following parameter:
>      V{908} local
>  MAP-N-VECTOR[125]
>    has the following parameter:
>      N{907} local
>  LOOP[123]
>    has region
>    has the following parameters:
>      I{904} local
>      C{905} local
>  MAP-N[120]
>    has the following parameter:
>      N{901} local
>  [inside ADD-EXP 118]
>    has the following parameter:
>      FACTOR{899} local
>  [inside ADD-EXP 117]
>    has the following parameter:
>      E-MIN{898} local
>  [inside ADD-EXP 116]
>    has the following parameter:
>      E-MAX{897} local
>  ADD-EXP[115]
>    has the following parameters:
>      E1{895} local
>      E2{896} local
>  [inside K*V 114]
>    has the following parameter:
>      X{894} local
>  K*V[113]
>    has the following parameters:
>      K{892} local
>      U{893} local
>  DOT[110]
>    has region
>    has the following parameters:
>      U{886} local
>      V{887} local
>  LOOP[108]
>    has the following parameters:
>      N{884} local
>      C{885} local
>  SUM[105]
>    has the following parameter:
>      N{881} local
>  [inside LOOP 103]
>    has the following parameter:
>      v{879} local
>  LOOP[102]
>    has the following parameter:
>      I{878} local
>  EVERY-N[99]
>    has the following parameter:
>      N{875} local
>  LOOP[97]
>    has the following parameters:
>      I{872} local
>      C{873} local
>  [inside REDUCE-VECTOR 91]
>    has the following parameter:
>      N{869} local
>  REDUCE-VECTOR[90]
>    has the following parameters:
>      V{867} local
>      I{868} local
>  LOOP[88]
>    has region
>    has the following parameters:
>      L{864} local
>      C{865} local
>  REDUCE[82]
>    has the following parameters:
>      L{860} local
>      I{861} local
>  [inside MAP-VECTOR-TWO 81]
>    has the following parameter:
>      I{858} local
>  [inside MAP-VECTOR-TWO 79]
>    has the following parameter:
>      U{856} local
>  MAP-VECTOR-TWO[78]
>    has the following parameters:
>      V1{854} local
>      V2{855} local
>  [inside MAP-VECTOR 77]
>    has the following parameter:
>      I{852} local
>  [inside MAP-VECTOR 75]
>    has the following parameter:
>      U{850} local
>  MAP-VECTOR[74]
>    has the following parameter:
>      V{849} local
>  LOOP[69]
>    has the following parameter:
>      I{846} local
>  FOR-EACH-FROM-A-UP-TO-B[66]
>    has the following parameters:
>      A{842} local
>      B{843} local
>  LOOP[61]
>    has the following parameter:
>      I{839} local
>  FOR-EACH-N[58]
>    has the following parameter:
>      N{836} local
>  LOOP[51]
>    has the following parameters:
>      N{833} local
>      R{834} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{830} local
>  loop[46]
>    has the following parameters:
>      ILEN{828} local
>      S{829} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{823} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{822} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{819} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{816} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{814} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{813} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{812} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{807} local
>      C{808} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{801} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{701} global
>      LOG-MATH-PRECISION{702} global
>      *RANDOM-STATE*{705} local
>      RANDOM:MASK{706} local
>      RANDOM:CHUNK-SIZE{707} local
>      RANDOM:SIZE{709} global
>      RANDOM:TAP{710} global
>      LOGICAL:BOOLE-XOR{711} global
>      *MOST-POSITIVE-FIXNUM*{714} local
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2899]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3414]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2900]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3335]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:214:7275, allocates on M*[173]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on [inside CLIP-EIGENVALUES 322]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 3262]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3266]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:214:7275, allocates on [clone M*[173] 2970]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on CLIP-EIGENVALUES[319]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 337]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EMS[357]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:211:7206, allocates on [clone LOOP[123] 3009]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on [inside INITIAL-Z 354]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on [inside E-STEP 325]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:263:8646, allocates on [clone [inside OUTER-PRODUCT 171] 2903]:
>(F UI VJ)
>The following expression, em-functional-stalin.sc:180:6378, allocates on [clone LOOP[97] 2897]:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2840]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:163:5840, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2832]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside CLIP-EIGENVALUES 322]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2824]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:163:5840, allocates on DOT[110]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2820]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 330]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 324]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[1241]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 372]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-functional-stalin.sc:613:19210, allocates on loop[8]:
>(LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI))
>The following expression, em-functional-stalin.sc:588:18343, allocates on EMS[357]:
>(LIST MINUS-INFINITY #F)
>The following expression, em-functional-stalin.sc:547:16971, allocates on EM-CLUSTERER[365]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J)) (INVERT-MATRIX ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J))))
>The following expression, em-functional-stalin.sc:568:17750, allocates on LOOP[360]:
>(LIST OLD-LOG-LIKELIHOOD MODELS)
>The following expression, em-functional-stalin.sc:523:16387, allocates on [inside M-STEP 337]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.0)
>The following expression, em-functional-stalin.sc:535:16651, allocates on EM-CLUSTERER[365]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE /) ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA)))
>The following expression, em-functional-stalin.sc:507:15858, allocates on EM-CLUSTERER[365]:
>(LIST (REDUCE-VECTOR + S 0.0) (MAP-VECTOR (LAMBDA (ZI) (MAP-VECTOR EXP ZI)) (M- Z (TRANSPOSE ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)))))
>The following expression, em-functional-stalin.sc:509:15960, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)
>The following expression, em-functional-stalin.sc:378:11938, allocates on CLIP-EIGENVALUES[319]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:380:11994, allocates on [inside JACOBI 244]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:381:12015, allocates on [inside JACOBI 245]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-functional-stalin.sc:469:14720, allocates on CLIP-EIGENVALUES[319]:
>(LIST D (TRANSPOSE V))
>The following expression, em-functional-stalin.sc:237:7880, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-stalin.sc:234:7789, allocates on LOOP[360]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:225:7554, allocates on LOOP[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-stalin.sc:211:7206, allocates on LOOP[123]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-stalin.sc:180:6378, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-stalin.sc:173:6163, allocates on LOOP[88]:
>(F C (FIRST L))
>The following expression, em-functional-stalin.sc:163:5840, allocates on [inside E-STEP 325]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-stalin.sc:104:4013, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-functional-stalin.sc:87:3190, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-functional-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W26188 is general case for the following reasons:
>  flonum
>W23541 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W8905 is general case for the following reasons:
>  flonum
>W8859 is general case for the following reasons:
>  flonum
>W8857 is general case for the following reasons:
>  flonum
>W8611 is general case for the following reasons:
>  flonum
>W2187 is general case for the following reasons:
>  flonum
>W1421 is general case for the following reasons:
>  flonum
>W1135 is general case for the following reasons:
>  flonum
>W1033 is general case for the following reasons:
>  flonum
>W33 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     2 - 12% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  3% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 -  7% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 -  4% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  3% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     1 -  8% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     1 -  5% - Determining which environments are reentrant
>     0 -  1% - Asserting uniqueness
>     3 - 22% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  2% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 - 10% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  4% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m18.272s
>user	0m17.706s
>sys	0m0.421s
>run em-functional
>
>real	0m0.816s
>user	0m0.709s
>sys	0m0.106s
>compile em-functional-partial-split
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 21816 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   192 non-called native procedure types
>   462 called noop native procedure types
>   751 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    24 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 24961 type sets
>   858 hunoz variables
>  2145 non-hunoz variables
>   660 noop environments
>  2135 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 24143 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   198 non-called native procedure types
>   566 called noop native procedure types
>  1020 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    25 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 27627 type sets
>   963 hunoz variables
>  2499 non-hunoz variables
>   765 noop environments
>  2531 non-noop environments
>4 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 47
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 11869 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   192 non-called native procedure types
>   566 called noop native procedure types
>  1020 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    25 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 14120 type sets
>   659 hunoz variables
>  1570 non-hunoz variables
>     0 noop environments
>  1142 non-noop environments
>4 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 47
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[2127] reentrant
>    has the following parameters:
>      OBJ{2734} local
>      PORT{2735} local
>    has the following in-lined locals:
>      NUMBER{2723}
>      PORT{2724}
>      MANTISSA{2728}
>      EXPONENT{2729}
>      MANTISSA{2732}
>      EXPONENT{2733}
>      OBJ{2750}
>      I{2762}
>  DISPLAY-MANTISSA-EXPONENT2[2089]
>    has the following parameters:
>      MANTISSA{2707} local
>      EXPONENT{2708} local
>      PORT{2709} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2710}
>      DIGIT{2711}
>      MANTISSA{2718}
>      FLOAT-DIGIT{2719}
>      DIGIT{2720}
>      MANTISSA{2722}
>  DISPLAY-EXACT-INTEGER2[2060]
>    has the following parameters:
>      NUMBER{2686} local
>      PORT{2687} local
>    has the following in-lined locals:
>      I{2690}
>      NUMBER{2691}
>      I{2694}
>      I{2700}
>      NUMBER{2701}
>      I{2704}
>  DISPLAY-STRING2[2051]
>    has the following parameters:
>      STRING{2679} local
>      PORT{2680} local
>    has the following in-lined locals:
>      N{2681}
>      I{2684}
>  LOOP[1484] reentrant
>    has the following parameter:
>      K{2282} local
>  LOOP[1419] reentrant
>    has the following parameter:
>      K{2228} local
>  MODULO[1109]
>    has the following parameters:
>      N1{1864} local
>      N2{1865} local
>    has the following in-lined local:
>      v{1866}
>  REVERSE[950]
>    has the following parameter:
>      S{1722} local
>    has the following in-lined locals:
>      LIST{3136}
>      LIST{3139}
>      R{3140}
>  CDR[796]
>    has the following parameter:
>      PAIR{1599} local
>  M-STEP[612]
>    has the following parameters:
>      X{1519} local
>      Z{1520} local
>      CLIP{1521} local
>    has the following in-lined locals:
>      N{934}
>      I{937}
>      V{962}
>      U{963}
>      I{965}
>      V{967}
>      U{968}
>      I{970}
>      V{992}
>      U{993}
>      I{995}
>      V{997}
>      U{998}
>      I{1000}
>      V1{1060}
>      V2{1061}
>      U{1062}
>      I{1064}
>      V1{1072}
>      V2{1073}
>      U{1074}
>      I{1076}
>      V1{1078}
>      V2{1079}
>      U{1080}
>      I{1082}
>      V1{1084}
>      V2{1085}
>      U{1086}
>      I{1088}
>      V{1121}
>      I{1122}
>      N{1123}
>      I{1126}
>      C{1127}
>      V{1129}
>      I{1130}
>      N{1131}
>      I{1134}
>      C{1135}
>      V{1137}
>      I{1138}
>      N{1139}
>      I{1142}
>      C{1143}
>      N{1153}
>      I{1156}
>      v{1157}
>      N{1159}
>      I{1162}
>      v{1163}
>      N{1165}
>      N{1168}
>      C{1169}
>      N{1171}
>      N{1174}
>      C{1175}
>      U{1183}
>      N{1227}
>      V{1228}
>      I{1232}
>      N{1235}
>      V{1236}
>      I{1240}
>      N{1243}
>      V{1244}
>      I{1248}
>      N{1259}
>      V{1260}
>      I{1264}
>      M{1312}
>      N{1313}
>      INITIAL{1314}
>      M{1316}
>      N{1317}
>      INITIAL{1318}
>      M{1320}
>      N{1321}
>      INITIAL{1322}
>      A{1341}
>      B{1342}
>      U{1351}
>      V{1352}
>      UI{1353}
>      VJ{1354}
>      V{1361}
>      A{1362}
>      B{1363}
>      M{1365}
>      A{1427}
>      A{1429}
>      N{1430}
>      D{1431}
>      V{1432}
>      B{1433}
>      Z{1434}
>      IP{1438}
>      I{1443}
>      SM{1445}
>      TRESH{1448}
>      IP{1449}
>      IR{1450}
>      IQ{1451}
>      G{1452}
>      H{1453}
>      T{1454}
>      C{1455}
>      H{1458}
>      J{1466}
>      THETA{1476}
>      IP{1477}
>      IP{1480}
>      IR{1481}
>      IQ{1482}
>      I{1483}
>      P{1484}
>      K{1485}
>      J{1489}
>      P{1490}
>      L{1492}
>      J{1493}
>      ROW{1495}
>      X{1496}
>      I{1497}
>      J{1498}
>      V{1499}
>      M{1500}
>      I{1502}
>      A{1503}
>      V{1504}
>      J{1505}
>      E{1506}
>      II{1522}
>      KK{1523}
>      J{1524}
>      ZJ{1525}
>      ZJ-SUM{1526}
>      MU{1527}
>      SIGMA{1528}
>      ZIJ{1529}
>      XI{1530}
>      X{1859}
>      X{3003}
>      X{3004}
>      X{3005}
>      X{3008}
>      X{3009}
>      X{3010}
>      X{3011}
>      X{3012}
>      X{3013}
>      X{3014}
>      OBJS{3017}
>      PAIR{3022}
>      PAIR{3035}
>      A{3040}
>      I{3041}
>      J{3042}
>      X{3043}
>      A{3044}
>      I{3045}
>      J{3046}
>      X{3047}
>      A{3048}
>      I{3049}
>      J{3050}
>      X{3051}
>      A{3088}
>      I{3089}
>      J{3090}
>      X{3091}
>      A{3092}
>      I{3093}
>      J{3094}
>      X{3095}
>      A{3096}
>      I{3097}
>      J{3098}
>      X{3099}
>      A{3103}
>      A{3104}
>      ZS{3105}
>      ZS{3108}
>      R{3109}
>      ZS{3120}
>      ZS{3123}
>      R{3124}
>      X{3130}
>      XS{3131}
>      R{3135}
>      N{3142}
>      I{3145}
>      N{3292}
>      I{3295}
>      N{3298}
>      I{3301}
>      N{3304}
>      I{3307}
>      N{3310}
>      I{3313}
>      N{3316}
>      I{3319}
>      N{3322}
>      I{3325}
>      N{3328}
>      I{3331}
>      N{3334}
>      I{3337}
>      N{3340}
>      I{3343}
>      N{3346}
>      I{3349}
>      N{3352}
>      I{3355}
>      N{3370}
>      I{3373}
>      N{3376}
>      I{3379}
>      N{3388}
>      I{3391}
>      N{3400}
>      I{3403}
>      U{3418}
>      M{3424}
>      A{3454}
>      B{3455}
>      A{3456}
>      A{3459}
>      A{3460}
>      A{3461}
>  E-STEP[604]
>    has region
>    has the following parameters:
>      X{1507} local
>      MODELS{1508} local
>    has the following in-lined locals:
>      V{957}
>      U{958}
>      I{960}
>      V{1002}
>      U{1003}
>      I{1005}
>      V{1007}
>      U{1008}
>      I{1010}
>      V{1012}
>      U{1013}
>      I{1015}
>      V{1017}
>      U{1018}
>      I{1020}
>      V{1022}
>      U{1023}
>      I{1025}
>      V1{1066}
>      V2{1067}
>      U{1068}
>      I{1070}
>      V{1105}
>      I{1106}
>      N{1107}
>      I{1110}
>      C{1111}
>      V{1113}
>      I{1114}
>      N{1115}
>      I{1118}
>      C{1119}
>      E1{1185}
>      E2{1186}
>      E-MAX{1187}
>      E-MIN{1188}
>      FACTOR{1189}
>      A{1325}
>      A{1343}
>      B{1344}
>      A{1345}
>      V{1346}
>      U{1347}
>      Z{1509}
>      S{1510}
>      ZI{1511}
>      ZI{1512}
>      XI{1513}
>      MODEL{1514}
>      LOG-DETERMINANT-SIGMA{1515}
>      SIGMA-INVERSE{1516}
>      MU{1517}
>      LOG-PI{1518}
>      ZS{1837}
>      ZS{1840}
>      R{1841}
>      Z{1912}
>      OBJS{3016}
>      A{3102}
>      N{3148}
>      I{3151}
>      N{3154}
>      I{3157}
>      N{3160}
>      I{3163}
>      N{3166}
>      I{3169}
>      N{3172}
>      I{3175}
>      N{3178}
>      I{3181}
>      N{3184}
>      I{3187}
>  ROTATE[562]
>    has the following parameters:
>      A{1468} local
>      I{1469} local
>      J{1470} local
>      K{1471} local
>      L{1472} local
>    has the following in-lined locals:
>      A{1329}
>      I{1330}
>      J{1331}
>      X{1332}
>      H{1473}
>      G{1474}
>      A{3036}
>      I{3037}
>      J{3038}
>      X{3039}
>  INVERT-MATRIX[487]
>    has the following parameter:
>      A{1397} local
>    has the following in-lined locals:
>      N{1211}
>      V{1212}
>      I{1216}
>      N{1219}
>      V{1220}
>      I{1224}
>      M{1305}
>      N{1306}
>      M{1308}
>      N{1309}
>      INITIAL{1310}
>      N{1399}
>      C{1400}
>      B{1401}
>      I{1405}
>      J{1406}
>      I{1407}
>      I{1408}
>      D{1410}
>      K{1412}
>      D{1413}
>      J{1414}
>      J{1416}
>      J{1420}
>      E{1423}
>      E{1425}
>      A{3052}
>      I{3053}
>      J{3054}
>      X{3055}
>      A{3056}
>      I{3057}
>      J{3058}
>      X{3059}
>      A{3060}
>      I{3061}
>      J{3062}
>      X{3063}
>      A{3064}
>      I{3065}
>      J{3066}
>      X{3067}
>      A{3068}
>      I{3069}
>      J{3070}
>      X{3071}
>      A{3072}
>      I{3073}
>      J{3074}
>      X{3075}
>      A{3100}
>      N{3208}
>      I{3211}
>      N{3214}
>      I{3217}
>      N{3220}
>      I{3223}
>      N{3226}
>      I{3229}
>      N{3232}
>      I{3235}
>      N{3238}
>      I{3241}
>      N{3244}
>      I{3247}
>      N{3250}
>      I{3253}
>  DETERMINANT[458]
>    has the following parameter:
>      A{1368} local
>    has the following in-lined locals:
>      A{940}
>      B{941}
>      I{944}
>      N{1203}
>      V{1204}
>      I{1208}
>      M{1302}
>      N{1303}
>      N{1371}
>      B{1372}
>      D{1373}
>      I{1376}
>      J{1377}
>      I{1378}
>      INDEX{1379}
>      GREATEST{1380}
>      C{1384}
>      J{1387}
>      E{1388}
>      K{1389}
>      J{1390}
>      J{1391}
>      X{1392}
>      V{1394}
>      X{3006}
>      X{3007}
>      A{3076}
>      I{3077}
>      J{3078}
>      X{3079}
>      A{3080}
>      I{3081}
>      J{3082}
>      X{3083}
>      A{3084}
>      I{3085}
>      J{3086}
>      X{3087}
>      A{3101}
>      N{3256}
>      I{3259}
>      N{3262}
>      I{3265}
>      N{3268}
>      I{3271}
>      A{3428}
>      B{3429}
>      I{3432}
>      A{3435}
>      B{3436}
>      I{3439}
>      A{3442}
>      B{3443}
>      I{3446}
>  OUTER-PRODUCT2[450]
>    has the following parameters:
>      U{1356} local
>      V{1357} local
>    has the following in-lined locals:
>      V{972}
>      U{973}
>      I{975}
>      V{977}
>      U{978}
>      I{980}
>      UI{1358}
>      VJ{1359}
>      N{3280}
>      I{3283}
>      N{3286}
>      I{3289}
>  MATRIX-ROW-SET![440]
>    has the following parameters:
>      A{1338} local
>      I{1339} local
>      V{1340} local
>  MATRIX-COLUMN-REF[438]
>    has the following parameters:
>      A{1335} local
>      J{1336} local
>    has the following in-lined locals:
>      V{952}
>      U{953}
>      I{955}
>      V{1337}
>      N{3406}
>      I{3409}
>  MATRIX-ROW-REF[437]
>    has the following parameters:
>      A{1333} local
>      I{1334} local
>  MATRIX-REF[435]
>    has the following parameters:
>      A{1326} local
>      I{1327} local
>      J{1328} local
>  MATRIX-ROWS[433]
>    has the following parameter:
>      A{1324} local
>  MAP-N-VECTOR7[355]
>    has the following parameters:
>      F{1250} local
>      N{1251} local
>    has the following in-lined locals:
>      V{1252}
>      I{1256}
>      J{1349}
>      J{3449}
>      J{3451}
>      J{3453}
>      J{3458}
>  V-[277]
>    has the following parameters:
>      U{1180} local
>      V{1181} local
>    has the following in-lined locals:
>      V1{1054}
>      V2{1055}
>      U{1056}
>      I{1058}
>      Z{1847}
>      ZS{1848}
>      R{1852}
>      N{3382}
>      I{3385}
>  V+[276]
>    has the following parameters:
>      U{1178} local
>      V{1179} local
>    has the following in-lined locals:
>      V1{1048}
>      V2{1049}
>      U{1050}
>      I{1052}
>      ZS{3115}
>      ZS{3118}
>      R{3119}
>      N{3394}
>      I{3397}
>  DOT[275]
>    has region
>    has the following parameters:
>      U{1176} local
>      V{1177} local
>    has the following in-lined locals:
>      V1{1042}
>      V2{1043}
>      U{1044}
>      I{1046}
>      V{1097}
>      I{1098}
>      N{1099}
>      I{1102}
>      C{1103}
>      ZS{1842}
>      ZS{1845}
>      R{1846}
>      ZS{3110}
>      ZS{3113}
>      R{3114}
>      N{3274}
>      I{3277}
>  MAP-VECTOR9[106]
>    has the following parameters:
>      F{986} local
>      V{987} local
>    has the following in-lined locals:
>      U{988}
>      I{990}
>      E{1367}
>      N{3358}
>      I{3361}
>      E{3426}
>  MAP-VECTOR8[102]
>    has the following parameters:
>      F{981} local
>      V{982} local
>    has the following in-lined locals:
>      U{983}
>      I{985}
>      ROW{1366}
>      N{3364}
>      I{3367}
>      ROW{3425}
>  MAP-VECTOR1[74]
>    has the following parameters:
>      F{946} local
>      V{947} local
>    has the following in-lined locals:
>      U{948}
>      I{950}
>      X{1184}
>      N{3412}
>      I{3415}
>      X{3419}
>      X{3422}
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{919} local
>    has the following in-lined locals:
>      P{920}
>      ANS{921}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{909} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{907} local
>      N2{908} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{902} local
>    has the following in-lined locals:
>      S{905}
>      C{906}
>      CHAR{2020}
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{754}
>      RANDOM:MASK{755}
>      RANDOM:CHUNK-SIZE{756}
>      *MOST-POSITIVE-FIXNUM*{763}
>      I{899}
>      L{910}
>      TRIAL{911}
>      RANDOM-STRINGS{912}
>      NIBBLES{914}
>      I{917}
>      ILEN{926}
>      S{927}
>      SLOP{928}
>      N{931}
>      R{932}
>      V{1027}
>      U{1028}
>      I{1030}
>      V{1032}
>      U{1033}
>      I{1035}
>      V{1037}
>      U{1038}
>      I{1040}
>      L{1090}
>      I{1091}
>      L{1094}
>      C{1095}
>      V{1145}
>      I{1146}
>      N{1147}
>      I{1150}
>      C{1151}
>      N{1191}
>      I{1194}
>      C{1195}
>      N{1197}
>      I{1200}
>      C{1201}
>      N{1267}
>      V{1268}
>      I{1272}
>      N{1275}
>      V{1276}
>      I{1280}
>      N{1283}
>      V{1284}
>      I{1288}
>      L{1291}
>      L{1294}
>      C{1295}
>      X{1296}
>      L{1297}
>      L{1300}
>      I{1301}
>      X{1531}
>      PI{1532}
>      MU{1533}
>      SIGMA{1534}
>      CLIP{1535}
>      EM-KICK-OFF-TOLERANCE{1536}
>      EM-CONVERGENCE-TOLERANCE{1537}
>      JJ{1538}
>      MODELS{1541}
>      OLD-LOG-LIKELIHOOD{1542}
>      STARTING?{1543}
>      LOG-LIKELIHOOD-Z{1544}
>      v{1545}
>      v{1546}
>      J{1547}
>      EPSILON{1548}
>      II{1549}
>      JJ{1550}
>      ZI{1552}
>      X{1554}
>      CLIP{1555}
>      EM-KICK-OFF-TOLERANCE{1556}
>      EM-CONVERGENCE-TOLERANCE{1557}
>      EMS-CONVERGENCE-TOLERANCE{1558}
>      JJ{1561}
>      OLD-LOG-LIKELIHOOD-MODELS{1562}
>      MODELS{1563}
>      NEW-LOG-LIKELIHOOD-MODELS{1564}
>      X{1565}
>      CLIP{1566}
>      EM-KICK-OFF-TOLERANCE{1567}
>      EM-CONVERGENCE-TOLERANCE{1568}
>      EMS-CONVERGENCE-TOLERANCE{1569}
>      Z{1570}
>      CLUSTERS{1571}
>      J{1572}
>      CLUSTER{1573}
>      CLUSTER{1574}
>      I{1575}
>      ZI{1576}
>      OBJ1{1579}
>      OBJ2{1580}
>      v{1581}
>      v{1582}
>      PAIR{1598}
>      PAIR{1605}
>      OBJS{1642}
>      LIST{1717}
>      LIST{1720}
>      R{1721}
>      X{1825}
>      XS{1826}
>      R{1830}
>      STRING{2197}
>      START{2198}
>      END{2199}
>      R{2200}
>      K{2204}
>      LIST1{2350}
>      LIST1{2354}
>      C{2355}
>      OBJ{2988}
>      OBJS{3015}
>      OBJS{3018}
>      PAIR{3019}
>      PAIR{3020}
>      PAIR{3021}
>      PAIR{3023}
>      PAIR{3024}
>      PAIR{3025}
>      PAIR{3026}
>      PAIR{3027}
>      PAIR{3028}
>      PAIR{3029}
>      PAIR{3030}
>      PAIR{3031}
>      PAIR{3032}
>      PAIR{3033}
>      PAIR{3034}
>      ZS{3125}
>      ZS{3128}
>      R{3129}
>      N{3190}
>      I{3193}
>      N{3196}
>      I{3199}
>      N{3202}
>      I{3205}
>      U{3421}
>The following non-trivial in-line native procedures will be generated:
>  [clone MATRIX-COLUMNS[434] 3295]
>    has the following parameter:
>      A{3461} local
>  [clone MATRIX-COLUMNS[434] 3294]
>    has the following parameter:
>      A{3460} local
>  [clone MATRIX-COLUMNS[434] 3293]
>    has the following parameter:
>      A{3459} local
>  [clone [inside TRANSPOSE 446] 3292]
>    has the following parameter:
>      J{3458} local
>  [clone TRANSPOSE[445] 3291]
>    has the following parameter:
>      A{3457} global
>  [clone MATRIX-COLUMNS[434] 3290]
>    has the following parameter:
>      A{3456} local
>  [clone M*[454] 3289]
>    has the following parameters:
>      A{3454} local
>      B{3455} local
>  [clone [inside TRANSPOSE 446] 3288]
>    has the following parameter:
>      J{3453} local
>  [clone TRANSPOSE[445] 3287]
>    has the following parameter:
>      A{3452} global
>  [clone [inside TRANSPOSE 446] 3286]
>    has the following parameter:
>      J{3451} local
>  [clone TRANSPOSE[445] 3285]
>    has the following parameter:
>      A{3450} global
>  [clone [inside TRANSPOSE 446] 3284]
>    has the following parameter:
>      J{3449} local
>  [clone TRANSPOSE[445] 3283]
>    has the following parameter:
>      A{3448} global
>  [clone LOOP[69] 3278]
>    has the following parameter:
>      I{3446} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 3275]
>    has the following parameters:
>      A{3442} local
>      B{3443} local
>  [clone LOOP[69] 3270]
>    has the following parameter:
>      I{3439} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 3267]
>    has the following parameters:
>      A{3435} local
>      B{3436} local
>  [clone LOOP[69] 3262]
>    has the following parameter:
>      I{3432} local
>  [clone FOR-EACH-FROM-A-UP-TO-B[66] 3259]
>    has the following parameters:
>      A{3428} local
>      B{3429} local
>  [clone [inside K*M 457] 3258]
>    has the following parameter:
>      E{3426} local
>  [clone [inside K*M 456] 3257]
>    has the following parameter:
>      ROW{3425} local
>  [clone K*M[455] 3256]
>    has the following parameters:
>      K{3423} global
>      M{3424} local
>  [clone [inside K*V 279] 3255]
>    has the following parameter:
>      X{3422} local
>  [clone K*V[278] 3254]
>    has the following parameters:
>      K{3420} global
>      U{3421} local
>  [clone [inside K*V 279] 3253]
>    has the following parameter:
>      X{3419} local
>  [clone K*V[278] 3252]
>    has the following parameters:
>      K{3417} global
>      U{3418} local
>  [clone LOOP[61] 3247]
>    has the following parameter:
>      I{3415} local
>  [clone FOR-EACH-N[58] 3244]
>    has the following parameter:
>      N{3412} local
>  [clone LOOP[61] 3239]
>    has the following parameter:
>      I{3409} local
>  [clone FOR-EACH-N[58] 3236]
>    has the following parameter:
>      N{3406} local
>  [clone LOOP[61] 3231]
>    has the following parameter:
>      I{3403} local
>  [clone FOR-EACH-N[58] 3228]
>    has the following parameter:
>      N{3400} local
>  [clone LOOP[61] 3223]
>    has the following parameter:
>      I{3397} local
>  [clone FOR-EACH-N[58] 3220]
>    has the following parameter:
>      N{3394} local
>  [clone LOOP[61] 3215]
>    has the following parameter:
>      I{3391} local
>  [clone FOR-EACH-N[58] 3212]
>    has the following parameter:
>      N{3388} local
>  [clone LOOP[61] 3207]
>    has the following parameter:
>      I{3385} local
>  [clone FOR-EACH-N[58] 3204]
>    has the following parameter:
>      N{3382} local
>  [clone LOOP[61] 3199]
>    has the following parameter:
>      I{3379} local
>  [clone FOR-EACH-N[58] 3196]
>    has the following parameter:
>      N{3376} local
>  [clone LOOP[61] 3191]
>    has the following parameter:
>      I{3373} local
>  [clone FOR-EACH-N[58] 3188]
>    has the following parameter:
>      N{3370} local
>  [clone LOOP[61] 3183]
>    has the following parameter:
>      I{3367} local
>  [clone FOR-EACH-N[58] 3180]
>    has the following parameter:
>      N{3364} local
>  [clone LOOP[61] 3175]
>    has the following parameter:
>      I{3361} local
>  [clone FOR-EACH-N[58] 3172]
>    has the following parameter:
>      N{3358} local
>  [clone LOOP[61] 3167]
>    has the following parameter:
>      I{3355} local
>  [clone FOR-EACH-N[58] 3164]
>    has the following parameter:
>      N{3352} local
>  [clone LOOP[61] 3159]
>    has the following parameter:
>      I{3349} local
>  [clone FOR-EACH-N[58] 3156]
>    has the following parameter:
>      N{3346} local
>  [clone LOOP[61] 3151]
>    has the following parameter:
>      I{3343} local
>  [clone FOR-EACH-N[58] 3148]
>    has the following parameter:
>      N{3340} local
>  [clone LOOP[61] 3143]
>    has the following parameter:
>      I{3337} local
>  [clone FOR-EACH-N[58] 3140]
>    has the following parameter:
>      N{3334} local
>  [clone LOOP[61] 3135]
>    has the following parameter:
>      I{3331} local
>  [clone FOR-EACH-N[58] 3132]
>    has the following parameter:
>      N{3328} local
>  [clone LOOP[61] 3127]
>    has the following parameter:
>      I{3325} local
>  [clone FOR-EACH-N[58] 3124]
>    has the following parameter:
>      N{3322} local
>  [clone LOOP[61] 3119]
>    has the following parameter:
>      I{3319} local
>  [clone FOR-EACH-N[58] 3116]
>    has the following parameter:
>      N{3316} local
>  [clone LOOP[61] 3111]
>    has the following parameter:
>      I{3313} local
>  [clone FOR-EACH-N[58] 3108]
>    has the following parameter:
>      N{3310} local
>  [clone LOOP[61] 3103]
>    has the following parameter:
>      I{3307} local
>  [clone FOR-EACH-N[58] 3100]
>    has the following parameter:
>      N{3304} local
>  [clone LOOP[61] 3095]
>    has the following parameter:
>      I{3301} local
>  [clone FOR-EACH-N[58] 3092]
>    has the following parameter:
>      N{3298} local
>  [clone LOOP[61] 3087]
>    has the following parameter:
>      I{3295} local
>  [clone FOR-EACH-N[58] 3084]
>    has the following parameter:
>      N{3292} local
>  [clone LOOP[61] 3079]
>    has the following parameter:
>      I{3289} local
>  [clone FOR-EACH-N[58] 3076]
>    has the following parameter:
>      N{3286} local
>  [clone LOOP[61] 3071]
>    has the following parameter:
>      I{3283} local
>  [clone FOR-EACH-N[58] 3068]
>    has the following parameter:
>      N{3280} local
>  [clone LOOP[61] 3063]
>    has the following parameter:
>      I{3277} local
>  [clone FOR-EACH-N[58] 3060]
>    has the following parameter:
>      N{3274} local
>  [clone LOOP[61] 3055]
>    has the following parameter:
>      I{3271} local
>  [clone FOR-EACH-N[58] 3052]
>    has the following parameter:
>      N{3268} local
>  [clone LOOP[61] 3047]
>    has the following parameter:
>      I{3265} local
>  [clone FOR-EACH-N[58] 3044]
>    has the following parameter:
>      N{3262} local
>  [clone LOOP[61] 3039]
>    has the following parameter:
>      I{3259} local
>  [clone FOR-EACH-N[58] 3036]
>    has the following parameter:
>      N{3256} local
>  [clone LOOP[61] 3031]
>    has the following parameter:
>      I{3253} local
>  [clone FOR-EACH-N[58] 3028]
>    has the following parameter:
>      N{3250} local
>  [clone LOOP[61] 3023]
>    has the following parameter:
>      I{3247} local
>  [clone FOR-EACH-N[58] 3020]
>    has the following parameter:
>      N{3244} local
>  [clone LOOP[61] 3015]
>    has the following parameter:
>      I{3241} local
>  [clone FOR-EACH-N[58] 3012]
>    has the following parameter:
>      N{3238} local
>  [clone LOOP[61] 3007]
>    has the following parameter:
>      I{3235} local
>  [clone FOR-EACH-N[58] 3004]
>    has the following parameter:
>      N{3232} local
>  [clone LOOP[61] 2999]
>    has the following parameter:
>      I{3229} local
>  [clone FOR-EACH-N[58] 2996]
>    has the following parameter:
>      N{3226} local
>  [clone LOOP[61] 2991]
>    has the following parameter:
>      I{3223} local
>  [clone FOR-EACH-N[58] 2988]
>    has the following parameter:
>      N{3220} local
>  [clone LOOP[61] 2983]
>    has the following parameter:
>      I{3217} local
>  [clone FOR-EACH-N[58] 2980]
>    has the following parameter:
>      N{3214} local
>  [clone LOOP[61] 2975]
>    has the following parameter:
>      I{3211} local
>  [clone FOR-EACH-N[58] 2972]
>    has the following parameter:
>      N{3208} local
>  [clone LOOP[61] 2967]
>    has the following parameter:
>      I{3205} local
>  [clone FOR-EACH-N[58] 2964]
>    has the following parameter:
>      N{3202} local
>  [clone LOOP[61] 2959]
>    has the following parameter:
>      I{3199} local
>  [clone FOR-EACH-N[58] 2956]
>    has the following parameter:
>      N{3196} local
>  [clone LOOP[61] 2951]
>    has the following parameter:
>      I{3193} local
>  [clone FOR-EACH-N[58] 2948]
>    has the following parameter:
>      N{3190} local
>  [clone LOOP[61] 2943]
>    has the following parameter:
>      I{3187} local
>  [clone FOR-EACH-N[58] 2940]
>    has the following parameter:
>      N{3184} local
>  [clone LOOP[61] 2935]
>    has the following parameter:
>      I{3181} local
>  [clone FOR-EACH-N[58] 2932]
>    has the following parameter:
>      N{3178} local
>  [clone LOOP[61] 2927]
>    has the following parameter:
>      I{3175} local
>  [clone FOR-EACH-N[58] 2924]
>    has the following parameter:
>      N{3172} local
>  [clone LOOP[61] 2919]
>    has the following parameter:
>      I{3169} local
>  [clone FOR-EACH-N[58] 2916]
>    has the following parameter:
>      N{3166} local
>  [clone LOOP[61] 2911]
>    has the following parameter:
>      I{3163} local
>  [clone FOR-EACH-N[58] 2908]
>    has the following parameter:
>      N{3160} local
>  [clone LOOP[61] 2903]
>    has the following parameter:
>      I{3157} local
>  [clone FOR-EACH-N[58] 2900]
>    has the following parameter:
>      N{3154} local
>  [clone LOOP[61] 2895]
>    has the following parameter:
>      I{3151} local
>  [clone FOR-EACH-N[58] 2892]
>    has the following parameter:
>      N{3148} local
>  [clone LOOP[61] 2887]
>    has the following parameter:
>      I{3145} local
>  [clone FOR-EACH-N[58] 2884]
>    has the following parameter:
>      N{3142} local
>  [clone LOOP[948] 2882]
>    has the following parameters:
>      LIST{3139} local
>      R{3140} local
>  [clone LIST-REVERSE[945] 2879]
>    has the following parameter:
>      LIST{3136} local
>  [clone LOOP[1079] 2877]
>    has the following parameter:
>      R{3135} local
>  [clone MAX[1076] 2874]
>    has the following parameters:
>      X{3130} local
>      XS{3131} local
>  [clone LOOP[1089] 2872]
>    has the following parameters:
>      ZS{3128} local
>      R{3129} local
>  [clone +[1086] 2869]
>    has the following parameter:
>      ZS{3125} local
>  [clone LOOP[1089] 2867]
>    has the following parameters:
>      ZS{3123} local
>      R{3124} local
>  [clone +[1086] 2864]
>    has the following parameter:
>      ZS{3120} local
>  [clone LOOP[1089] 2862]
>    has the following parameters:
>      ZS{3118} local
>      R{3119} local
>  [clone +[1086] 2859]
>    has the following parameter:
>      ZS{3115} local
>  [clone LOOP[1089] 2857]
>    has the following parameters:
>      ZS{3113} local
>      R{3114} local
>  [clone +[1086] 2854]
>    has the following parameter:
>      ZS{3110} local
>  [clone LOOP[1094] 2852]
>    has the following parameters:
>      ZS{3108} local
>      R{3109} local
>  [clone *[1091] 2849]
>    has the following parameter:
>      ZS{3105} local
>  [clone MATRIX-COLUMNS[434] 2848]
>    has the following parameter:
>      A{3104} local
>  [clone MATRIX-COLUMNS[434] 2847]
>    has the following parameter:
>      A{3103} local
>  [clone MATRIX-COLUMNS[434] 2846]
>    has the following parameter:
>      A{3102} local
>  [clone MATRIX-COLUMNS[434] 2845]
>    has the following parameter:
>      A{3101} local
>  [clone MATRIX-COLUMNS[434] 2844]
>    has the following parameter:
>      A{3100} local
>  [clone MATRIX-SET![436] 2843]
>    has the following parameters:
>      A{3096} local
>      I{3097} local
>      J{3098} local
>      X{3099} local
>  [clone MATRIX-SET![436] 2842]
>    has the following parameters:
>      A{3092} local
>      I{3093} local
>      J{3094} local
>      X{3095} local
>  [clone MATRIX-SET![436] 2841]
>    has the following parameters:
>      A{3088} local
>      I{3089} local
>      J{3090} local
>      X{3091} local
>  [clone MATRIX-SET![436] 2840]
>    has the following parameters:
>      A{3084} local
>      I{3085} local
>      J{3086} local
>      X{3087} local
>  [clone MATRIX-SET![436] 2839]
>    has the following parameters:
>      A{3080} local
>      I{3081} local
>      J{3082} local
>      X{3083} local
>  [clone MATRIX-SET![436] 2838]
>    has the following parameters:
>      A{3076} local
>      I{3077} local
>      J{3078} local
>      X{3079} local
>  [clone MATRIX-SET![436] 2837]
>    has the following parameters:
>      A{3072} local
>      I{3073} local
>      J{3074} local
>      X{3075} local
>  [clone MATRIX-SET![436] 2836]
>    has the following parameters:
>      A{3068} local
>      I{3069} local
>      J{3070} local
>      X{3071} local
>  [clone MATRIX-SET![436] 2835]
>    has the following parameters:
>      A{3064} local
>      I{3065} local
>      J{3066} local
>      X{3067} local
>  [clone MATRIX-SET![436] 2834]
>    has the following parameters:
>      A{3060} local
>      I{3061} local
>      J{3062} local
>      X{3063} local
>  [clone MATRIX-SET![436] 2833]
>    has the following parameters:
>      A{3056} local
>      I{3057} local
>      J{3058} local
>      X{3059} local
>  [clone MATRIX-SET![436] 2832]
>    has the following parameters:
>      A{3052} local
>      I{3053} local
>      J{3054} local
>      X{3055} local
>  [clone MATRIX-SET![436] 2831]
>    has the following parameters:
>      A{3048} local
>      I{3049} local
>      J{3050} local
>      X{3051} local
>  [clone MATRIX-SET![436] 2830]
>    has the following parameters:
>      A{3044} local
>      I{3045} local
>      J{3046} local
>      X{3047} local
>  [clone MATRIX-SET![436] 2829]
>    has the following parameters:
>      A{3040} local
>      I{3041} local
>      J{3042} local
>      X{3043} local
>  [clone MATRIX-SET![436] 2828]
>    has the following parameters:
>      A{3036} local
>      I{3037} local
>      J{3038} local
>      X{3039} local
>  [clone CAR[795] 2827]
>    has the following parameter:
>      PAIR{3035} local
>  [clone CAR[795] 2826]
>    has the following parameter:
>      PAIR{3034} local
>  [clone CAR[795] 2825]
>    has the following parameter:
>      PAIR{3033} local
>  [clone CAR[795] 2824]
>    has the following parameter:
>      PAIR{3032} local
>  [clone CAR[795] 2823]
>    has the following parameter:
>      PAIR{3031} local
>  [clone CAR[795] 2822]
>    has the following parameter:
>      PAIR{3030} local
>  [clone CAR[795] 2821]
>    has the following parameter:
>      PAIR{3029} local
>  [clone CAR[795] 2820]
>    has the following parameter:
>      PAIR{3028} local
>  [clone CAR[795] 2819]
>    has the following parameter:
>      PAIR{3027} local
>  [clone CAR[795] 2818]
>    has the following parameter:
>      PAIR{3026} local
>  [clone CAR[795] 2817]
>    has the following parameter:
>      PAIR{3025} local
>  [clone CAR[795] 2816]
>    has the following parameter:
>      PAIR{3024} local
>  [clone CAR[795] 2815]
>    has the following parameter:
>      PAIR{3023} local
>  [clone CADR[800] 2814]
>    has the following parameter:
>      PAIR{3022} local
>  [clone CADR[800] 2813]
>    has the following parameter:
>      PAIR{3021} local
>  [clone CADR[800] 2812]
>    has the following parameter:
>      PAIR{3020} local
>  [clone CADR[800] 2811]
>    has the following parameter:
>      PAIR{3019} local
>  [clone LIST[837] 2810]
>    has the following parameter:
>      OBJS{3018} local
>  [clone LIST[837] 2809]
>    has the following parameter:
>      OBJS{3017} local
>  [clone LIST[837] 2808]
>    has the following parameter:
>      OBJS{3016} local
>  [clone LIST[837] 2807]
>    has the following parameter:
>      OBJS{3015} local
>  [clone ABS[1106] 2806]
>    has the following parameter:
>      X{3014} local
>  [clone ABS[1106] 2805]
>    has the following parameter:
>      X{3013} local
>  [clone ABS[1106] 2804]
>    has the following parameter:
>      X{3012} local
>  [clone ABS[1106] 2803]
>    has the following parameter:
>      X{3011} local
>  [clone ABS[1106] 2802]
>    has the following parameter:
>      X{3010} local
>  [clone ABS[1106] 2801]
>    has the following parameter:
>      X{3009} local
>  [clone ABS[1106] 2800]
>    has the following parameter:
>      X{3008} local
>  [clone ABS[1106] 2799]
>    has the following parameter:
>      X{3007} local
>  [clone ABS[1106] 2798]
>    has the following parameter:
>      X{3006} local
>  [clone ABS[1106] 2797]
>    has the following parameter:
>      X{3005} local
>  [clone ABS[1106] 2796]
>    has the following parameter:
>      X{3004} local
>  [clone ABS[1106] 2795]
>    has the following parameter:
>      X{3003} local
>  WRITE[2544]
>    has the following parameter:
>      OBJ{2988} local
>  [inside LOOP 2175] reentrant
>  [inside LOOP 2174] reentrant
>  LOOP[2173] reentrant
>    has the following parameter:
>      I{2762} local
>  [inside WRITE2 2170] reentrant
>  [inside WRITE2 2169] reentrant
>  [inside WRITE2 2167] reentrant
>  [inside LOOP 2164] reentrant
>  [inside LOOP 2163] reentrant
>  [inside LOOP 2162] reentrant
>  [inside LOOP 2160] reentrant
>  LOOP[2159] reentrant
>    has the following parameter:
>      OBJ{2750} local
>  [inside WRITE2 2156] reentrant
>  [inside WRITE2 2155] reentrant
>  LOOP[2124]
>    has the following parameters:
>      MANTISSA{2732} local
>      EXPONENT{2733} local
>  LOOP[2119]
>    has the following parameters:
>      MANTISSA{2728} local
>      EXPONENT{2729} local
>  DISPLAY-INEXACT-REAL2[2110]
>    has the following parameters:
>      NUMBER{2723} local
>      PORT{2724} local
>  [inside LOOP 2107]
>    has the following parameter:
>      MANTISSA{2722} local
>  [inside LOOP 2104]
>    has the following parameter:
>      DIGIT{2720} local
>  [inside LOOP 2103]
>    has the following parameter:
>      FLOAT-DIGIT{2719} local
>  LOOP[2102]
>    has the following parameter:
>      MANTISSA{2718} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2091]
>    has the following parameter:
>      DIGIT{2711} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2090]
>    has the following parameter:
>      FLOAT-DIGIT{2710} local
>  LOOP[2081]
>    has the following parameter:
>      I{2704} local
>  LOOP[2078]
>    has the following parameters:
>      I{2700} local
>      NUMBER{2701} local
>  LOOP[2067]
>    has the following parameter:
>      I{2694} local
>  LOOP[2064]
>    has the following parameters:
>      I{2690} local
>      NUMBER{2691} local
>  LOOP[2055]
>    has the following parameter:
>      I{2684} local
>  [inside DISPLAY-STRING2 2052]
>    has the following parameter:
>      N{2681} local
>  [inside top level 2047]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2640} global
>      BUFFER{2642} global
>  LOOP[1571]
>    has region
>    has the following parameters:
>      LIST1{2354} local
>      C{2355} local
>  MAP[1567]
>    has the following parameter:
>      LIST1{2350} local
>  VECTOR->LIST[1481]
>    has the following parameter:
>      VECTOR{2279} global
>  [inside STRING->LIST 1416]
>    has the following parameter:
>      N{2225} global
>  STRING->LIST[1415]
>    has the following parameter:
>      STRING{2224} global
>  LOOP[1387]
>    has the following parameter:
>      K{2204} local
>  [inside SUBSTRING 1383]
>    has the following parameter:
>      R{2200} local
>  SUBSTRING[1382]
>    has the following parameters:
>      STRING{2197} local
>      START{2198} local
>      END{2199} local
>  [inside top level 1241]
>    has the following parameter:
>      CHAR{2020} local
>  [inside top level 1240]
>    has the following parameter:
>      CHAR-NUMERIC?{2019} global
>  EXP[1160]
>    has the following parameter:
>      Z{1912} local
>  [inside MODULO 1110]
>    has the following parameter:
>      v{1866} local
>  ABS[1106]
>    has the following parameter:
>      X{1859} local
>  LOOP[1099]
>    has the following parameter:
>      R{1852} local
>  -[1096]
>    has the following parameters:
>      Z{1847} local
>      ZS{1848} local
>  LOOP[1094]
>    has the following parameters:
>      ZS{1845} local
>      R{1846} local
>  *[1091]
>    has the following parameter:
>      ZS{1842} local
>  LOOP[1089]
>    has the following parameters:
>      ZS{1840} local
>      R{1841} local
>  +[1086]
>    has the following parameter:
>      ZS{1837} local
>  LOOP[1079]
>    has the following parameter:
>      R{1830} local
>  MAX[1076]
>    has the following parameters:
>      X{1825} local
>      XS{1826} local
>  LOOP[948]
>    has the following parameters:
>      LIST{1720} local
>      R{1721} local
>  LIST-REVERSE[945]
>    has the following parameter:
>      LIST{1717} local
>  LIST[837]
>    has the following parameter:
>      OBJS{1642} local
>  CADR[800]
>    has the following parameter:
>      PAIR{1605} local
>  CAR[795]
>    has the following parameter:
>      PAIR{1598} local
>  [inside EQV? 781]
>    has the following parameter:
>      v{1582} local
>  [inside EQV? 780]
>    has the following parameter:
>      v{1581} local
>  EQV?[779]
>    has the following parameters:
>      OBJ1{1579} local
>      OBJ2{1580} local
>  [inside EM-CLUSTERER 654]
>    has the following parameter:
>      ZI{1576} local
>  [inside EM-CLUSTERER 653]
>    has region
>    has the following parameter:
>      I{1575} local
>  [inside EM-CLUSTERER 652]
>    has the following parameter:
>      CLUSTER{1574} local
>  [inside EM-CLUSTERER 651]
>    has the following parameter:
>      CLUSTER{1573} local
>  [inside EM-CLUSTERER 650]
>    has the following parameter:
>      J{1572} local
>  [inside EM-CLUSTERER 648]
>    has the following parameter:
>      CLUSTERS{1571} local
>  [inside EM-CLUSTERER 647]
>    has the following parameter:
>      Z{1570} local
>  EM-CLUSTERER[646]
>    has region
>    has the following parameters:
>      X{1565} local
>      CLIP{1566} local
>      EM-KICK-OFF-TOLERANCE{1567} local
>      EM-CONVERGENCE-TOLERANCE{1568} local
>      EMS-CONVERGENCE-TOLERANCE{1569} local
>  [inside LOOP 643]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD-MODELS{1564} local
>  [inside LOOP 642]
>    has the following parameter:
>      MODELS{1563} local
>  LOOP[641]
>    has region
>    has the following parameters:
>      JJ{1561} local
>      OLD-LOG-LIKELIHOOD-MODELS{1562} local
>  EMS[638]
>    has region
>    has the following parameters:
>      X{1554} local
>      CLIP{1555} local
>      EM-KICK-OFF-TOLERANCE{1556} local
>      EM-CONVERGENCE-TOLERANCE{1557} local
>      EMS-CONVERGENCE-TOLERANCE{1558} local
>  [inside INITIAL-Z 636]
>    has the following parameter:
>      ZI{1552} local
>  [inside INITIAL-Z 635]
>    has region
>  INITIAL-Z[634]
>    has the following parameters:
>      II{1549} local
>      JJ{1550} local
>  NOISE[633]
>    has the following parameter:
>      EPSILON{1548} local
>  [inside EM 632]
>    has the following parameter:
>      J{1547} local
>  [inside LOOP 630]
>    has the following parameter:
>      v{1546} local
>  [inside LOOP 629]
>    has the following parameter:
>      v{1545} local
>  [inside LOOP 628]
>    has the following parameter:
>      LOG-LIKELIHOOD-Z{1544} local
>  LOOP[627]
>    has the following parameters:
>      MODELS{1541} local
>      OLD-LOG-LIKELIHOOD{1542} local
>      STARTING?{1543} local
>  [inside EM 624]
>    has the following parameter:
>      JJ{1538} local
>  EM[623]
>    has the following parameters:
>      X{1531} local
>      PI{1532} local
>      MU{1533} local
>      SIGMA{1534} local
>      CLIP{1535} local
>      EM-KICK-OFF-TOLERANCE{1536} local
>      EM-CONVERGENCE-TOLERANCE{1537} local
>  [inside M-STEP 622]
>    has region
>    has the following parameters:
>      ZIJ{1529} local
>      XI{1530} local
>  [inside M-STEP 620]
>    has the following parameter:
>      SIGMA{1528} local
>  [inside M-STEP 619]
>    has region
>    has the following parameter:
>      MU{1527} local
>  [inside M-STEP 618]
>    has region
>    has the following parameter:
>      ZJ-SUM{1526} local
>  [inside M-STEP 617]
>    has the following parameter:
>      ZJ{1525} local
>  [inside M-STEP 616]
>    has the following parameter:
>      J{1524} local
>  [inside M-STEP 614]
>    has the following parameter:
>      KK{1523} local
>  [inside M-STEP 613]
>    has the following parameter:
>      II{1522} local
>  [inside E-STEP 611]
>    has region
>    has the following parameters:
>      LOG-DETERMINANT-SIGMA{1515} local
>      SIGMA-INVERSE{1516} local
>      MU{1517} local
>      LOG-PI{1518} local
>  [inside E-STEP 610]
>    has the following parameter:
>      MODEL{1514} local
>  [inside E-STEP 609]
>    has the following parameter:
>      XI{1513} local
>  [inside E-STEP 608]
>    has the following parameter:
>      ZI{1512} local
>  [inside E-STEP 607]
>    has the following parameter:
>      ZI{1511} local
>  [inside E-STEP 606]
>    has region
>    has the following parameter:
>      S{1510} local
>  [inside E-STEP 605]
>    has region
>    has the following parameter:
>      Z{1509} local
>  [inside CLIP-EIGENVALUES 603]
>    has region
>  [inside CLIP-EIGENVALUES 602]
>    has the following parameter:
>      E{1506} local
>  [inside CLIP-EIGENVALUES 601]
>    has the following parameter:
>      J{1505} local
>  CLIP-EIGENVALUES[600]
>    has region
>    has the following parameters:
>      A{1503} local
>      V{1504} local
>  [inside VECTOR->DIAGONAL-MATRIX 599]
>    has the following parameter:
>      I{1502} local
>  [inside VECTOR->DIAGONAL-MATRIX 597]
>    has the following parameter:
>      M{1500} local
>  VECTOR->DIAGONAL-MATRIX[596]
>    has the following parameter:
>      V{1499} local
>  [inside JACOBI 594]
>    has the following parameter:
>      J{1498} local
>  [inside JACOBI 593]
>    has the following parameter:
>      I{1497} local
>  [inside JACOBI 592]
>    has the following parameter:
>      X{1496} local
>  [inside JACOBI 591]
>    has the following parameter:
>      ROW{1495} local
>  [inside JACOBI 586]
>    has the following parameter:
>      J{1493} local
>  [inside JACOBI 585]
>    has the following parameter:
>      L{1492} local
>  [inside JACOBI 582]
>    has the following parameter:
>      P{1490} local
>  [inside JACOBI 581]
>    has the following parameter:
>      J{1489} local
>  [inside JACOBI 577]
>    has the following parameters:
>      P{1484} local
>      K{1485} local
>  [inside JACOBI 576]
>    has the following parameter:
>      I{1483} local
>  [inside LOOP 573]
>    has the following parameter:
>      IQ{1482} local
>  [inside LOOP 572]
>    has the following parameter:
>      IR{1481} local
>  [inside LOOP 571]
>    has the following parameter:
>      IP{1480} local
>  [inside LOOP 568]
>    has the following parameter:
>      IP{1477} local
>  [inside LOOP 566]
>    has the following parameter:
>      THETA{1476} local
>  [inside ROTATE 563]
>    has the following parameters:
>      H{1473} local
>      G{1474} local
>  [inside LOOP 556]
>    has the following parameter:
>      J{1466} local
>  [inside LOOP 552]
>    has the following parameter:
>      H{1458} local
>  [inside LOOP 551]
>    has the following parameter:
>      TAU{1457} global
>  [inside LOOP 550]
>    has the following parameter:
>      S{1456} global
>  [inside LOOP 549]
>    has the following parameter:
>      C{1455} local
>  [inside LOOP 548]
>    has the following parameter:
>      T{1454} local
>  [inside LOOP 547]
>    has the following parameter:
>      H{1453} local
>  [inside LOOP 543]
>    has the following parameter:
>      G{1452} local
>  [inside LOOP 542]
>    has the following parameter:
>      IQ{1451} local
>  [inside LOOP 541]
>    has the following parameter:
>      IR{1450} local
>  [inside LOOP 540]
>    has the following parameter:
>      IP{1449} local
>  [inside LOOP 539]
>    has the following parameter:
>      TRESH{1448} local
>  [inside LOOP 536]
>    has the following parameter:
>      SM{1445} local
>  LOOP[534]
>    has the following parameter:
>      I{1443} local
>  [inside JACOBI 530]
>    has the following parameter:
>      IP{1438} local
>  [inside JACOBI 527]
>    has the following parameter:
>      Z{1434} local
>  [inside JACOBI 526]
>    has region
>    has the following parameter:
>      B{1433} local
>  [inside JACOBI 525]
>    has region
>    has the following parameter:
>      V{1432} local
>  [inside JACOBI 524]
>    has region
>    has the following parameter:
>      D{1431} local
>  [inside JACOBI 523]
>    has the following parameter:
>      N{1430} local
>  [inside JACOBI 522]
>    has the following parameter:
>      A{1429} local
>  [inside JACOBI 521]
>    has region
>  JACOBI[520]
>    has the following parameter:
>      A{1427} local
>  [inside INVERT-MATRIX 515]
>    has the following parameter:
>      E{1425} local
>  [inside INVERT-MATRIX 513]
>    has the following parameter:
>      E{1423} local
>  [inside INVERT-MATRIX 510]
>    has the following parameter:
>      J{1420} local
>  [inside INVERT-MATRIX 506]
>    has the following parameter:
>      J{1416} local
>  [inside INVERT-MATRIX 503]
>    has the following parameter:
>      J{1414} local
>  [inside INVERT-MATRIX 502]
>    has the following parameter:
>      D{1413} local
>  [inside INVERT-MATRIX 501]
>    has the following parameter:
>      K{1412} local
>  [inside INVERT-MATRIX 499]
>    has the following parameter:
>      D{1410} local
>  [inside INVERT-MATRIX 497]
>    has the following parameter:
>      I{1408} local
>  [inside INVERT-MATRIX 496]
>    has the following parameter:
>      I{1407} local
>  [inside INVERT-MATRIX 495]
>    has the following parameter:
>      J{1406} local
>  [inside INVERT-MATRIX 494]
>    has the following parameter:
>      I{1405} local
>  [inside INVERT-MATRIX 491]
>    has the following parameter:
>      B{1401} local
>  [inside INVERT-MATRIX 490]
>    has the following parameter:
>      C{1400} local
>  [inside INVERT-MATRIX 489]
>    has region
>    has the following parameter:
>      N{1399} local
>  [inside DETERMINANT 483]
>    has the following parameter:
>      V{1394} local
>  [inside DETERMINANT 478]
>    has the following parameter:
>      X{1392} local
>  [inside DETERMINANT 477]
>    has the following parameter:
>      J{1391} local
>  [inside DETERMINANT 476]
>    has the following parameter:
>      J{1390} local
>  [inside DETERMINANT 475]
>    has the following parameter:
>      K{1389} local
>  [inside DETERMINANT 474]
>    has the following parameter:
>      E{1388} local
>  [inside DETERMINANT 473]
>    has the following parameter:
>      J{1387} local
>  [inside DETERMINANT 471]
>    has the following parameter:
>      C{1384} local
>  [inside DETERMINANT 469]
>    has the following parameters:
>      INDEX{1379} local
>      GREATEST{1380} local
>  [inside DETERMINANT 468]
>    has the following parameter:
>      I{1378} local
>  [inside DETERMINANT 467]
>    has the following parameter:
>      J{1377} local
>  [inside DETERMINANT 466]
>    has the following parameter:
>      I{1376} local
>  [inside DETERMINANT 463]
>    has the following parameter:
>      D{1373} local
>  [inside DETERMINANT 462]
>    has the following parameter:
>      B{1372} local
>  [inside DETERMINANT 461]
>    has region
>    has the following parameter:
>      N{1371} local
>  [inside K*M 457]
>    has the following parameter:
>      E{1367} local
>  [inside K*M 456]
>    has the following parameter:
>      ROW{1366} local
>  K*M[455]
>    has the following parameters:
>      K{1364} global
>      M{1365} local
>  M*[454]
>    has the following parameters:
>      A{1362} local
>      B{1363} local
>  SELF-OUTER-PRODUCT[453]
>    has the following parameter:
>      V{1361} local
>  [inside OUTER-PRODUCT2 452]
>    has the following parameter:
>      VJ{1359} local
>  [inside OUTER-PRODUCT2 451]
>    has the following parameter:
>      UI{1358} local
>  [inside OUTER-PRODUCT1 449]
>    has region
>    has the following parameter:
>      VJ{1354} local
>  [inside OUTER-PRODUCT1 448]
>    has the following parameter:
>      UI{1353} local
>  OUTER-PRODUCT1[447]
>    has the following parameters:
>      U{1351} local
>      V{1352} local
>  [inside TRANSPOSE 446]
>    has the following parameter:
>      J{1349} local
>  TRANSPOSE[445]
>    has the following parameter:
>      A{1348} global
>  [inside M*V 444]
>    has the following parameter:
>      U{1347} local
>  M*V[443]
>    has the following parameters:
>      A{1345} local
>      V{1346} local
>  M-[442]
>    has the following parameters:
>      A{1343} local
>      B{1344} local
>  M+[441]
>    has the following parameters:
>      A{1341} local
>      B{1342} local
>  [inside MATRIX-COLUMN-REF 439]
>    has the following parameter:
>      V{1337} local
>  MATRIX-SET![436]
>    has the following parameters:
>      A{1329} local
>      I{1330} local
>      J{1331} local
>      X{1332} local
>  MATRIX-COLUMNS[434]
>    has the following parameter:
>      A{1325} local
>  MAKE-MATRIX-INITIAL4[431]
>    has the following parameters:
>      M{1320} local
>      N{1321} local
>      INITIAL{1322} local
>  MAKE-MATRIX-INITIAL3[429]
>    has the following parameters:
>      M{1316} local
>      N{1317} local
>      INITIAL{1318} local
>  MAKE-MATRIX-INITIAL2[427]
>    has the following parameters:
>      M{1312} local
>      N{1313} local
>      INITIAL{1314} local
>  MAKE-MATRIX-INITIAL1[425]
>    has the following parameters:
>      M{1308} local
>      N{1309} local
>      INITIAL{1310} local
>  MAKE-MATRIX2[423]
>    has the following parameters:
>      M{1305} local
>      N{1306} local
>  MAKE-MATRIX1[421]
>    has the following parameters:
>      M{1302} local
>      N{1303} local
>  LOOP[416]
>    has the following parameters:
>      L{1300} local
>      I{1301} local
>  POSITIONV[413]
>    has the following parameters:
>      X{1296} local
>      L{1297} local
>  LOOP[408]
>    has region
>    has the following parameters:
>      L{1294} local
>      C{1295} local
>  REMOVE-IF-NOT[405]
>    has the following parameter:
>      L{1291} local
>  LOOP[400]
>    has the following parameter:
>      I{1288} local
>  [inside MAP-N-VECTOR11 396]
>    has the following parameter:
>      V{1284} local
>  MAP-N-VECTOR11[395]
>    has the following parameter:
>      N{1283} local
>  LOOP[390]
>    has the following parameter:
>      I{1280} local
>  [inside MAP-N-VECTOR10 386]
>    has the following parameter:
>      V{1276} local
>  MAP-N-VECTOR10[385]
>    has the following parameter:
>      N{1275} local
>  LOOP[380]
>    has the following parameter:
>      I{1272} local
>  [inside MAP-N-VECTOR9 376]
>    has the following parameter:
>      V{1268} local
>  MAP-N-VECTOR9[375]
>    has the following parameter:
>      N{1267} local
>  LOOP[370]
>    has the following parameter:
>      I{1264} local
>  [inside MAP-N-VECTOR8 366]
>    has the following parameter:
>      V{1260} local
>  MAP-N-VECTOR8[365]
>    has the following parameter:
>      N{1259} local
>  LOOP[360]
>    has the following parameter:
>      I{1256} local
>  [inside MAP-N-VECTOR7 356]
>    has the following parameter:
>      V{1252} local
>  LOOP[350]
>    has the following parameter:
>      I{1248} local
>  [inside MAP-N-VECTOR6 346]
>    has the following parameter:
>      V{1244} local
>  MAP-N-VECTOR6[345]
>    has the following parameter:
>      N{1243} local
>  LOOP[340]
>    has the following parameter:
>      I{1240} local
>  [inside MAP-N-VECTOR5 336]
>    has the following parameter:
>      V{1236} local
>  MAP-N-VECTOR5[335]
>    has the following parameter:
>      N{1235} local
>  LOOP[330]
>    has the following parameter:
>      I{1232} local
>  [inside MAP-N-VECTOR4 326]
>    has the following parameter:
>      V{1228} local
>  MAP-N-VECTOR4[325]
>    has the following parameter:
>      N{1227} local
>  LOOP[320]
>    has the following parameter:
>      I{1224} local
>  [inside MAP-N-VECTOR3 316]
>    has the following parameter:
>      V{1220} local
>  MAP-N-VECTOR3[315]
>    has the following parameter:
>      N{1219} local
>  LOOP[310]
>    has the following parameter:
>      I{1216} local
>  [inside MAP-N-VECTOR2 306]
>    has the following parameter:
>      V{1212} local
>  MAP-N-VECTOR2[305]
>    has the following parameter:
>      N{1211} local
>  LOOP[300]
>    has the following parameter:
>      I{1208} local
>  [inside MAP-N-VECTOR1 296]
>    has the following parameter:
>      V{1204} local
>  MAP-N-VECTOR1[295]
>    has the following parameter:
>      N{1203} local
>  LOOP[293]
>    has region
>    has the following parameters:
>      I{1200} local
>      C{1201} local
>  MAP-N2[290]
>    has the following parameter:
>      N{1197} local
>  LOOP[288]
>    has region
>    has the following parameters:
>      I{1194} local
>      C{1195} local
>  MAP-N1[285]
>    has the following parameter:
>      N{1191} local
>  [inside ADD-EXP 283]
>    has the following parameter:
>      FACTOR{1189} local
>  [inside ADD-EXP 282]
>    has the following parameter:
>      E-MIN{1188} local
>  [inside ADD-EXP 281]
>    has the following parameter:
>      E-MAX{1187} local
>  ADD-EXP[280]
>    has the following parameters:
>      E1{1185} local
>      E2{1186} local
>  [inside K*V 279]
>    has the following parameter:
>      X{1184} local
>  K*V[278]
>    has the following parameters:
>      K{1182} global
>      U{1183} local
>  LOOP[273]
>    has the following parameters:
>      N{1174} local
>      C{1175} local
>  SUM2[270]
>    has the following parameter:
>      N{1171} local
>  LOOP[268]
>    has the following parameters:
>      N{1168} local
>      C{1169} local
>  SUM1[265]
>    has the following parameter:
>      N{1165} local
>  [inside LOOP 263]
>    has the following parameter:
>      v{1163} local
>  LOOP[262]
>    has the following parameter:
>      I{1162} local
>  EVERY-N2[259]
>    has the following parameter:
>      N{1159} local
>  [inside LOOP 257]
>    has the following parameter:
>      v{1157} local
>  LOOP[256]
>    has the following parameter:
>      I{1156} local
>  EVERY-N1[253]
>    has the following parameter:
>      N{1153} local
>  LOOP[251]
>    has region
>    has the following parameters:
>      I{1150} local
>      C{1151} local
>  [inside REDUCE-VECTOR7 245]
>    has the following parameter:
>      N{1147} local
>  REDUCE-VECTOR7[244]
>    has the following parameters:
>      V{1145} local
>      I{1146} local
>  LOOP[242]
>    has the following parameters:
>      I{1142} local
>      C{1143} local
>  [inside REDUCE-VECTOR6 236]
>    has the following parameter:
>      N{1139} local
>  REDUCE-VECTOR6[235]
>    has the following parameters:
>      V{1137} local
>      I{1138} local
>  LOOP[233]
>    has the following parameters:
>      I{1134} local
>      C{1135} local
>  [inside REDUCE-VECTOR5 227]
>    has the following parameter:
>      N{1131} local
>  REDUCE-VECTOR5[226]
>    has the following parameters:
>      V{1129} local
>      I{1130} local
>  LOOP[224]
>    has the following parameters:
>      I{1126} local
>      C{1127} local
>  [inside REDUCE-VECTOR4 218]
>    has the following parameter:
>      N{1123} local
>  REDUCE-VECTOR4[217]
>    has the following parameters:
>      V{1121} local
>      I{1122} local
>  LOOP[215]
>    has the following parameters:
>      I{1118} local
>      C{1119} local
>  [inside REDUCE-VECTOR3 209]
>    has the following parameter:
>      N{1115} local
>  REDUCE-VECTOR3[208]
>    has the following parameters:
>      V{1113} local
>      I{1114} local
>  LOOP[206]
>    has the following parameters:
>      I{1110} local
>      C{1111} local
>  [inside REDUCE-VECTOR2 200]
>    has the following parameter:
>      N{1107} local
>  REDUCE-VECTOR2[199]
>    has the following parameters:
>      V{1105} local
>      I{1106} local
>  LOOP[197]
>    has the following parameters:
>      I{1102} local
>      C{1103} local
>  [inside REDUCE-VECTOR1 191]
>    has the following parameter:
>      N{1099} local
>  REDUCE-VECTOR1[190]
>    has the following parameters:
>      V{1097} local
>      I{1098} local
>  LOOP[188]
>    has region
>    has the following parameters:
>      L{1094} local
>      C{1095} local
>  REDUCE[182]
>    has the following parameters:
>      L{1090} local
>      I{1091} local
>  [inside MAP-VECTOR-TWO8 181]
>    has the following parameter:
>      I{1088} local
>  [inside MAP-VECTOR-TWO8 179]
>    has the following parameter:
>      U{1086} local
>  MAP-VECTOR-TWO8[178]
>    has the following parameters:
>      V1{1084} local
>      V2{1085} local
>  [inside MAP-VECTOR-TWO7 177]
>    has the following parameter:
>      I{1082} local
>  [inside MAP-VECTOR-TWO7 175]
>    has the following parameter:
>      U{1080} local
>  MAP-VECTOR-TWO7[174]
>    has the following parameters:
>      V1{1078} local
>      V2{1079} local
>  [inside MAP-VECTOR-TWO6 173]
>    has region
>    has the following parameter:
>      I{1076} local
>  [inside MAP-VECTOR-TWO6 171]
>    has the following parameter:
>      U{1074} local
>  MAP-VECTOR-TWO6[170]
>    has the following parameters:
>      V1{1072} local
>      V2{1073} local
>  [inside MAP-VECTOR-TWO5 169]
>    has the following parameter:
>      I{1070} local
>  [inside MAP-VECTOR-TWO5 167]
>    has the following parameter:
>      U{1068} local
>  MAP-VECTOR-TWO5[166]
>    has the following parameters:
>      V1{1066} local
>      V2{1067} local
>  [inside MAP-VECTOR-TWO4 165]
>    has the following parameter:
>      I{1064} local
>  [inside MAP-VECTOR-TWO4 163]
>    has the following parameter:
>      U{1062} local
>  MAP-VECTOR-TWO4[162]
>    has the following parameters:
>      V1{1060} local
>      V2{1061} local
>  [inside MAP-VECTOR-TWO3 161]
>    has region
>    has the following parameter:
>      I{1058} local
>  [inside MAP-VECTOR-TWO3 159]
>    has the following parameter:
>      U{1056} local
>  MAP-VECTOR-TWO3[158]
>    has the following parameters:
>      V1{1054} local
>      V2{1055} local
>  [inside MAP-VECTOR-TWO2 157]
>    has region
>    has the following parameter:
>      I{1052} local
>  [inside MAP-VECTOR-TWO2 155]
>    has the following parameter:
>      U{1050} local
>  MAP-VECTOR-TWO2[154]
>    has the following parameters:
>      V1{1048} local
>      V2{1049} local
>  [inside MAP-VECTOR-TWO1 153]
>    has region
>    has the following parameter:
>      I{1046} local
>  [inside MAP-VECTOR-TWO1 151]
>    has the following parameter:
>      U{1044} local
>  MAP-VECTOR-TWO1[150]
>    has the following parameters:
>      V1{1042} local
>      V2{1043} local
>  [inside MAP-VECTOR19 149]
>    has the following parameter:
>      I{1040} local
>  [inside MAP-VECTOR19 147]
>    has the following parameter:
>      U{1038} local
>  MAP-VECTOR19[146]
>    has the following parameter:
>      V{1037} local
>  [inside MAP-VECTOR18 145]
>    has the following parameter:
>      I{1035} local
>  [inside MAP-VECTOR18 143]
>    has the following parameter:
>      U{1033} local
>  MAP-VECTOR18[142]
>    has the following parameter:
>      V{1032} local
>  [inside MAP-VECTOR17 141]
>    has the following parameter:
>      I{1030} local
>  [inside MAP-VECTOR17 139]
>    has the following parameter:
>      U{1028} local
>  MAP-VECTOR17[138]
>    has the following parameter:
>      V{1027} local
>  [inside MAP-VECTOR16 137]
>    has the following parameter:
>      I{1025} local
>  [inside MAP-VECTOR16 135]
>    has the following parameter:
>      U{1023} local
>  MAP-VECTOR16[134]
>    has the following parameter:
>      V{1022} local
>  [inside MAP-VECTOR15 133]
>    has the following parameter:
>      I{1020} local
>  [inside MAP-VECTOR15 131]
>    has the following parameter:
>      U{1018} local
>  MAP-VECTOR15[130]
>    has the following parameter:
>      V{1017} local
>  [inside MAP-VECTOR14 129]
>    has the following parameter:
>      I{1015} local
>  [inside MAP-VECTOR14 127]
>    has the following parameter:
>      U{1013} local
>  MAP-VECTOR14[126]
>    has the following parameter:
>      V{1012} local
>  [inside MAP-VECTOR13 125]
>    has the following parameter:
>      I{1010} local
>  [inside MAP-VECTOR13 123]
>    has the following parameter:
>      U{1008} local
>  MAP-VECTOR13[122]
>    has the following parameter:
>      V{1007} local
>  [inside MAP-VECTOR12 121]
>    has the following parameter:
>      I{1005} local
>  [inside MAP-VECTOR12 119]
>    has the following parameter:
>      U{1003} local
>  MAP-VECTOR12[118]
>    has the following parameter:
>      V{1002} local
>  [inside MAP-VECTOR11 117]
>    has the following parameter:
>      I{1000} local
>  [inside MAP-VECTOR11 115]
>    has the following parameter:
>      U{998} local
>  MAP-VECTOR11[114]
>    has the following parameter:
>      V{997} local
>  [inside MAP-VECTOR10 113]
>    has the following parameter:
>      I{995} local
>  [inside MAP-VECTOR10 111]
>    has the following parameter:
>      U{993} local
>  MAP-VECTOR10[110]
>    has the following parameter:
>      V{992} local
>  [inside MAP-VECTOR9 109]
>    has the following parameter:
>      I{990} local
>  [inside MAP-VECTOR9 107]
>    has the following parameter:
>      U{988} local
>  [inside MAP-VECTOR8 105]
>    has the following parameter:
>      I{985} local
>  [inside MAP-VECTOR8 103]
>    has the following parameter:
>      U{983} local
>  [inside MAP-VECTOR7 101]
>    has the following parameter:
>      I{980} local
>  [inside MAP-VECTOR7 99]
>    has the following parameter:
>      U{978} local
>  MAP-VECTOR7[98]
>    has the following parameter:
>      V{977} local
>  [inside MAP-VECTOR6 97]
>    has the following parameter:
>      I{975} local
>  [inside MAP-VECTOR6 95]
>    has the following parameter:
>      U{973} local
>  MAP-VECTOR6[94]
>    has the following parameter:
>      V{972} local
>  [inside MAP-VECTOR5 93]
>    has the following parameter:
>      I{970} local
>  [inside MAP-VECTOR5 91]
>    has the following parameter:
>      U{968} local
>  MAP-VECTOR5[90]
>    has the following parameter:
>      V{967} local
>  [inside MAP-VECTOR4 89]
>    has the following parameter:
>      I{965} local
>  [inside MAP-VECTOR4 87]
>    has the following parameter:
>      U{963} local
>  MAP-VECTOR4[86]
>    has the following parameter:
>      V{962} local
>  [inside MAP-VECTOR3 85]
>    has the following parameter:
>      I{960} local
>  [inside MAP-VECTOR3 83]
>    has the following parameter:
>      U{958} local
>  MAP-VECTOR3[82]
>    has the following parameter:
>      V{957} local
>  [inside MAP-VECTOR2 81]
>    has the following parameter:
>      I{955} local
>  [inside MAP-VECTOR2 79]
>    has the following parameter:
>      U{953} local
>  MAP-VECTOR2[78]
>    has the following parameter:
>      V{952} local
>  [inside MAP-VECTOR1 77]
>    has the following parameter:
>      I{950} local
>  [inside MAP-VECTOR1 75]
>    has the following parameter:
>      U{948} local
>  LOOP[69]
>    has the following parameter:
>      I{944} local
>  FOR-EACH-FROM-A-UP-TO-B[66]
>    has the following parameters:
>      A{940} local
>      B{941} local
>  LOOP[61]
>    has the following parameter:
>      I{937} local
>  FOR-EACH-N[58]
>    has the following parameter:
>      N{934} local
>  LOOP[51]
>    has the following parameters:
>      N{931} local
>      R{932} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{928} local
>  loop[46]
>    has the following parameters:
>      ILEN{926} local
>      S{927} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{921} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{920} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{917} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{914} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{912} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{911} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{910} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{905} local
>      C{906} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{899} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{750} global
>      LOG-MATH-PRECISION{751} global
>      *RANDOM-STATE*{754} local
>      RANDOM:MASK{755} local
>      RANDOM:CHUNK-SIZE{756} local
>      RANDOM:SIZE{758} global
>      RANDOM:TAP{759} global
>      LOGICAL:BOOLE-XOR{760} global
>      *MOST-POSITIVE-FIXNUM*{763} local
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[1571]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 653]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-functional-partial-split-stalin.sc:944:29139, allocates on loop[8]:
>(LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI))
>The following expression, em-functional-partial-split-stalin.sc:919:28263, allocates on EMS[638]:
>(LIST MINUS-INFINITY #F)
>The following expression, em-functional-partial-split-stalin.sc:878:26879, allocates on EM-CLUSTERER[646]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J)) (INVERT-MATRIX ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J))))
>The following expression, em-functional-partial-split-stalin.sc:899:27665, allocates on LOOP[641]:
>(LIST OLD-LOG-LIKELIHOOD MODELS)
>The following expression, em-functional-partial-split-stalin.sc:854:26290, allocates on [inside M-STEP 618]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.0)
>The following expression, em-functional-partial-split-stalin.sc:866:26557, allocates on EM-CLUSTERER[646]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE /) ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA)))
>The following expression, em-functional-partial-split-stalin.sc:837:25749, allocates on EM-CLUSTERER[646]:
>(LIST (REDUCE-VECTOR3 + S 0.0) (MAP-VECTOR15 (LAMBDA (ZI) (MAP-VECTOR16 EXP ZI)) (M- Z (TRANSPOSE ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)))))
>The following expression, em-functional-partial-split-stalin.sc:840:25859, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)
>The following expression, em-functional-partial-split-stalin.sc:708:21813, allocates on CLIP-EIGENVALUES[600]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:710:21870, allocates on [inside JACOBI 525]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:711:21891, allocates on [inside JACOBI 526]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-functional-partial-split-stalin.sc:799:24606, allocates on CLIP-EIGENVALUES[600]:
>(LIST D (TRANSPOSE V))
>The following expression, em-functional-partial-split-stalin.sc:590:18398, allocates on [inside OUTER-PRODUCT1 449]:
>(F UI VJ)
>The following expression, em-functional-partial-split-stalin.sc:564:17624, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-partial-split-stalin.sc:561:17523, allocates on [inside CLIP-EIGENVALUES 603]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-partial-split-stalin.sc:558:17422, allocates on [inside JACOBI 524]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-partial-split-stalin.sc:555:17321, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-partial-split-stalin.sc:552:17228, allocates on [inside INVERT-MATRIX 489]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:550:17152, allocates on [inside DETERMINANT 461]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:541:16915, allocates on LOOP[408]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-functional-partial-split-stalin.sc:530:16636, allocates on [inside INITIAL-Z 635]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:522:16474, allocates on LOOP[641]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:514:16312, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:506:16151, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:498:15990, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:490:15829, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:482:15668, allocates on [inside CLIP-EIGENVALUES 603]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:474:15507, allocates on [inside JACOBI 524]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:466:15346, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:458:15185, allocates on [inside INVERT-MATRIX 489]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:450:15024, allocates on [inside DETERMINANT 461]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-partial-split-stalin.sc:447:14954, allocates on LOOP[293]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-partial-split-stalin.sc:442:14808, allocates on LOOP[288]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-partial-split-stalin.sc:404:13781, allocates on LOOP[251]:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-partial-split-stalin.sc:383:13109, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-partial-split-stalin.sc:376:12885, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-partial-split-stalin.sc:362:12437, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-partial-split-stalin.sc:355:12221, allocates on LOOP[188]:
>(F C (FIRST L))
>The following expression, em-functional-partial-split-stalin.sc:345:11898, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:337:11636, allocates on [inside M-STEP 618]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:329:11374, allocates on [inside CLIP-EIGENVALUES 603]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:331:11455, allocates on [inside MAP-VECTOR-TWO6 173]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-partial-split-stalin.sc:321:11112, allocates on [inside E-STEP 606]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:313:10850, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:305:10588, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:307:10669, allocates on [inside MAP-VECTOR-TWO3 161]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-partial-split-stalin.sc:297:10326, allocates on [inside M-STEP 618]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:299:10407, allocates on [inside MAP-VECTOR-TWO2 157]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-partial-split-stalin.sc:289:10064, allocates on DOT[275]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-partial-split-stalin.sc:291:10145, allocates on [inside MAP-VECTOR-TWO1 153]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-partial-split-stalin.sc:282:9822, allocates on LOOP[641]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:275:9587, allocates on LOOP[641]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:268:9352, allocates on LOOP[641]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:261:9117, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:254:8882, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:247:8647, allocates on [inside E-STEP 605]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:240:8412, allocates on E-STEP[604]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:233:8177, allocates on E-STEP[604]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:226:7942, allocates on [inside JACOBI 521]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:219:7707, allocates on [inside JACOBI 521]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:212:7472, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:205:7238, allocates on [inside M-STEP 619]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:198:7004, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:191:6770, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:184:6536, allocates on [inside M-STEP 622]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:177:6302, allocates on [inside M-STEP 622]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:170:6068, allocates on [inside E-STEP 611]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:163:5834, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:156:5600, allocates on EM-CLUSTERER[646]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-partial-split-stalin.sc:104:4013, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-functional-partial-split-stalin.sc:87:3190, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-functional-partial-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W27484 is general case for the following reasons:
>  flonum
>W24441 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W8425 is general case for the following reasons:
>  flonum
>W8379 is general case for the following reasons:
>  flonum
>W8377 is general case for the following reasons:
>  flonum
>W8131 is general case for the following reasons:
>  flonum
>W2031 is general case for the following reasons:
>  flonum
>W1858 is general case for the following reasons:
>  flonum
>W1616 is general case for the following reasons:
>  flonum
>W1599 is general case for the following reasons:
>  flonum
>W137 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     2 - 16% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  4% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 -  8% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 -  7% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     1 -  8% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     0 -  4% - Determining which environments are reentrant
>     0 -  1% - Asserting uniqueness
>     2 - 18% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  2% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 -  9% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     1 -  5% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m17.263s
>user	0m16.536s
>sys	0m0.668s
>run em-functional-partial-split
>
>real	0m0.851s
>user	0m0.748s
>sys	0m0.102s
>compile em-functional-split
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 23627 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   617 called noop native procedure types
>  1048 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    29 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 27210 type sets
>  1014 hunoz variables
>  2417 non-hunoz variables
>   816 noop environments
>  2439 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 24239 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   624 called noop native procedure types
>  1073 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    30 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 27908 type sets
>  1021 hunoz variables
>  2545 non-hunoz variables
>   823 noop environments
>  2515 non-noop environments
>3 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 11959 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   624 called noop native procedure types
>  1073 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    30 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 14393 type sets
>   717 hunoz variables
>  1614 non-hunoz variables
>     0 noop environments
>  1124 non-noop environments
>3 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[2587] reentrant
>    has the following parameters:
>      OBJ{3162} local
>      PORT{3163} local
>    has the following in-lined locals:
>      NUMBER{3151}
>      PORT{3152}
>      MANTISSA{3156}
>      EXPONENT{3157}
>      MANTISSA{3160}
>      EXPONENT{3161}
>      OBJ{3178}
>      I{3190}
>  DISPLAY-MANTISSA-EXPONENT2[2549]
>    has the following parameters:
>      MANTISSA{3135} local
>      EXPONENT{3136} local
>      PORT{3137} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{3138}
>      DIGIT{3139}
>      MANTISSA{3146}
>      FLOAT-DIGIT{3147}
>      DIGIT{3148}
>      MANTISSA{3150}
>  DISPLAY-EXACT-INTEGER2[2520]
>    has the following parameters:
>      NUMBER{3114} local
>      PORT{3115} local
>    has the following in-lined locals:
>      I{3118}
>      NUMBER{3119}
>      I{3122}
>      I{3128}
>      NUMBER{3129}
>      I{3132}
>  DISPLAY-STRING2[2511]
>    has the following parameters:
>      STRING{3107} local
>      PORT{3108} local
>    has the following in-lined locals:
>      N{3109}
>      I{3112}
>  LOOP[1944] reentrant
>    has the following parameter:
>      K{2710} local
>  LOOP[1879] reentrant
>    has the following parameter:
>      K{2656} local
>  MODULO[1569]
>    has the following parameters:
>      N1{2292} local
>      N2{2293} local
>    has the following in-lined local:
>      v{2294}
>  REVERSE[1410]
>    has the following parameter:
>      S{2150} local
>    has the following in-lined locals:
>      LIST{3551}
>      LIST{3554}
>      R{3555}
>  CDR[1256]
>    has the following parameter:
>      PAIR{2027} local
>  M-STEP[1014]
>    has the following parameters:
>      X{1947} local
>      Z{1948} local
>      CLIP{1949} local
>    has the following in-lined locals:
>      X{1049}
>      X{1054}
>      Y{1055}
>      N{1083}
>      I{1086}
>      N{1089}
>      I{1092}
>      N{1119}
>      I{1122}
>      N{1125}
>      I{1128}
>      N{1197}
>      I{1200}
>      N{1209}
>      I{1212}
>      N{1215}
>      I{1218}
>      N{1221}
>      I{1224}
>      N{1293}
>      I{1296}
>      N{1299}
>      I{1302}
>      N{1305}
>      I{1308}
>      N{1311}
>      I{1314}
>      N{1317}
>      I{1320}
>      N{1323}
>      I{1326}
>      N{1329}
>      I{1332}
>      N{1335}
>      I{1338}
>      N{1341}
>      I{1344}
>      V{1390}
>      U{1391}
>      I{1393}
>      V{1395}
>      U{1396}
>      I{1398}
>      V{1420}
>      U{1421}
>      I{1423}
>      V{1425}
>      U{1426}
>      I{1428}
>      V1{1488}
>      V2{1489}
>      U{1490}
>      I{1492}
>      V1{1500}
>      V2{1501}
>      U{1502}
>      I{1504}
>      V1{1506}
>      V2{1507}
>      U{1508}
>      I{1510}
>      V1{1512}
>      V2{1513}
>      U{1514}
>      I{1516}
>      V{1549}
>      I{1550}
>      N{1551}
>      I{1554}
>      C{1555}
>      V{1557}
>      I{1558}
>      N{1559}
>      I{1562}
>      C{1563}
>      V{1565}
>      I{1566}
>      N{1567}
>      I{1570}
>      C{1571}
>      N{1581}
>      I{1584}
>      v{1585}
>      N{1587}
>      I{1590}
>      v{1591}
>      N{1593}
>      N{1596}
>      C{1597}
>      N{1599}
>      N{1602}
>      C{1603}
>      U{1611}
>      N{1655}
>      V{1656}
>      I{1660}
>      N{1663}
>      V{1664}
>      I{1668}
>      N{1671}
>      V{1672}
>      I{1676}
>      N{1687}
>      V{1688}
>      I{1692}
>      M{1740}
>      N{1741}
>      INITIAL{1742}
>      M{1744}
>      N{1745}
>      INITIAL{1746}
>      M{1748}
>      N{1749}
>      INITIAL{1750}
>      A{1769}
>      B{1770}
>      U{1779}
>      V{1780}
>      UI{1781}
>      VJ{1782}
>      V{1789}
>      M{1793}
>      A{1855}
>      A{1857}
>      N{1858}
>      D{1859}
>      V{1860}
>      B{1861}
>      Z{1862}
>      IP{1866}
>      I{1871}
>      SM{1873}
>      TRESH{1876}
>      IP{1877}
>      IR{1878}
>      IQ{1879}
>      G{1880}
>      H{1881}
>      T{1882}
>      C{1883}
>      H{1886}
>      J{1894}
>      THETA{1904}
>      IP{1905}
>      IP{1908}
>      IR{1909}
>      IQ{1910}
>      I{1911}
>      P{1912}
>      K{1913}
>      J{1917}
>      P{1918}
>      L{1920}
>      J{1921}
>      ROW{1923}
>      X{1924}
>      I{1925}
>      J{1926}
>      V{1927}
>      M{1928}
>      I{1930}
>      A{1931}
>      V{1932}
>      J{1933}
>      E{1934}
>      II{1950}
>      KK{1951}
>      J{1952}
>      ZJ{1953}
>      ZJ-SUM{1954}
>      MU{1955}
>      SIGMA{1956}
>      ZIJ{1957}
>      XI{1958}
>      X{2287}
>      X{3431}
>      X{3432}
>      X{3433}
>      X{3436}
>      X{3437}
>      X{3438}
>      X{3439}
>      X{3440}
>      X{3441}
>      X{3442}
>      PAIR{3455}
>      A{3460}
>      I{3461}
>      J{3462}
>      X{3463}
>      A{3464}
>      I{3465}
>      J{3466}
>      X{3467}
>      A{3468}
>      I{3469}
>      J{3470}
>      X{3471}
>      A{3508}
>      I{3509}
>      J{3510}
>      X{3511}
>      A{3512}
>      I{3513}
>      J{3514}
>      X{3515}
>      A{3516}
>      I{3517}
>      J{3518}
>      X{3519}
>      ZS{3520}
>      ZS{3523}
>      R{3524}
>      ZS{3535}
>      ZS{3538}
>      R{3539}
>      X{3545}
>      XS{3546}
>      R{3550}
>      U{3557}
>      M{3563}
>  E-STEP[1006]
>    has region
>    has the following parameters:
>      X{1935} local
>      MODELS{1936} local
>    has the following in-lined locals:
>      X{1056}
>      Y{1057}
>      N{1077}
>      I{1080}
>      N{1131}
>      I{1134}
>      N{1137}
>      I{1140}
>      N{1143}
>      I{1146}
>      N{1149}
>      I{1152}
>      N{1155}
>      I{1158}
>      N{1203}
>      I{1206}
>      V{1385}
>      U{1386}
>      I{1388}
>      V{1430}
>      U{1431}
>      I{1433}
>      V{1435}
>      U{1436}
>      I{1438}
>      V{1440}
>      U{1441}
>      I{1443}
>      V{1445}
>      U{1446}
>      I{1448}
>      V{1450}
>      U{1451}
>      I{1453}
>      V1{1494}
>      V2{1495}
>      U{1496}
>      I{1498}
>      V{1533}
>      I{1534}
>      N{1535}
>      I{1538}
>      C{1539}
>      V{1541}
>      I{1542}
>      N{1543}
>      I{1546}
>      C{1547}
>      E1{1613}
>      E2{1614}
>      E-MAX{1615}
>      E-MIN{1616}
>      FACTOR{1617}
>      A{1771}
>      B{1772}
>      A{1773}
>      V{1774}
>      U{1775}
>      Z{1937}
>      S{1938}
>      ZI{1939}
>      ZI{1940}
>      XI{1941}
>      MODEL{1942}
>      LOG-DETERMINANT-SIGMA{1943}
>      SIGMA-INVERSE{1944}
>      MU{1945}
>      LOG-PI{1946}
>      ZS{2265}
>      ZS{2268}
>      R{2269}
>      Z{2340}
>  ROTATE[964]
>    has the following parameters:
>      A{1896} local
>      I{1897} local
>      J{1898} local
>      K{1899} local
>      L{1900} local
>    has the following in-lined locals:
>      A{1757}
>      I{1758}
>      J{1759}
>      X{1760}
>      H{1901}
>      G{1902}
>      A{3456}
>      I{3457}
>      J{3458}
>      X{3459}
>  INVERT-MATRIX[889]
>    has the following parameter:
>      A{1825} local
>    has the following in-lined locals:
>      N{1245}
>      I{1248}
>      N{1251}
>      I{1254}
>      N{1257}
>      I{1260}
>      N{1263}
>      I{1266}
>      N{1269}
>      I{1272}
>      N{1275}
>      I{1278}
>      N{1281}
>      I{1284}
>      N{1287}
>      I{1290}
>      N{1639}
>      V{1640}
>      I{1644}
>      N{1647}
>      V{1648}
>      I{1652}
>      M{1733}
>      N{1734}
>      M{1736}
>      N{1737}
>      INITIAL{1738}
>      N{1827}
>      C{1828}
>      B{1829}
>      I{1833}
>      J{1834}
>      I{1835}
>      I{1836}
>      D{1838}
>      K{1840}
>      D{1841}
>      J{1842}
>      J{1844}
>      J{1848}
>      E{1851}
>      E{1853}
>      A{3472}
>      I{3473}
>      J{3474}
>      X{3475}
>      A{3476}
>      I{3477}
>      J{3478}
>      X{3479}
>      A{3480}
>      I{3481}
>      J{3482}
>      X{3483}
>      A{3484}
>      I{3485}
>      J{3486}
>      X{3487}
>      A{3488}
>      I{3489}
>      J{3490}
>      X{3491}
>      A{3492}
>      I{3493}
>      J{3494}
>      X{3495}
>  DETERMINANT[860]
>    has the following parameter:
>      A{1796} local
>    has the following in-lined locals:
>      N{1227}
>      I{1230}
>      N{1233}
>      I{1236}
>      N{1239}
>      I{1242}
>      A{1347}
>      B{1348}
>      I{1351}
>      A{1354}
>      B{1355}
>      I{1358}
>      A{1361}
>      B{1362}
>      I{1365}
>      A{1368}
>      B{1369}
>      I{1372}
>      N{1631}
>      V{1632}
>      I{1636}
>      M{1730}
>      N{1731}
>      N{1799}
>      B{1800}
>      D{1801}
>      I{1804}
>      J{1805}
>      I{1806}
>      INDEX{1807}
>      GREATEST{1808}
>      C{1812}
>      J{1815}
>      E{1816}
>      K{1817}
>      J{1818}
>      J{1819}
>      X{1820}
>      V{1822}
>      X{3434}
>      X{3435}
>      A{3496}
>      I{3497}
>      J{3498}
>      X{3499}
>      A{3500}
>      I{3501}
>      J{3502}
>      X{3503}
>      A{3504}
>      I{3505}
>      J{3506}
>      X{3507}
>  M*[856]
>    has the following parameters:
>      A{1790} local
>      B{1791} local
>    has the following in-lined locals:
>      N{1095}
>      I{1098}
>      N{1101}
>      I{1104}
>      V{1400}
>      U{1401}
>      I{1403}
>      V{1405}
>      U{1406}
>      I{1408}
>      U{1784}
>      V{1785}
>      UI{1786}
>      VJ{1787}
>  TRANSPOSE[847]
>    has the following parameter:
>      A{1776} local
>    has the following in-lined locals:
>      N{1679}
>      V{1680}
>      I{1684}
>      J{1777}
>  MATRIX-ROW-SET![842]
>    has the following parameters:
>      A{1766} local
>      I{1767} local
>      V{1768} local
>  MATRIX-COLUMN-REF[840]
>    has the following parameters:
>      A{1763} local
>      J{1764} local
>    has the following in-lined locals:
>      N{1071}
>      I{1074}
>      V{1380}
>      U{1381}
>      I{1383}
>      V{1765}
>  MATRIX-ROW-REF[839]
>    has the following parameters:
>      A{1761} local
>      I{1762} local
>  MATRIX-REF[837]
>    has the following parameters:
>      A{1754} local
>      I{1755} local
>      J{1756} local
>  MATRIX-COLUMNS[836]
>    has the following parameter:
>      A{1753} local
>  MATRIX-ROWS[835]
>    has the following parameter:
>      A{1752} local
>  V-[679]
>    has the following parameters:
>      U{1608} local
>      V{1609} local
>    has the following in-lined locals:
>      N{1191}
>      I{1194}
>      V1{1482}
>      V2{1483}
>      U{1484}
>      I{1486}
>      Z{2275}
>      ZS{2276}
>      R{2280}
>  V+[678]
>    has the following parameters:
>      U{1606} local
>      V{1607} local
>    has the following in-lined locals:
>      N{1185}
>      I{1188}
>      V1{1476}
>      V2{1477}
>      U{1478}
>      I{1480}
>      ZS{3530}
>      ZS{3533}
>      R{3534}
>  DOT[677]
>    has region
>    has the following parameters:
>      U{1604} local
>      V{1605} local
>    has the following in-lined locals:
>      N{1179}
>      I{1182}
>      V1{1470}
>      V2{1471}
>      U{1472}
>      I{1474}
>      V{1525}
>      I{1526}
>      N{1527}
>      I{1530}
>      C{1531}
>      ZS{2270}
>      ZS{2273}
>      R{2274}
>      ZS{3525}
>      ZS{3528}
>      R{3529}
>  MAP-VECTOR9[508]
>    has the following parameters:
>      F{1414} local
>      V{1415} local
>    has the following in-lined locals:
>      N{1113}
>      I{1116}
>      U{1416}
>      I{1418}
>      E{1795}
>      E{3565}
>  MAP-VECTOR8[504]
>    has the following parameters:
>      F{1409} local
>      V{1410} local
>    has the following in-lined locals:
>      N{1107}
>      I{1110}
>      U{1411}
>      I{1413}
>      ROW{1794}
>      ROW{3564}
>  MAP-VECTOR1[476]
>    has the following parameters:
>      F{1374} local
>      V{1375} local
>    has the following in-lined locals:
>      N{1065}
>      I{1068}
>      U{1376}
>      I{1378}
>      X{1612}
>      X{3558}
>      X{3561}
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{1035} local
>    has the following in-lined locals:
>      P{1036}
>      ANS{1037}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{1025} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{1023} local
>      N2{1024} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{1018} local
>    has the following in-lined locals:
>      S{1021}
>      C{1022}
>      CHAR{2448}
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{812}
>      RANDOM:MASK{813}
>      RANDOM:CHUNK-SIZE{814}
>      *MOST-POSITIVE-FIXNUM*{821}
>      I{1015}
>      L{1026}
>      TRIAL{1027}
>      RANDOM-STRINGS{1028}
>      NIBBLES{1030}
>      I{1033}
>      ILEN{1042}
>      S{1043}
>      SLOP{1044}
>      N{1047}
>      R{1048}
>      X{1050}
>      X{1051}
>      X{1052}
>      X{1053}
>      X{1058}
>      Y{1059}
>      X{1060}
>      X{1062}
>      Y{1063}
>      N{1161}
>      I{1164}
>      N{1167}
>      I{1170}
>      N{1173}
>      I{1176}
>      V{1455}
>      U{1456}
>      I{1458}
>      V{1460}
>      U{1461}
>      I{1463}
>      V{1465}
>      U{1466}
>      I{1468}
>      L{1518}
>      I{1519}
>      L{1522}
>      C{1523}
>      V{1573}
>      I{1574}
>      N{1575}
>      I{1578}
>      C{1579}
>      N{1619}
>      I{1622}
>      C{1623}
>      N{1625}
>      I{1628}
>      C{1629}
>      N{1695}
>      V{1696}
>      I{1700}
>      N{1703}
>      V{1704}
>      I{1708}
>      N{1711}
>      V{1712}
>      I{1716}
>      L{1719}
>      L{1722}
>      C{1723}
>      X{1724}
>      L{1725}
>      L{1728}
>      I{1729}
>      X{1959}
>      PI{1960}
>      MU{1961}
>      SIGMA{1962}
>      CLIP{1963}
>      EM-KICK-OFF-TOLERANCE{1964}
>      EM-CONVERGENCE-TOLERANCE{1965}
>      JJ{1966}
>      MODELS{1969}
>      OLD-LOG-LIKELIHOOD{1970}
>      STARTING?{1971}
>      LOG-LIKELIHOOD-Z{1972}
>      v{1973}
>      v{1974}
>      J{1975}
>      EPSILON{1976}
>      II{1977}
>      JJ{1978}
>      ZI{1980}
>      X{1982}
>      CLIP{1983}
>      EM-KICK-OFF-TOLERANCE{1984}
>      EM-CONVERGENCE-TOLERANCE{1985}
>      EMS-CONVERGENCE-TOLERANCE{1986}
>      JJ{1989}
>      OLD-LOG-LIKELIHOOD-MODELS{1990}
>      MODELS{1991}
>      NEW-LOG-LIKELIHOOD-MODELS{1992}
>      X{1993}
>      CLIP{1994}
>      EM-KICK-OFF-TOLERANCE{1995}
>      EM-CONVERGENCE-TOLERANCE{1996}
>      EMS-CONVERGENCE-TOLERANCE{1997}
>      Z{1998}
>      CLUSTERS{1999}
>      J{2000}
>      CLUSTER{2001}
>      CLUSTER{2002}
>      I{2003}
>      ZI{2004}
>      OBJ1{2007}
>      OBJ2{2008}
>      v{2009}
>      v{2010}
>      PAIR{2026}
>      LIST{2145}
>      LIST{2148}
>      R{2149}
>      X{2253}
>      XS{2254}
>      R{2258}
>      STRING{2625}
>      START{2626}
>      END{2627}
>      R{2628}
>      K{2632}
>      LIST1{2778}
>      LIST1{2782}
>      C{2783}
>      OBJ{3416}
>      PAIR{3443}
>      PAIR{3444}
>      PAIR{3445}
>      PAIR{3446}
>      PAIR{3447}
>      PAIR{3448}
>      PAIR{3449}
>      PAIR{3450}
>      PAIR{3451}
>      PAIR{3452}
>      PAIR{3453}
>      PAIR{3454}
>      ZS{3540}
>      ZS{3543}
>      R{3544}
>      U{3560}
>The following non-trivial in-line native procedures will be generated:
>  [clone [inside K*M 859] 3337]
>    has the following parameter:
>      E{3565} local
>  [clone [inside K*M 858] 3336]
>    has the following parameter:
>      ROW{3564} local
>  [clone K*M[857] 3335]
>    has the following parameters:
>      K{3562} global
>      M{3563} local
>  [clone [inside K*V 681] 3334]
>    has the following parameter:
>      X{3561} local
>  [clone K*V[680] 3333]
>    has the following parameters:
>      K{3559} global
>      U{3560} local
>  [clone [inside K*V 681] 3332]
>    has the following parameter:
>      X{3558} local
>  [clone K*V[680] 3331]
>    has the following parameters:
>      K{3556} global
>      U{3557} local
>  [clone LOOP[1408] 3329]
>    has the following parameters:
>      LIST{3554} local
>      R{3555} local
>  [clone LIST-REVERSE[1405] 3326]
>    has the following parameter:
>      LIST{3551} local
>  [clone LOOP[1539] 3324]
>    has the following parameter:
>      R{3550} local
>  [clone MAX[1536] 3321]
>    has the following parameters:
>      X{3545} local
>      XS{3546} local
>  [clone LOOP[1549] 3319]
>    has the following parameters:
>      ZS{3543} local
>      R{3544} local
>  [clone +[1546] 3316]
>    has the following parameter:
>      ZS{3540} local
>  [clone LOOP[1549] 3314]
>    has the following parameters:
>      ZS{3538} local
>      R{3539} local
>  [clone +[1546] 3311]
>    has the following parameter:
>      ZS{3535} local
>  [clone LOOP[1549] 3309]
>    has the following parameters:
>      ZS{3533} local
>      R{3534} local
>  [clone +[1546] 3306]
>    has the following parameter:
>      ZS{3530} local
>  [clone LOOP[1549] 3304]
>    has the following parameters:
>      ZS{3528} local
>      R{3529} local
>  [clone +[1546] 3301]
>    has the following parameter:
>      ZS{3525} local
>  [clone LOOP[1554] 3299]
>    has the following parameters:
>      ZS{3523} local
>      R{3524} local
>  [clone *[1551] 3296]
>    has the following parameter:
>      ZS{3520} local
>  [clone MATRIX-SET![838] 3295]
>    has the following parameters:
>      A{3516} local
>      I{3517} local
>      J{3518} local
>      X{3519} local
>  [clone MATRIX-SET![838] 3294]
>    has the following parameters:
>      A{3512} local
>      I{3513} local
>      J{3514} local
>      X{3515} local
>  [clone MATRIX-SET![838] 3293]
>    has the following parameters:
>      A{3508} local
>      I{3509} local
>      J{3510} local
>      X{3511} local
>  [clone MATRIX-SET![838] 3292]
>    has the following parameters:
>      A{3504} local
>      I{3505} local
>      J{3506} local
>      X{3507} local
>  [clone MATRIX-SET![838] 3291]
>    has the following parameters:
>      A{3500} local
>      I{3501} local
>      J{3502} local
>      X{3503} local
>  [clone MATRIX-SET![838] 3290]
>    has the following parameters:
>      A{3496} local
>      I{3497} local
>      J{3498} local
>      X{3499} local
>  [clone MATRIX-SET![838] 3289]
>    has the following parameters:
>      A{3492} local
>      I{3493} local
>      J{3494} local
>      X{3495} local
>  [clone MATRIX-SET![838] 3288]
>    has the following parameters:
>      A{3488} local
>      I{3489} local
>      J{3490} local
>      X{3491} local
>  [clone MATRIX-SET![838] 3287]
>    has the following parameters:
>      A{3484} local
>      I{3485} local
>      J{3486} local
>      X{3487} local
>  [clone MATRIX-SET![838] 3286]
>    has the following parameters:
>      A{3480} local
>      I{3481} local
>      J{3482} local
>      X{3483} local
>  [clone MATRIX-SET![838] 3285]
>    has the following parameters:
>      A{3476} local
>      I{3477} local
>      J{3478} local
>      X{3479} local
>  [clone MATRIX-SET![838] 3284]
>    has the following parameters:
>      A{3472} local
>      I{3473} local
>      J{3474} local
>      X{3475} local
>  [clone MATRIX-SET![838] 3283]
>    has the following parameters:
>      A{3468} local
>      I{3469} local
>      J{3470} local
>      X{3471} local
>  [clone MATRIX-SET![838] 3282]
>    has the following parameters:
>      A{3464} local
>      I{3465} local
>      J{3466} local
>      X{3467} local
>  [clone MATRIX-SET![838] 3281]
>    has the following parameters:
>      A{3460} local
>      I{3461} local
>      J{3462} local
>      X{3463} local
>  [clone MATRIX-SET![838] 3280]
>    has the following parameters:
>      A{3456} local
>      I{3457} local
>      J{3458} local
>      X{3459} local
>  [clone CAR[1255] 3279]
>    has the following parameter:
>      PAIR{3455} local
>  [clone CAR[1255] 3278]
>    has the following parameter:
>      PAIR{3454} local
>  [clone CAR[1255] 3277]
>    has the following parameter:
>      PAIR{3453} local
>  [clone CAR[1255] 3276]
>    has the following parameter:
>      PAIR{3452} local
>  [clone CAR[1255] 3275]
>    has the following parameter:
>      PAIR{3451} local
>  [clone CAR[1255] 3274]
>    has the following parameter:
>      PAIR{3450} local
>  [clone CAR[1255] 3273]
>    has the following parameter:
>      PAIR{3449} local
>  [clone CAR[1255] 3272]
>    has the following parameter:
>      PAIR{3448} local
>  [clone CAR[1255] 3271]
>    has the following parameter:
>      PAIR{3447} local
>  [clone CAR[1255] 3270]
>    has the following parameter:
>      PAIR{3446} local
>  [clone CAR[1255] 3269]
>    has the following parameter:
>      PAIR{3445} local
>  [clone CAR[1255] 3268]
>    has the following parameter:
>      PAIR{3444} local
>  [clone CAR[1255] 3267]
>    has the following parameter:
>      PAIR{3443} local
>  [clone ABS[1566] 3266]
>    has the following parameter:
>      X{3442} local
>  [clone ABS[1566] 3265]
>    has the following parameter:
>      X{3441} local
>  [clone ABS[1566] 3264]
>    has the following parameter:
>      X{3440} local
>  [clone ABS[1566] 3263]
>    has the following parameter:
>      X{3439} local
>  [clone ABS[1566] 3262]
>    has the following parameter:
>      X{3438} local
>  [clone ABS[1566] 3261]
>    has the following parameter:
>      X{3437} local
>  [clone ABS[1566] 3260]
>    has the following parameter:
>      X{3436} local
>  [clone ABS[1566] 3259]
>    has the following parameter:
>      X{3435} local
>  [clone ABS[1566] 3258]
>    has the following parameter:
>      X{3434} local
>  [clone ABS[1566] 3257]
>    has the following parameter:
>      X{3433} local
>  [clone ABS[1566] 3256]
>    has the following parameter:
>      X{3432} local
>  [clone ABS[1566] 3255]
>    has the following parameter:
>      X{3431} local
>  WRITE[3004]
>    has the following parameter:
>      OBJ{3416} local
>  [inside LOOP 2635] reentrant
>  [inside LOOP 2634] reentrant
>  LOOP[2633] reentrant
>    has the following parameter:
>      I{3190} local
>  [inside WRITE2 2630] reentrant
>  [inside WRITE2 2629] reentrant
>  [inside WRITE2 2627] reentrant
>  [inside LOOP 2624] reentrant
>  [inside LOOP 2623] reentrant
>  [inside LOOP 2622] reentrant
>  [inside LOOP 2620] reentrant
>  LOOP[2619] reentrant
>    has the following parameter:
>      OBJ{3178} local
>  [inside WRITE2 2616] reentrant
>  [inside WRITE2 2615] reentrant
>  LOOP[2584]
>    has the following parameters:
>      MANTISSA{3160} local
>      EXPONENT{3161} local
>  LOOP[2579]
>    has the following parameters:
>      MANTISSA{3156} local
>      EXPONENT{3157} local
>  DISPLAY-INEXACT-REAL2[2570]
>    has the following parameters:
>      NUMBER{3151} local
>      PORT{3152} local
>  [inside LOOP 2567]
>    has the following parameter:
>      MANTISSA{3150} local
>  [inside LOOP 2564]
>    has the following parameter:
>      DIGIT{3148} local
>  [inside LOOP 2563]
>    has the following parameter:
>      FLOAT-DIGIT{3147} local
>  LOOP[2562]
>    has the following parameter:
>      MANTISSA{3146} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2551]
>    has the following parameter:
>      DIGIT{3139} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2550]
>    has the following parameter:
>      FLOAT-DIGIT{3138} local
>  LOOP[2541]
>    has the following parameter:
>      I{3132} local
>  LOOP[2538]
>    has the following parameters:
>      I{3128} local
>      NUMBER{3129} local
>  LOOP[2527]
>    has the following parameter:
>      I{3122} local
>  LOOP[2524]
>    has the following parameters:
>      I{3118} local
>      NUMBER{3119} local
>  LOOP[2515]
>    has the following parameter:
>      I{3112} local
>  [inside DISPLAY-STRING2 2512]
>    has the following parameter:
>      N{3109} local
>  [inside top level 2507]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{3068} global
>      BUFFER{3070} global
>  LOOP[2031]
>    has region
>    has the following parameters:
>      LIST1{2782} local
>      C{2783} local
>  MAP[2027]
>    has the following parameter:
>      LIST1{2778} local
>  VECTOR->LIST[1941]
>    has the following parameter:
>      VECTOR{2707} global
>  [inside STRING->LIST 1876]
>    has the following parameter:
>      N{2653} global
>  STRING->LIST[1875]
>    has the following parameter:
>      STRING{2652} global
>  LOOP[1847]
>    has the following parameter:
>      K{2632} local
>  [inside SUBSTRING 1843]
>    has the following parameter:
>      R{2628} local
>  SUBSTRING[1842]
>    has the following parameters:
>      STRING{2625} local
>      START{2626} local
>      END{2627} local
>  [inside top level 1701]
>    has the following parameter:
>      CHAR{2448} local
>  [inside top level 1700]
>    has the following parameter:
>      CHAR-NUMERIC?{2447} global
>  EXP[1620]
>    has the following parameter:
>      Z{2340} local
>  [inside MODULO 1570]
>    has the following parameter:
>      v{2294} local
>  ABS[1566]
>    has the following parameter:
>      X{2287} local
>  LOOP[1559]
>    has the following parameter:
>      R{2280} local
>  -[1556]
>    has the following parameters:
>      Z{2275} local
>      ZS{2276} local
>  LOOP[1554]
>    has the following parameters:
>      ZS{2273} local
>      R{2274} local
>  *[1551]
>    has the following parameter:
>      ZS{2270} local
>  LOOP[1549]
>    has the following parameters:
>      ZS{2268} local
>      R{2269} local
>  +[1546]
>    has the following parameter:
>      ZS{2265} local
>  LOOP[1539]
>    has the following parameter:
>      R{2258} local
>  MAX[1536]
>    has the following parameters:
>      X{2253} local
>      XS{2254} local
>  LOOP[1408]
>    has the following parameters:
>      LIST{2148} local
>      R{2149} local
>  LIST-REVERSE[1405]
>    has the following parameter:
>      LIST{2145} local
>  CAR[1255]
>    has the following parameter:
>      PAIR{2026} local
>  [inside EQV? 1241]
>    has the following parameter:
>      v{2010} local
>  [inside EQV? 1240]
>    has the following parameter:
>      v{2009} local
>  EQV?[1239]
>    has the following parameters:
>      OBJ1{2007} local
>      OBJ2{2008} local
>  [inside EM-CLUSTERER 1056]
>    has the following parameter:
>      ZI{2004} local
>  [inside EM-CLUSTERER 1055]
>    has region
>    has the following parameter:
>      I{2003} local
>  [inside EM-CLUSTERER 1054]
>    has the following parameter:
>      CLUSTER{2002} local
>  [inside EM-CLUSTERER 1053]
>    has the following parameter:
>      CLUSTER{2001} local
>  [inside EM-CLUSTERER 1052]
>    has the following parameter:
>      J{2000} local
>  [inside EM-CLUSTERER 1050]
>    has the following parameter:
>      CLUSTERS{1999} local
>  [inside EM-CLUSTERER 1049]
>    has the following parameter:
>      Z{1998} local
>  EM-CLUSTERER[1048]
>    has region
>    has the following parameters:
>      X{1993} local
>      CLIP{1994} local
>      EM-KICK-OFF-TOLERANCE{1995} local
>      EM-CONVERGENCE-TOLERANCE{1996} local
>      EMS-CONVERGENCE-TOLERANCE{1997} local
>  [inside LOOP 1045]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD-MODELS{1992} local
>  [inside LOOP 1044]
>    has the following parameter:
>      MODELS{1991} local
>  LOOP[1043]
>    has region
>    has the following parameters:
>      JJ{1989} local
>      OLD-LOG-LIKELIHOOD-MODELS{1990} local
>  EMS[1040]
>    has region
>    has the following parameters:
>      X{1982} local
>      CLIP{1983} local
>      EM-KICK-OFF-TOLERANCE{1984} local
>      EM-CONVERGENCE-TOLERANCE{1985} local
>      EMS-CONVERGENCE-TOLERANCE{1986} local
>  [inside INITIAL-Z 1038]
>    has the following parameter:
>      ZI{1980} local
>  [inside INITIAL-Z 1037]
>    has region
>  INITIAL-Z[1036]
>    has the following parameters:
>      II{1977} local
>      JJ{1978} local
>  NOISE[1035]
>    has the following parameter:
>      EPSILON{1976} local
>  [inside EM 1034]
>    has the following parameter:
>      J{1975} local
>  [inside LOOP 1032]
>    has the following parameter:
>      v{1974} local
>  [inside LOOP 1031]
>    has the following parameter:
>      v{1973} local
>  [inside LOOP 1030]
>    has the following parameter:
>      LOG-LIKELIHOOD-Z{1972} local
>  LOOP[1029]
>    has the following parameters:
>      MODELS{1969} local
>      OLD-LOG-LIKELIHOOD{1970} local
>      STARTING?{1971} local
>  [inside EM 1026]
>    has the following parameter:
>      JJ{1966} local
>  EM[1025]
>    has the following parameters:
>      X{1959} local
>      PI{1960} local
>      MU{1961} local
>      SIGMA{1962} local
>      CLIP{1963} local
>      EM-KICK-OFF-TOLERANCE{1964} local
>      EM-CONVERGENCE-TOLERANCE{1965} local
>  [inside M-STEP 1024]
>    has region
>    has the following parameters:
>      ZIJ{1957} local
>      XI{1958} local
>  [inside M-STEP 1022]
>    has the following parameter:
>      SIGMA{1956} local
>  [inside M-STEP 1021]
>    has region
>    has the following parameter:
>      MU{1955} local
>  [inside M-STEP 1020]
>    has region
>    has the following parameter:
>      ZJ-SUM{1954} local
>  [inside M-STEP 1019]
>    has the following parameter:
>      ZJ{1953} local
>  [inside M-STEP 1018]
>    has the following parameter:
>      J{1952} local
>  [inside M-STEP 1016]
>    has the following parameter:
>      KK{1951} local
>  [inside M-STEP 1015]
>    has the following parameter:
>      II{1950} local
>  [inside E-STEP 1013]
>    has region
>    has the following parameters:
>      LOG-DETERMINANT-SIGMA{1943} local
>      SIGMA-INVERSE{1944} local
>      MU{1945} local
>      LOG-PI{1946} local
>  [inside E-STEP 1012]
>    has the following parameter:
>      MODEL{1942} local
>  [inside E-STEP 1011]
>    has the following parameter:
>      XI{1941} local
>  [inside E-STEP 1010]
>    has the following parameter:
>      ZI{1940} local
>  [inside E-STEP 1009]
>    has the following parameter:
>      ZI{1939} local
>  [inside E-STEP 1008]
>    has region
>    has the following parameter:
>      S{1938} local
>  [inside E-STEP 1007]
>    has region
>    has the following parameter:
>      Z{1937} local
>  [inside CLIP-EIGENVALUES 1005]
>    has region
>  [inside CLIP-EIGENVALUES 1004]
>    has the following parameter:
>      E{1934} local
>  [inside CLIP-EIGENVALUES 1003]
>    has the following parameter:
>      J{1933} local
>  CLIP-EIGENVALUES[1002]
>    has region
>    has the following parameters:
>      A{1931} local
>      V{1932} local
>  [inside VECTOR->DIAGONAL-MATRIX 1001]
>    has the following parameter:
>      I{1930} local
>  [inside VECTOR->DIAGONAL-MATRIX 999]
>    has the following parameter:
>      M{1928} local
>  VECTOR->DIAGONAL-MATRIX[998]
>    has the following parameter:
>      V{1927} local
>  [inside JACOBI 996]
>    has the following parameter:
>      J{1926} local
>  [inside JACOBI 995]
>    has the following parameter:
>      I{1925} local
>  [inside JACOBI 994]
>    has the following parameter:
>      X{1924} local
>  [inside JACOBI 993]
>    has the following parameter:
>      ROW{1923} local
>  [inside JACOBI 988]
>    has the following parameter:
>      J{1921} local
>  [inside JACOBI 987]
>    has the following parameter:
>      L{1920} local
>  [inside JACOBI 984]
>    has the following parameter:
>      P{1918} local
>  [inside JACOBI 983]
>    has the following parameter:
>      J{1917} local
>  [inside JACOBI 979]
>    has the following parameters:
>      P{1912} local
>      K{1913} local
>  [inside JACOBI 978]
>    has the following parameter:
>      I{1911} local
>  [inside LOOP 975]
>    has the following parameter:
>      IQ{1910} local
>  [inside LOOP 974]
>    has the following parameter:
>      IR{1909} local
>  [inside LOOP 973]
>    has the following parameter:
>      IP{1908} local
>  [inside LOOP 970]
>    has the following parameter:
>      IP{1905} local
>  [inside LOOP 968]
>    has the following parameter:
>      THETA{1904} local
>  [inside ROTATE 965]
>    has the following parameters:
>      H{1901} local
>      G{1902} local
>  [inside LOOP 958]
>    has the following parameter:
>      J{1894} local
>  [inside LOOP 954]
>    has the following parameter:
>      H{1886} local
>  [inside LOOP 953]
>    has the following parameter:
>      TAU{1885} global
>  [inside LOOP 952]
>    has the following parameter:
>      S{1884} global
>  [inside LOOP 951]
>    has the following parameter:
>      C{1883} local
>  [inside LOOP 950]
>    has the following parameter:
>      T{1882} local
>  [inside LOOP 949]
>    has the following parameter:
>      H{1881} local
>  [inside LOOP 945]
>    has the following parameter:
>      G{1880} local
>  [inside LOOP 944]
>    has the following parameter:
>      IQ{1879} local
>  [inside LOOP 943]
>    has the following parameter:
>      IR{1878} local
>  [inside LOOP 942]
>    has the following parameter:
>      IP{1877} local
>  [inside LOOP 941]
>    has the following parameter:
>      TRESH{1876} local
>  [inside LOOP 938]
>    has the following parameter:
>      SM{1873} local
>  LOOP[936]
>    has the following parameter:
>      I{1871} local
>  [inside JACOBI 932]
>    has the following parameter:
>      IP{1866} local
>  [inside JACOBI 929]
>    has the following parameter:
>      Z{1862} local
>  [inside JACOBI 928]
>    has region
>    has the following parameter:
>      B{1861} local
>  [inside JACOBI 927]
>    has region
>    has the following parameter:
>      V{1860} local
>  [inside JACOBI 926]
>    has region
>    has the following parameter:
>      D{1859} local
>  [inside JACOBI 925]
>    has the following parameter:
>      N{1858} local
>  [inside JACOBI 924]
>    has the following parameter:
>      A{1857} local
>  [inside JACOBI 923]
>    has region
>  JACOBI[922]
>    has the following parameter:
>      A{1855} local
>  [inside INVERT-MATRIX 917]
>    has the following parameter:
>      E{1853} local
>  [inside INVERT-MATRIX 915]
>    has the following parameter:
>      E{1851} local
>  [inside INVERT-MATRIX 912]
>    has the following parameter:
>      J{1848} local
>  [inside INVERT-MATRIX 908]
>    has the following parameter:
>      J{1844} local
>  [inside INVERT-MATRIX 905]
>    has the following parameter:
>      J{1842} local
>  [inside INVERT-MATRIX 904]
>    has the following parameter:
>      D{1841} local
>  [inside INVERT-MATRIX 903]
>    has the following parameter:
>      K{1840} local
>  [inside INVERT-MATRIX 901]
>    has the following parameter:
>      D{1838} local
>  [inside INVERT-MATRIX 899]
>    has the following parameter:
>      I{1836} local
>  [inside INVERT-MATRIX 898]
>    has the following parameter:
>      I{1835} local
>  [inside INVERT-MATRIX 897]
>    has the following parameter:
>      J{1834} local
>  [inside INVERT-MATRIX 896]
>    has the following parameter:
>      I{1833} local
>  [inside INVERT-MATRIX 893]
>    has the following parameter:
>      B{1829} local
>  [inside INVERT-MATRIX 892]
>    has the following parameter:
>      C{1828} local
>  [inside INVERT-MATRIX 891]
>    has region
>    has the following parameter:
>      N{1827} local
>  [inside DETERMINANT 885]
>    has the following parameter:
>      V{1822} local
>  [inside DETERMINANT 880]
>    has the following parameter:
>      X{1820} local
>  [inside DETERMINANT 879]
>    has the following parameter:
>      J{1819} local
>  [inside DETERMINANT 878]
>    has the following parameter:
>      J{1818} local
>  [inside DETERMINANT 877]
>    has the following parameter:
>      K{1817} local
>  [inside DETERMINANT 876]
>    has the following parameter:
>      E{1816} local
>  [inside DETERMINANT 875]
>    has the following parameter:
>      J{1815} local
>  [inside DETERMINANT 873]
>    has the following parameter:
>      C{1812} local
>  [inside DETERMINANT 871]
>    has the following parameters:
>      INDEX{1807} local
>      GREATEST{1808} local
>  [inside DETERMINANT 870]
>    has the following parameter:
>      I{1806} local
>  [inside DETERMINANT 869]
>    has the following parameter:
>      J{1805} local
>  [inside DETERMINANT 868]
>    has the following parameter:
>      I{1804} local
>  [inside DETERMINANT 865]
>    has the following parameter:
>      D{1801} local
>  [inside DETERMINANT 864]
>    has the following parameter:
>      B{1800} local
>  [inside DETERMINANT 863]
>    has region
>    has the following parameter:
>      N{1799} local
>  [inside K*M 859]
>    has the following parameter:
>      E{1795} local
>  [inside K*M 858]
>    has the following parameter:
>      ROW{1794} local
>  K*M[857]
>    has the following parameters:
>      K{1792} global
>      M{1793} local
>  SELF-OUTER-PRODUCT[855]
>    has the following parameter:
>      V{1789} local
>  [inside OUTER-PRODUCT2 854]
>    has the following parameter:
>      VJ{1787} local
>  [inside OUTER-PRODUCT2 853]
>    has the following parameter:
>      UI{1786} local
>  OUTER-PRODUCT2[852]
>    has the following parameters:
>      U{1784} local
>      V{1785} local
>  [inside OUTER-PRODUCT1 851]
>    has region
>    has the following parameter:
>      VJ{1782} local
>  [inside OUTER-PRODUCT1 850]
>    has the following parameter:
>      UI{1781} local
>  OUTER-PRODUCT1[849]
>    has the following parameters:
>      U{1779} local
>      V{1780} local
>  [inside TRANSPOSE 848]
>    has the following parameter:
>      J{1777} local
>  [inside M*V 846]
>    has the following parameter:
>      U{1775} local
>  M*V[845]
>    has the following parameters:
>      A{1773} local
>      V{1774} local
>  M-[844]
>    has the following parameters:
>      A{1771} local
>      B{1772} local
>  M+[843]
>    has the following parameters:
>      A{1769} local
>      B{1770} local
>  [inside MATRIX-COLUMN-REF 841]
>    has the following parameter:
>      V{1765} local
>  MATRIX-SET![838]
>    has the following parameters:
>      A{1757} local
>      I{1758} local
>      J{1759} local
>      X{1760} local
>  MAKE-MATRIX-INITIAL4[833]
>    has the following parameters:
>      M{1748} local
>      N{1749} local
>      INITIAL{1750} local
>  MAKE-MATRIX-INITIAL3[831]
>    has the following parameters:
>      M{1744} local
>      N{1745} local
>      INITIAL{1746} local
>  MAKE-MATRIX-INITIAL2[829]
>    has the following parameters:
>      M{1740} local
>      N{1741} local
>      INITIAL{1742} local
>  MAKE-MATRIX-INITIAL1[827]
>    has the following parameters:
>      M{1736} local
>      N{1737} local
>      INITIAL{1738} local
>  MAKE-MATRIX2[825]
>    has the following parameters:
>      M{1733} local
>      N{1734} local
>  MAKE-MATRIX1[823]
>    has the following parameters:
>      M{1730} local
>      N{1731} local
>  LOOP[818]
>    has the following parameters:
>      L{1728} local
>      I{1729} local
>  POSITIONV[815]
>    has the following parameters:
>      X{1724} local
>      L{1725} local
>  LOOP[810]
>    has region
>    has the following parameters:
>      L{1722} local
>      C{1723} local
>  REMOVE-IF-NOT[807]
>    has the following parameter:
>      L{1719} local
>  LOOP[802]
>    has the following parameter:
>      I{1716} local
>  [inside MAP-N-VECTOR11 798]
>    has the following parameter:
>      V{1712} local
>  MAP-N-VECTOR11[797]
>    has the following parameter:
>      N{1711} local
>  LOOP[792]
>    has the following parameter:
>      I{1708} local
>  [inside MAP-N-VECTOR10 788]
>    has the following parameter:
>      V{1704} local
>  MAP-N-VECTOR10[787]
>    has the following parameter:
>      N{1703} local
>  LOOP[782]
>    has the following parameter:
>      I{1700} local
>  [inside MAP-N-VECTOR9 778]
>    has the following parameter:
>      V{1696} local
>  MAP-N-VECTOR9[777]
>    has the following parameter:
>      N{1695} local
>  LOOP[772]
>    has the following parameter:
>      I{1692} local
>  [inside MAP-N-VECTOR8 768]
>    has the following parameter:
>      V{1688} local
>  MAP-N-VECTOR8[767]
>    has the following parameter:
>      N{1687} local
>  LOOP[762]
>    has the following parameter:
>      I{1684} local
>  [inside MAP-N-VECTOR7 758]
>    has the following parameter:
>      V{1680} local
>  MAP-N-VECTOR7[757]
>    has the following parameter:
>      N{1679} local
>  LOOP[752]
>    has the following parameter:
>      I{1676} local
>  [inside MAP-N-VECTOR6 748]
>    has the following parameter:
>      V{1672} local
>  MAP-N-VECTOR6[747]
>    has the following parameter:
>      N{1671} local
>  LOOP[742]
>    has the following parameter:
>      I{1668} local
>  [inside MAP-N-VECTOR5 738]
>    has the following parameter:
>      V{1664} local
>  MAP-N-VECTOR5[737]
>    has the following parameter:
>      N{1663} local
>  LOOP[732]
>    has the following parameter:
>      I{1660} local
>  [inside MAP-N-VECTOR4 728]
>    has the following parameter:
>      V{1656} local
>  MAP-N-VECTOR4[727]
>    has the following parameter:
>      N{1655} local
>  LOOP[722]
>    has the following parameter:
>      I{1652} local
>  [inside MAP-N-VECTOR3 718]
>    has the following parameter:
>      V{1648} local
>  MAP-N-VECTOR3[717]
>    has the following parameter:
>      N{1647} local
>  LOOP[712]
>    has the following parameter:
>      I{1644} local
>  [inside MAP-N-VECTOR2 708]
>    has the following parameter:
>      V{1640} local
>  MAP-N-VECTOR2[707]
>    has the following parameter:
>      N{1639} local
>  LOOP[702]
>    has the following parameter:
>      I{1636} local
>  [inside MAP-N-VECTOR1 698]
>    has the following parameter:
>      V{1632} local
>  MAP-N-VECTOR1[697]
>    has the following parameter:
>      N{1631} local
>  LOOP[695]
>    has region
>    has the following parameters:
>      I{1628} local
>      C{1629} local
>  MAP-N2[692]
>    has the following parameter:
>      N{1625} local
>  LOOP[690]
>    has region
>    has the following parameters:
>      I{1622} local
>      C{1623} local
>  MAP-N1[687]
>    has the following parameter:
>      N{1619} local
>  [inside ADD-EXP 685]
>    has the following parameter:
>      FACTOR{1617} local
>  [inside ADD-EXP 684]
>    has the following parameter:
>      E-MIN{1616} local
>  [inside ADD-EXP 683]
>    has the following parameter:
>      E-MAX{1615} local
>  ADD-EXP[682]
>    has the following parameters:
>      E1{1613} local
>      E2{1614} local
>  [inside K*V 681]
>    has the following parameter:
>      X{1612} local
>  K*V[680]
>    has the following parameters:
>      K{1610} global
>      U{1611} local
>  LOOP[675]
>    has the following parameters:
>      N{1602} local
>      C{1603} local
>  SUM2[672]
>    has the following parameter:
>      N{1599} local
>  LOOP[670]
>    has the following parameters:
>      N{1596} local
>      C{1597} local
>  SUM1[667]
>    has the following parameter:
>      N{1593} local
>  [inside LOOP 665]
>    has the following parameter:
>      v{1591} local
>  LOOP[664]
>    has the following parameter:
>      I{1590} local
>  EVERY-N2[661]
>    has the following parameter:
>      N{1587} local
>  [inside LOOP 659]
>    has the following parameter:
>      v{1585} local
>  LOOP[658]
>    has the following parameter:
>      I{1584} local
>  EVERY-N1[655]
>    has the following parameter:
>      N{1581} local
>  LOOP[653]
>    has region
>    has the following parameters:
>      I{1578} local
>      C{1579} local
>  [inside REDUCE-VECTOR7 647]
>    has the following parameter:
>      N{1575} local
>  REDUCE-VECTOR7[646]
>    has the following parameters:
>      V{1573} local
>      I{1574} local
>  LOOP[644]
>    has the following parameters:
>      I{1570} local
>      C{1571} local
>  [inside REDUCE-VECTOR6 638]
>    has the following parameter:
>      N{1567} local
>  REDUCE-VECTOR6[637]
>    has the following parameters:
>      V{1565} local
>      I{1566} local
>  LOOP[635]
>    has the following parameters:
>      I{1562} local
>      C{1563} local
>  [inside REDUCE-VECTOR5 629]
>    has the following parameter:
>      N{1559} local
>  REDUCE-VECTOR5[628]
>    has the following parameters:
>      V{1557} local
>      I{1558} local
>  LOOP[626]
>    has the following parameters:
>      I{1554} local
>      C{1555} local
>  [inside REDUCE-VECTOR4 620]
>    has the following parameter:
>      N{1551} local
>  REDUCE-VECTOR4[619]
>    has the following parameters:
>      V{1549} local
>      I{1550} local
>  LOOP[617]
>    has the following parameters:
>      I{1546} local
>      C{1547} local
>  [inside REDUCE-VECTOR3 611]
>    has the following parameter:
>      N{1543} local
>  REDUCE-VECTOR3[610]
>    has the following parameters:
>      V{1541} local
>      I{1542} local
>  LOOP[608]
>    has the following parameters:
>      I{1538} local
>      C{1539} local
>  [inside REDUCE-VECTOR2 602]
>    has the following parameter:
>      N{1535} local
>  REDUCE-VECTOR2[601]
>    has the following parameters:
>      V{1533} local
>      I{1534} local
>  LOOP[599]
>    has the following parameters:
>      I{1530} local
>      C{1531} local
>  [inside REDUCE-VECTOR1 593]
>    has the following parameter:
>      N{1527} local
>  REDUCE-VECTOR1[592]
>    has the following parameters:
>      V{1525} local
>      I{1526} local
>  LOOP[590]
>    has region
>    has the following parameters:
>      L{1522} local
>      C{1523} local
>  REDUCE[584]
>    has the following parameters:
>      L{1518} local
>      I{1519} local
>  [inside MAP-VECTOR-TWO8 583]
>    has the following parameter:
>      I{1516} local
>  [inside MAP-VECTOR-TWO8 581]
>    has the following parameter:
>      U{1514} local
>  MAP-VECTOR-TWO8[580]
>    has the following parameters:
>      V1{1512} local
>      V2{1513} local
>  [inside MAP-VECTOR-TWO7 579]
>    has the following parameter:
>      I{1510} local
>  [inside MAP-VECTOR-TWO7 577]
>    has the following parameter:
>      U{1508} local
>  MAP-VECTOR-TWO7[576]
>    has the following parameters:
>      V1{1506} local
>      V2{1507} local
>  [inside MAP-VECTOR-TWO6 575]
>    has region
>    has the following parameter:
>      I{1504} local
>  [inside MAP-VECTOR-TWO6 573]
>    has the following parameter:
>      U{1502} local
>  MAP-VECTOR-TWO6[572]
>    has the following parameters:
>      V1{1500} local
>      V2{1501} local
>  [inside MAP-VECTOR-TWO5 571]
>    has the following parameter:
>      I{1498} local
>  [inside MAP-VECTOR-TWO5 569]
>    has the following parameter:
>      U{1496} local
>  MAP-VECTOR-TWO5[568]
>    has the following parameters:
>      V1{1494} local
>      V2{1495} local
>  [inside MAP-VECTOR-TWO4 567]
>    has the following parameter:
>      I{1492} local
>  [inside MAP-VECTOR-TWO4 565]
>    has the following parameter:
>      U{1490} local
>  MAP-VECTOR-TWO4[564]
>    has the following parameters:
>      V1{1488} local
>      V2{1489} local
>  [inside MAP-VECTOR-TWO3 563]
>    has region
>    has the following parameter:
>      I{1486} local
>  [inside MAP-VECTOR-TWO3 561]
>    has the following parameter:
>      U{1484} local
>  MAP-VECTOR-TWO3[560]
>    has the following parameters:
>      V1{1482} local
>      V2{1483} local
>  [inside MAP-VECTOR-TWO2 559]
>    has region
>    has the following parameter:
>      I{1480} local
>  [inside MAP-VECTOR-TWO2 557]
>    has the following parameter:
>      U{1478} local
>  MAP-VECTOR-TWO2[556]
>    has the following parameters:
>      V1{1476} local
>      V2{1477} local
>  [inside MAP-VECTOR-TWO1 555]
>    has region
>    has the following parameter:
>      I{1474} local
>  [inside MAP-VECTOR-TWO1 553]
>    has the following parameter:
>      U{1472} local
>  MAP-VECTOR-TWO1[552]
>    has the following parameters:
>      V1{1470} local
>      V2{1471} local
>  [inside MAP-VECTOR19 551]
>    has the following parameter:
>      I{1468} local
>  [inside MAP-VECTOR19 549]
>    has the following parameter:
>      U{1466} local
>  MAP-VECTOR19[548]
>    has the following parameter:
>      V{1465} local
>  [inside MAP-VECTOR18 547]
>    has the following parameter:
>      I{1463} local
>  [inside MAP-VECTOR18 545]
>    has the following parameter:
>      U{1461} local
>  MAP-VECTOR18[544]
>    has the following parameter:
>      V{1460} local
>  [inside MAP-VECTOR17 543]
>    has the following parameter:
>      I{1458} local
>  [inside MAP-VECTOR17 541]
>    has the following parameter:
>      U{1456} local
>  MAP-VECTOR17[540]
>    has the following parameter:
>      V{1455} local
>  [inside MAP-VECTOR16 539]
>    has the following parameter:
>      I{1453} local
>  [inside MAP-VECTOR16 537]
>    has the following parameter:
>      U{1451} local
>  MAP-VECTOR16[536]
>    has the following parameter:
>      V{1450} local
>  [inside MAP-VECTOR15 535]
>    has the following parameter:
>      I{1448} local
>  [inside MAP-VECTOR15 533]
>    has the following parameter:
>      U{1446} local
>  MAP-VECTOR15[532]
>    has the following parameter:
>      V{1445} local
>  [inside MAP-VECTOR14 531]
>    has the following parameter:
>      I{1443} local
>  [inside MAP-VECTOR14 529]
>    has the following parameter:
>      U{1441} local
>  MAP-VECTOR14[528]
>    has the following parameter:
>      V{1440} local
>  [inside MAP-VECTOR13 527]
>    has the following parameter:
>      I{1438} local
>  [inside MAP-VECTOR13 525]
>    has the following parameter:
>      U{1436} local
>  MAP-VECTOR13[524]
>    has the following parameter:
>      V{1435} local
>  [inside MAP-VECTOR12 523]
>    has the following parameter:
>      I{1433} local
>  [inside MAP-VECTOR12 521]
>    has the following parameter:
>      U{1431} local
>  MAP-VECTOR12[520]
>    has the following parameter:
>      V{1430} local
>  [inside MAP-VECTOR11 519]
>    has the following parameter:
>      I{1428} local
>  [inside MAP-VECTOR11 517]
>    has the following parameter:
>      U{1426} local
>  MAP-VECTOR11[516]
>    has the following parameter:
>      V{1425} local
>  [inside MAP-VECTOR10 515]
>    has the following parameter:
>      I{1423} local
>  [inside MAP-VECTOR10 513]
>    has the following parameter:
>      U{1421} local
>  MAP-VECTOR10[512]
>    has the following parameter:
>      V{1420} local
>  [inside MAP-VECTOR9 511]
>    has the following parameter:
>      I{1418} local
>  [inside MAP-VECTOR9 509]
>    has the following parameter:
>      U{1416} local
>  [inside MAP-VECTOR8 507]
>    has the following parameter:
>      I{1413} local
>  [inside MAP-VECTOR8 505]
>    has the following parameter:
>      U{1411} local
>  [inside MAP-VECTOR7 503]
>    has the following parameter:
>      I{1408} local
>  [inside MAP-VECTOR7 501]
>    has the following parameter:
>      U{1406} local
>  MAP-VECTOR7[500]
>    has the following parameter:
>      V{1405} local
>  [inside MAP-VECTOR6 499]
>    has the following parameter:
>      I{1403} local
>  [inside MAP-VECTOR6 497]
>    has the following parameter:
>      U{1401} local
>  MAP-VECTOR6[496]
>    has the following parameter:
>      V{1400} local
>  [inside MAP-VECTOR5 495]
>    has the following parameter:
>      I{1398} local
>  [inside MAP-VECTOR5 493]
>    has the following parameter:
>      U{1396} local
>  MAP-VECTOR5[492]
>    has the following parameter:
>      V{1395} local
>  [inside MAP-VECTOR4 491]
>    has the following parameter:
>      I{1393} local
>  [inside MAP-VECTOR4 489]
>    has the following parameter:
>      U{1391} local
>  MAP-VECTOR4[488]
>    has the following parameter:
>      V{1390} local
>  [inside MAP-VECTOR3 487]
>    has the following parameter:
>      I{1388} local
>  [inside MAP-VECTOR3 485]
>    has the following parameter:
>      U{1386} local
>  MAP-VECTOR3[484]
>    has the following parameter:
>      V{1385} local
>  [inside MAP-VECTOR2 483]
>    has the following parameter:
>      I{1383} local
>  [inside MAP-VECTOR2 481]
>    has the following parameter:
>      U{1381} local
>  MAP-VECTOR2[480]
>    has the following parameter:
>      V{1380} local
>  [inside MAP-VECTOR1 479]
>    has the following parameter:
>      I{1378} local
>  [inside MAP-VECTOR1 477]
>    has the following parameter:
>      U{1376} local
>  LOOP[471]
>    has the following parameter:
>      I{1372} local
>  FOR-EACH-FROM-A-UP-TO-B4[468]
>    has the following parameters:
>      A{1368} local
>      B{1369} local
>  LOOP[463]
>    has the following parameter:
>      I{1365} local
>  FOR-EACH-FROM-A-UP-TO-B3[460]
>    has the following parameters:
>      A{1361} local
>      B{1362} local
>  LOOP[455]
>    has the following parameter:
>      I{1358} local
>  FOR-EACH-FROM-A-UP-TO-B2[452]
>    has the following parameters:
>      A{1354} local
>      B{1355} local
>  LOOP[447]
>    has the following parameter:
>      I{1351} local
>  FOR-EACH-FROM-A-UP-TO-B1[444]
>    has the following parameters:
>      A{1347} local
>      B{1348} local
>  LOOP[439]
>    has the following parameter:
>      I{1344} local
>  FOR-EACH-N47[436]
>    has the following parameter:
>      N{1341} local
>  LOOP[431]
>    has the following parameter:
>      I{1338} local
>  FOR-EACH-N46[428]
>    has the following parameter:
>      N{1335} local
>  LOOP[423]
>    has the following parameter:
>      I{1332} local
>  FOR-EACH-N45[420]
>    has the following parameter:
>      N{1329} local
>  LOOP[415]
>    has the following parameter:
>      I{1326} local
>  FOR-EACH-N44[412]
>    has the following parameter:
>      N{1323} local
>  LOOP[407]
>    has the following parameter:
>      I{1320} local
>  FOR-EACH-N43[404]
>    has the following parameter:
>      N{1317} local
>  LOOP[399]
>    has the following parameter:
>      I{1314} local
>  FOR-EACH-N42[396]
>    has the following parameter:
>      N{1311} local
>  LOOP[391]
>    has the following parameter:
>      I{1308} local
>  FOR-EACH-N41[388]
>    has the following parameter:
>      N{1305} local
>  LOOP[383]
>    has the following parameter:
>      I{1302} local
>  FOR-EACH-N40[380]
>    has the following parameter:
>      N{1299} local
>  LOOP[375]
>    has the following parameter:
>      I{1296} local
>  FOR-EACH-N39[372]
>    has the following parameter:
>      N{1293} local
>  LOOP[367]
>    has the following parameter:
>      I{1290} local
>  FOR-EACH-N38[364]
>    has the following parameter:
>      N{1287} local
>  LOOP[359]
>    has the following parameter:
>      I{1284} local
>  FOR-EACH-N37[356]
>    has the following parameter:
>      N{1281} local
>  LOOP[351]
>    has the following parameter:
>      I{1278} local
>  FOR-EACH-N36[348]
>    has the following parameter:
>      N{1275} local
>  LOOP[343]
>    has the following parameter:
>      I{1272} local
>  FOR-EACH-N35[340]
>    has the following parameter:
>      N{1269} local
>  LOOP[335]
>    has the following parameter:
>      I{1266} local
>  FOR-EACH-N34[332]
>    has the following parameter:
>      N{1263} local
>  LOOP[327]
>    has the following parameter:
>      I{1260} local
>  FOR-EACH-N33[324]
>    has the following parameter:
>      N{1257} local
>  LOOP[319]
>    has the following parameter:
>      I{1254} local
>  FOR-EACH-N32[316]
>    has the following parameter:
>      N{1251} local
>  LOOP[311]
>    has the following parameter:
>      I{1248} local
>  FOR-EACH-N31[308]
>    has the following parameter:
>      N{1245} local
>  LOOP[303]
>    has the following parameter:
>      I{1242} local
>  FOR-EACH-N30[300]
>    has the following parameter:
>      N{1239} local
>  LOOP[295]
>    has the following parameter:
>      I{1236} local
>  FOR-EACH-N29[292]
>    has the following parameter:
>      N{1233} local
>  LOOP[287]
>    has the following parameter:
>      I{1230} local
>  FOR-EACH-N28[284]
>    has the following parameter:
>      N{1227} local
>  LOOP[279]
>    has the following parameter:
>      I{1224} local
>  FOR-EACH-N27[276]
>    has the following parameter:
>      N{1221} local
>  LOOP[271]
>    has the following parameter:
>      I{1218} local
>  FOR-EACH-N26[268]
>    has the following parameter:
>      N{1215} local
>  LOOP[263]
>    has the following parameter:
>      I{1212} local
>  FOR-EACH-N25[260]
>    has the following parameter:
>      N{1209} local
>  LOOP[255]
>    has the following parameter:
>      I{1206} local
>  FOR-EACH-N24[252]
>    has the following parameter:
>      N{1203} local
>  LOOP[247]
>    has the following parameter:
>      I{1200} local
>  FOR-EACH-N23[244]
>    has the following parameter:
>      N{1197} local
>  LOOP[239]
>    has the following parameter:
>      I{1194} local
>  FOR-EACH-N22[236]
>    has the following parameter:
>      N{1191} local
>  LOOP[231]
>    has the following parameter:
>      I{1188} local
>  FOR-EACH-N21[228]
>    has the following parameter:
>      N{1185} local
>  LOOP[223]
>    has the following parameter:
>      I{1182} local
>  FOR-EACH-N20[220]
>    has the following parameter:
>      N{1179} local
>  LOOP[215]
>    has the following parameter:
>      I{1176} local
>  FOR-EACH-N19[212]
>    has the following parameter:
>      N{1173} local
>  LOOP[207]
>    has the following parameter:
>      I{1170} local
>  FOR-EACH-N18[204]
>    has the following parameter:
>      N{1167} local
>  LOOP[199]
>    has the following parameter:
>      I{1164} local
>  FOR-EACH-N17[196]
>    has the following parameter:
>      N{1161} local
>  LOOP[191]
>    has the following parameter:
>      I{1158} local
>  FOR-EACH-N16[188]
>    has the following parameter:
>      N{1155} local
>  LOOP[183]
>    has the following parameter:
>      I{1152} local
>  FOR-EACH-N15[180]
>    has the following parameter:
>      N{1149} local
>  LOOP[175]
>    has the following parameter:
>      I{1146} local
>  FOR-EACH-N14[172]
>    has the following parameter:
>      N{1143} local
>  LOOP[167]
>    has the following parameter:
>      I{1140} local
>  FOR-EACH-N13[164]
>    has the following parameter:
>      N{1137} local
>  LOOP[159]
>    has the following parameter:
>      I{1134} local
>  FOR-EACH-N12[156]
>    has the following parameter:
>      N{1131} local
>  LOOP[151]
>    has the following parameter:
>      I{1128} local
>  FOR-EACH-N11[148]
>    has the following parameter:
>      N{1125} local
>  LOOP[143]
>    has the following parameter:
>      I{1122} local
>  FOR-EACH-N10[140]
>    has the following parameter:
>      N{1119} local
>  LOOP[135]
>    has the following parameter:
>      I{1116} local
>  FOR-EACH-N9[132]
>    has the following parameter:
>      N{1113} local
>  LOOP[127]
>    has the following parameter:
>      I{1110} local
>  FOR-EACH-N8[124]
>    has the following parameter:
>      N{1107} local
>  LOOP[119]
>    has the following parameter:
>      I{1104} local
>  FOR-EACH-N7[116]
>    has the following parameter:
>      N{1101} local
>  LOOP[111]
>    has the following parameter:
>      I{1098} local
>  FOR-EACH-N6[108]
>    has the following parameter:
>      N{1095} local
>  LOOP[103]
>    has the following parameter:
>      I{1092} local
>  FOR-EACH-N5[100]
>    has the following parameter:
>      N{1089} local
>  LOOP[95]
>    has the following parameter:
>      I{1086} local
>  FOR-EACH-N4[92]
>    has the following parameter:
>      N{1083} local
>  LOOP[87]
>    has the following parameter:
>      I{1080} local
>  FOR-EACH-N3[84]
>    has the following parameter:
>      N{1077} local
>  LOOP[79]
>    has the following parameter:
>      I{1074} local
>  FOR-EACH-N2[76]
>    has the following parameter:
>      N{1071} local
>  LOOP[71]
>    has the following parameter:
>      I{1068} local
>  FOR-EACH-N1[68]
>    has the following parameter:
>      N{1065} local
>  LIST-TWO5[67]
>    has the following parameters:
>      X{1062} local
>      Y{1063} local
>  LIST-TWO4[66]
>    has the following parameter:
>      X{1060} local
>  LIST-TWO3[65]
>    has the following parameters:
>      X{1058} local
>      Y{1059} local
>  LIST-TWO2[64]
>    has the following parameters:
>      X{1056} local
>      Y{1057} local
>  LIST-TWO1[63]
>    has the following parameters:
>      X{1054} local
>      Y{1055} local
>  SECOND5[62]
>    has the following parameter:
>      X{1053} local
>  SECOND4[61]
>    has the following parameter:
>      X{1052} local
>  SECOND3[60]
>    has the following parameter:
>      X{1051} local
>  SECOND2[59]
>    has the following parameter:
>      X{1050} local
>  SECOND1[58]
>    has the following parameter:
>      X{1049} local
>  LOOP[51]
>    has the following parameters:
>      N{1047} local
>      R{1048} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{1044} local
>  loop[46]
>    has the following parameters:
>      ILEN{1042} local
>      S{1043} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{1037} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{1036} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{1033} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{1030} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{1028} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{1027} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{1026} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{1021} local
>      C{1022} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{1015} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{808} global
>      LOG-MATH-PRECISION{809} global
>      *RANDOM-STATE*{812} local
>      RANDOM:MASK{813} local
>      RANDOM:CHUNK-SIZE{814} local
>      RANDOM:SIZE{816} global
>      RANDOM:TAP{817} global
>      LOGICAL:BOOLE-XOR{818} global
>      *MOST-POSITIVE-FIXNUM*{821} local
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[2031]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 1055]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-functional-split-stalin.sc:1044:31804, allocates on EM-CLUSTERER[1048]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J)) (INVERT-MATRIX ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J))))
>The following expression, em-functional-split-stalin.sc:1020:31215, allocates on [inside M-STEP 1020]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.0)
>The following expression, em-functional-split-stalin.sc:1032:31482, allocates on EM-CLUSTERER[1048]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE /) ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA)))
>The following expression, em-functional-split-stalin.sc:1006:30784, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)
>The following expression, em-functional-split-stalin.sc:873:26746, allocates on CLIP-EIGENVALUES[1002]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:875:26803, allocates on [inside JACOBI 927]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:876:26824, allocates on [inside JACOBI 928]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-functional-split-stalin.sc:755:23295, allocates on [inside OUTER-PRODUCT1 851]:
>(F UI VJ)
>The following expression, em-functional-split-stalin.sc:729:22521, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-split-stalin.sc:726:22420, allocates on [inside CLIP-EIGENVALUES 1005]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-split-stalin.sc:723:22319, allocates on [inside JACOBI 926]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-split-stalin.sc:720:22218, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-split-stalin.sc:717:22125, allocates on [inside INVERT-MATRIX 891]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:715:22049, allocates on [inside DETERMINANT 863]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:706:21812, allocates on LOOP[810]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-functional-split-stalin.sc:695:21533, allocates on [inside INITIAL-Z 1037]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:687:21371, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:679:21209, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:671:21048, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:663:20887, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:655:20726, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:647:20565, allocates on [inside CLIP-EIGENVALUES 1005]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:639:20404, allocates on [inside JACOBI 926]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:631:20243, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:623:20082, allocates on [inside INVERT-MATRIX 891]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:615:19921, allocates on [inside DETERMINANT 863]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-split-stalin.sc:612:19851, allocates on LOOP[695]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-split-stalin.sc:607:19705, allocates on LOOP[690]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-split-stalin.sc:569:18678, allocates on LOOP[653]:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-split-stalin.sc:548:18006, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-split-stalin.sc:541:17782, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-split-stalin.sc:527:17334, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-split-stalin.sc:520:17118, allocates on LOOP[590]:
>(F C (FIRST L))
>The following expression, em-functional-split-stalin.sc:510:16793, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:502:16529, allocates on [inside M-STEP 1020]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:494:16265, allocates on [inside CLIP-EIGENVALUES 1005]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:496:16348, allocates on [inside MAP-VECTOR-TWO6 575]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-split-stalin.sc:486:16001, allocates on [inside E-STEP 1008]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:478:15737, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:470:15473, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:472:15556, allocates on [inside MAP-VECTOR-TWO3 563]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-split-stalin.sc:462:15209, allocates on [inside M-STEP 1020]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:464:15292, allocates on [inside MAP-VECTOR-TWO2 559]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-split-stalin.sc:454:14945, allocates on DOT[677]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-split-stalin.sc:456:15028, allocates on [inside MAP-VECTOR-TWO1 555]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-split-stalin.sc:447:14706, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:440:14474, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:433:14242, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:426:14010, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:419:13778, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:412:13546, allocates on [inside E-STEP 1007]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:405:13314, allocates on E-STEP[1006]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:398:13082, allocates on E-STEP[1006]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:391:12850, allocates on [inside JACOBI 923]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:384:12618, allocates on [inside JACOBI 923]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:377:12381, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:370:12145, allocates on [inside M-STEP 1021]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:363:11909, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:356:11673, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:349:11437, allocates on [inside M-STEP 1024]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:342:11201, allocates on [inside M-STEP 1024]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:335:10965, allocates on [inside E-STEP 1013]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:328:10729, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:321:10493, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-split-stalin.sc:164:5680, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-split-stalin.sc:164:5688, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-split-stalin.sc:162:5632, allocates on EMS[1040]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-split-stalin.sc:162:5640, allocates on EMS[1040]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-split-stalin.sc:160:5584, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-split-stalin.sc:160:5592, allocates on LOOP[1043]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-split-stalin.sc:158:5536, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-split-stalin.sc:158:5544, allocates on EM-CLUSTERER[1048]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-split-stalin.sc:156:5488, allocates on CLIP-EIGENVALUES[1002]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-split-stalin.sc:156:5496, allocates on CLIP-EIGENVALUES[1002]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-split-stalin.sc:104:4013, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-functional-split-stalin.sc:87:3190, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-functional-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W24324 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W6933 is general case for the following reasons:
>  flonum
>W6887 is general case for the following reasons:
>  flonum
>W6885 is general case for the following reasons:
>  flonum
>W6639 is general case for the following reasons:
>  flonum
>W43 is general case for the following reasons:
>  flonum
>W7 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     2 - 16% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     1 -  4% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 -  7% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     3 - 19% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     1 -  6% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  3% - Determining which environments are reentrant
>     0 -  1% - Asserting uniqueness
>     2 - 15% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  1% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 -  9% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m19.631s
>user	0m18.782s
>sys	0m0.575s
>run em-functional-split
>
>real	0m0.777s
>user	0m0.702s
>sys	0m0.074s
>compile em-functional-do-split
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 23050 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   566 called noop native procedure types
>   940 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    29 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 26374 type sets
>   963 hunoz variables
>  2209 non-hunoz variables
>   765 noop environments
>  2331 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 23662 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   573 called noop native procedure types
>   965 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    30 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 27072 type sets
>   970 hunoz variables
>  2337 non-hunoz variables
>   772 noop environments
>  2407 non-noop environments
>3 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 11382 expressions
>     0 internal symbol types
>     0 external symbol types
>    65 primitive procedure types
>   194 non-called native procedure types
>   573 called noop native procedure types
>   965 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    30 structure types
>    85 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 13557 type sets
>   666 hunoz variables
>  1406 non-hunoz variables
>     0 noop environments
>  1016 non-noop environments
>3 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[2428] reentrant
>    has the following parameters:
>      OBJ{2903} local
>      PORT{2904} local
>    has the following in-lined locals:
>      NUMBER{2892}
>      PORT{2893}
>      MANTISSA{2897}
>      EXPONENT{2898}
>      MANTISSA{2901}
>      EXPONENT{2902}
>      OBJ{2919}
>      I{2931}
>  DISPLAY-MANTISSA-EXPONENT2[2390]
>    has the following parameters:
>      MANTISSA{2876} local
>      EXPONENT{2877} local
>      PORT{2878} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2879}
>      DIGIT{2880}
>      MANTISSA{2887}
>      FLOAT-DIGIT{2888}
>      DIGIT{2889}
>      MANTISSA{2891}
>  DISPLAY-EXACT-INTEGER2[2361]
>    has the following parameters:
>      NUMBER{2855} local
>      PORT{2856} local
>    has the following in-lined locals:
>      I{2859}
>      NUMBER{2860}
>      I{2863}
>      I{2869}
>      NUMBER{2870}
>      I{2873}
>  DISPLAY-STRING2[2352]
>    has the following parameters:
>      STRING{2848} local
>      PORT{2849} local
>    has the following in-lined locals:
>      N{2850}
>      I{2853}
>  LOOP[1785] reentrant
>    has the following parameter:
>      K{2451} local
>  LOOP[1720] reentrant
>    has the following parameter:
>      K{2397} local
>  MODULO[1410]
>    has the following parameters:
>      N1{2033} local
>      N2{2034} local
>    has the following in-lined local:
>      v{2035}
>  REVERSE[1251]
>    has the following parameter:
>      S{1891} local
>    has the following in-lined locals:
>      LIST{3292}
>      LIST{3295}
>      R{3296}
>  CDR[1097]
>    has the following parameter:
>      PAIR{1768} local
>  M-STEP[906]
>    has the following parameters:
>      X{1688} local
>      Z{1689} local
>      CLIP{1690} local
>    has the following in-lined locals:
>      X{947}
>      X{952}
>      Y{953}
>      V{987}
>      U{988}
>      I{992}
>      V{995}
>      U{996}
>      I{1000}
>      V{1035}
>      U{1036}
>      I{1040}
>      V{1043}
>      U{1044}
>      I{1048}
>      V1{1142}
>      V2{1143}
>      U{1144}
>      I{1148}
>      V1{1160}
>      V2{1161}
>      U{1162}
>      I{1166}
>      V1{1169}
>      V2{1170}
>      U{1171}
>      I{1175}
>      V1{1178}
>      V2{1179}
>      U{1180}
>      I{1184}
>      V{1218}
>      I{1219}
>      N{1220}
>      I{1223}
>      C{1224}
>      V{1226}
>      I{1227}
>      N{1228}
>      I{1231}
>      C{1232}
>      V{1234}
>      I{1235}
>      N{1236}
>      I{1239}
>      C{1240}
>      N{1250}
>      I{1253}
>      v{1254}
>      N{1256}
>      I{1259}
>      v{1260}
>      N{1262}
>      N{1265}
>      C{1266}
>      N{1268}
>      N{1271}
>      C{1272}
>      U{1280}
>      N{1324}
>      V{1325}
>      I{1329}
>      N{1332}
>      V{1333}
>      I{1337}
>      N{1340}
>      V{1341}
>      I{1345}
>      N{1356}
>      V{1357}
>      I{1361}
>      M{1409}
>      N{1410}
>      INITIAL{1411}
>      M{1413}
>      N{1414}
>      INITIAL{1415}
>      M{1417}
>      N{1418}
>      INITIAL{1419}
>      A{1438}
>      B{1439}
>      U{1448}
>      V{1449}
>      UI{1450}
>      VJ{1451}
>      V{1458}
>      M{1462}
>      A{1569}
>      A{1571}
>      N{1572}
>      D{1573}
>      V{1574}
>      B{1575}
>      Z{1576}
>      IP{1582}
>      I{1588}
>      SM{1590}
>      TRESH{1593}
>      IP{1596}
>      IR{1600}
>      IQ{1602}
>      G{1603}
>      H{1604}
>      T{1605}
>      C{1606}
>      H{1609}
>      J{1619}
>      THETA{1630}
>      IP{1633}
>      IP{1637}
>      IR{1638}
>      IQ{1639}
>      I{1642}
>      P{1644}
>      K{1645}
>      J{1651}
>      P{1653}
>      L{1657}
>      J{1659}
>      ROW{1661}
>      X{1662}
>      I{1663}
>      J{1664}
>      V{1665}
>      M{1666}
>      I{1670}
>      A{1672}
>      V{1673}
>      J{1674}
>      E{1675}
>      II{1691}
>      KK{1692}
>      J{1693}
>      ZJ{1694}
>      ZJ-SUM{1695}
>      MU{1696}
>      SIGMA{1697}
>      ZIJ{1698}
>      XI{1699}
>      X{2028}
>      X{3172}
>      X{3173}
>      X{3174}
>      X{3177}
>      X{3178}
>      X{3179}
>      X{3180}
>      X{3181}
>      X{3182}
>      X{3183}
>      PAIR{3196}
>      A{3201}
>      I{3202}
>      J{3203}
>      X{3204}
>      A{3205}
>      I{3206}
>      J{3207}
>      X{3208}
>      A{3209}
>      I{3210}
>      J{3211}
>      X{3212}
>      A{3249}
>      I{3250}
>      J{3251}
>      X{3252}
>      A{3253}
>      I{3254}
>      J{3255}
>      X{3256}
>      A{3257}
>      I{3258}
>      J{3259}
>      X{3260}
>      ZS{3261}
>      ZS{3264}
>      R{3265}
>      ZS{3276}
>      ZS{3279}
>      R{3280}
>      X{3286}
>      XS{3287}
>      R{3291}
>      U{3298}
>      M{3304}
>  E-STEP[898]
>    has region
>    has the following parameters:
>      X{1676} local
>      MODELS{1677} local
>    has the following in-lined locals:
>      X{954}
>      Y{955}
>      V{979}
>      U{980}
>      I{984}
>      V{1051}
>      U{1052}
>      I{1056}
>      V{1059}
>      U{1060}
>      I{1064}
>      V{1067}
>      U{1068}
>      I{1072}
>      V{1075}
>      U{1076}
>      I{1080}
>      V{1083}
>      U{1084}
>      I{1088}
>      V1{1151}
>      V2{1152}
>      U{1153}
>      I{1157}
>      V{1202}
>      I{1203}
>      N{1204}
>      I{1207}
>      C{1208}
>      V{1210}
>      I{1211}
>      N{1212}
>      I{1215}
>      C{1216}
>      E1{1282}
>      E2{1283}
>      E-MAX{1284}
>      E-MIN{1285}
>      FACTOR{1286}
>      A{1440}
>      B{1441}
>      A{1442}
>      V{1443}
>      U{1444}
>      Z{1678}
>      S{1679}
>      ZI{1680}
>      ZI{1681}
>      XI{1682}
>      MODEL{1683}
>      LOG-DETERMINANT-SIGMA{1684}
>      SIGMA-INVERSE{1685}
>      MU{1686}
>      LOG-PI{1687}
>      ZS{2006}
>      ZS{2009}
>      R{2010}
>      Z{2081}
>  ROTATE[825]
>    has the following parameters:
>      A{1622} local
>      I{1623} local
>      J{1624} local
>      K{1625} local
>      L{1626} local
>    has the following in-lined locals:
>      A{1426}
>      I{1427}
>      J{1428}
>      X{1429}
>      H{1627}
>      G{1628}
>      A{3197}
>      I{3198}
>      J{3199}
>      X{3200}
>  INVERT-MATRIX[685]
>    has the following parameter:
>      A{1515} local
>    has the following in-lined locals:
>      N{1308}
>      V{1309}
>      I{1313}
>      N{1316}
>      V{1317}
>      I{1321}
>      M{1402}
>      N{1403}
>      M{1405}
>      N{1406}
>      INITIAL{1407}
>      N{1517}
>      C{1518}
>      B{1519}
>      I{1525}
>      J{1529}
>      I{1533}
>      I{1537}
>      J{1544}
>      E{1548}
>      E{1550}
>      D{1552}
>      K{1556}
>      D{1558}
>      J{1561}
>      J{1566}
>      A{3213}
>      I{3214}
>      J{3215}
>      X{3216}
>      A{3217}
>      I{3218}
>      J{3219}
>      X{3220}
>      A{3221}
>      I{3222}
>      J{3223}
>      X{3224}
>      A{3225}
>      I{3226}
>      J{3227}
>      X{3228}
>      A{3229}
>      I{3230}
>      J{3231}
>      X{3232}
>      A{3233}
>      I{3234}
>      J{3235}
>      X{3236}
>  DETERMINANT[614]
>    has the following parameter:
>      A{1465} local
>    has the following in-lined locals:
>      N{1300}
>      V{1301}
>      I{1305}
>      M{1399}
>      N{1400}
>      N{1468}
>      B{1469}
>      D{1470}
>      I{1475}
>      J{1479}
>      I{1483}
>      INDEX{1485}
>      GREATEST{1486}
>      C{1490}
>      J{1495}
>      E{1497}
>      K{1500}
>      J{1504}
>      J{1508}
>      X{1510}
>      V{1512}
>      X{3175}
>      X{3176}
>      A{3237}
>      I{3238}
>      J{3239}
>      X{3240}
>      A{3241}
>      I{3242}
>      J{3243}
>      X{3244}
>      A{3245}
>      I{3246}
>      J{3247}
>      X{3248}
>  M*[610]
>    has the following parameters:
>      A{1459} local
>      B{1460} local
>    has the following in-lined locals:
>      V{1003}
>      U{1004}
>      I{1008}
>      V{1011}
>      U{1012}
>      I{1016}
>      U{1453}
>      V{1454}
>      UI{1455}
>      VJ{1456}
>  TRANSPOSE[601]
>    has the following parameter:
>      A{1445} local
>    has the following in-lined locals:
>      N{1348}
>      V{1349}
>      I{1353}
>      J{1446}
>  MATRIX-ROW-SET![596]
>    has the following parameters:
>      A{1435} local
>      I{1436} local
>      V{1437} local
>  MATRIX-COLUMN-REF[594]
>    has the following parameters:
>      A{1432} local
>      J{1433} local
>    has the following in-lined locals:
>      V{971}
>      U{972}
>      I{976}
>      V{1434}
>  MATRIX-ROW-REF[593]
>    has the following parameters:
>      A{1430} local
>      I{1431} local
>  MATRIX-REF[591]
>    has the following parameters:
>      A{1423} local
>      I{1424} local
>      J{1425} local
>  MATRIX-COLUMNS[590]
>    has the following parameter:
>      A{1422} local
>  MATRIX-ROWS[589]
>    has the following parameter:
>      A{1421} local
>  V-[433]
>    has the following parameters:
>      U{1277} local
>      V{1278} local
>    has the following in-lined locals:
>      V1{1133}
>      V2{1134}
>      U{1135}
>      I{1139}
>      Z{2016}
>      ZS{2017}
>      R{2021}
>  V+[432]
>    has the following parameters:
>      U{1275} local
>      V{1276} local
>    has the following in-lined locals:
>      V1{1124}
>      V2{1125}
>      U{1126}
>      I{1130}
>      ZS{3271}
>      ZS{3274}
>      R{3275}
>  DOT[431]
>    has region
>    has the following parameters:
>      U{1273} local
>      V{1274} local
>    has the following in-lined locals:
>      V1{1115}
>      V2{1116}
>      U{1117}
>      I{1121}
>      V{1194}
>      I{1195}
>      N{1196}
>      I{1199}
>      C{1200}
>      ZS{2011}
>      ZS{2014}
>      R{2015}
>      ZS{3266}
>      ZS{3269}
>      R{3270}
>  MAP-VECTOR9[148]
>    has the following parameters:
>      F{1026} local
>      V{1027} local
>    has the following in-lined locals:
>      U{1028}
>      I{1032}
>      E{1464}
>      E{3306}
>  MAP-VECTOR8[138]
>    has the following parameters:
>      F{1018} local
>      V{1019} local
>    has the following in-lined locals:
>      U{1020}
>      I{1024}
>      ROW{1463}
>      ROW{3305}
>  MAP-VECTOR1[68]
>    has the following parameters:
>      F{962} local
>      V{963} local
>    has the following in-lined locals:
>      U{964}
>      I{968}
>      X{1281}
>      X{3299}
>      X{3302}
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{933} local
>    has the following in-lined locals:
>      P{934}
>      ANS{935}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{923} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{921} local
>      N2{922} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{916} local
>    has the following in-lined locals:
>      S{919}
>      C{920}
>      CHAR{2189}
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{761}
>      RANDOM:MASK{762}
>      RANDOM:CHUNK-SIZE{763}
>      *MOST-POSITIVE-FIXNUM*{770}
>      I{913}
>      L{924}
>      TRIAL{925}
>      RANDOM-STRINGS{926}
>      NIBBLES{928}
>      I{931}
>      ILEN{940}
>      S{941}
>      SLOP{942}
>      N{945}
>      R{946}
>      X{948}
>      X{949}
>      X{950}
>      X{951}
>      X{956}
>      Y{957}
>      X{958}
>      X{960}
>      Y{961}
>      V{1091}
>      U{1092}
>      I{1096}
>      V{1099}
>      U{1100}
>      I{1104}
>      V{1107}
>      U{1108}
>      I{1112}
>      L{1187}
>      I{1188}
>      L{1191}
>      C{1192}
>      V{1242}
>      I{1243}
>      N{1244}
>      I{1247}
>      C{1248}
>      N{1288}
>      I{1291}
>      C{1292}
>      N{1294}
>      I{1297}
>      C{1298}
>      N{1364}
>      V{1365}
>      I{1369}
>      N{1372}
>      V{1373}
>      I{1377}
>      N{1380}
>      V{1381}
>      I{1385}
>      L{1388}
>      L{1391}
>      C{1392}
>      X{1393}
>      L{1394}
>      L{1397}
>      I{1398}
>      X{1700}
>      PI{1701}
>      MU{1702}
>      SIGMA{1703}
>      CLIP{1704}
>      EM-KICK-OFF-TOLERANCE{1705}
>      EM-CONVERGENCE-TOLERANCE{1706}
>      JJ{1707}
>      MODELS{1710}
>      OLD-LOG-LIKELIHOOD{1711}
>      STARTING?{1712}
>      LOG-LIKELIHOOD-Z{1713}
>      v{1714}
>      v{1715}
>      J{1716}
>      EPSILON{1717}
>      II{1718}
>      JJ{1719}
>      ZI{1721}
>      X{1723}
>      CLIP{1724}
>      EM-KICK-OFF-TOLERANCE{1725}
>      EM-CONVERGENCE-TOLERANCE{1726}
>      EMS-CONVERGENCE-TOLERANCE{1727}
>      JJ{1730}
>      OLD-LOG-LIKELIHOOD-MODELS{1731}
>      MODELS{1732}
>      NEW-LOG-LIKELIHOOD-MODELS{1733}
>      X{1734}
>      CLIP{1735}
>      EM-KICK-OFF-TOLERANCE{1736}
>      EM-CONVERGENCE-TOLERANCE{1737}
>      EMS-CONVERGENCE-TOLERANCE{1738}
>      Z{1739}
>      CLUSTERS{1740}
>      J{1741}
>      CLUSTER{1742}
>      CLUSTER{1743}
>      I{1744}
>      ZI{1745}
>      OBJ1{1748}
>      OBJ2{1749}
>      v{1750}
>      v{1751}
>      PAIR{1767}
>      LIST{1886}
>      LIST{1889}
>      R{1890}
>      X{1994}
>      XS{1995}
>      R{1999}
>      STRING{2366}
>      START{2367}
>      END{2368}
>      R{2369}
>      K{2373}
>      LIST1{2519}
>      LIST1{2523}
>      C{2524}
>      OBJ{3157}
>      PAIR{3184}
>      PAIR{3185}
>      PAIR{3186}
>      PAIR{3187}
>      PAIR{3188}
>      PAIR{3189}
>      PAIR{3190}
>      PAIR{3191}
>      PAIR{3192}
>      PAIR{3193}
>      PAIR{3194}
>      PAIR{3195}
>      ZS{3281}
>      ZS{3284}
>      R{3285}
>      U{3301}
>The following non-trivial in-line native procedures will be generated:
>  [clone [inside K*M 613] 3178]
>    has the following parameter:
>      E{3306} local
>  [clone [inside K*M 612] 3177]
>    has the following parameter:
>      ROW{3305} local
>  [clone K*M[611] 3176]
>    has the following parameters:
>      K{3303} global
>      M{3304} local
>  [clone [inside K*V 435] 3175]
>    has the following parameter:
>      X{3302} local
>  [clone K*V[434] 3174]
>    has the following parameters:
>      K{3300} global
>      U{3301} local
>  [clone [inside K*V 435] 3173]
>    has the following parameter:
>      X{3299} local
>  [clone K*V[434] 3172]
>    has the following parameters:
>      K{3297} global
>      U{3298} local
>  [clone LOOP[1249] 3170]
>    has the following parameters:
>      LIST{3295} local
>      R{3296} local
>  [clone LIST-REVERSE[1246] 3167]
>    has the following parameter:
>      LIST{3292} local
>  [clone LOOP[1380] 3165]
>    has the following parameter:
>      R{3291} local
>  [clone MAX[1377] 3162]
>    has the following parameters:
>      X{3286} local
>      XS{3287} local
>  [clone LOOP[1390] 3160]
>    has the following parameters:
>      ZS{3284} local
>      R{3285} local
>  [clone +[1387] 3157]
>    has the following parameter:
>      ZS{3281} local
>  [clone LOOP[1390] 3155]
>    has the following parameters:
>      ZS{3279} local
>      R{3280} local
>  [clone +[1387] 3152]
>    has the following parameter:
>      ZS{3276} local
>  [clone LOOP[1390] 3150]
>    has the following parameters:
>      ZS{3274} local
>      R{3275} local
>  [clone +[1387] 3147]
>    has the following parameter:
>      ZS{3271} local
>  [clone LOOP[1390] 3145]
>    has the following parameters:
>      ZS{3269} local
>      R{3270} local
>  [clone +[1387] 3142]
>    has the following parameter:
>      ZS{3266} local
>  [clone LOOP[1395] 3140]
>    has the following parameters:
>      ZS{3264} local
>      R{3265} local
>  [clone *[1392] 3137]
>    has the following parameter:
>      ZS{3261} local
>  [clone MATRIX-SET![592] 3136]
>    has the following parameters:
>      A{3257} local
>      I{3258} local
>      J{3259} local
>      X{3260} local
>  [clone MATRIX-SET![592] 3135]
>    has the following parameters:
>      A{3253} local
>      I{3254} local
>      J{3255} local
>      X{3256} local
>  [clone MATRIX-SET![592] 3134]
>    has the following parameters:
>      A{3249} local
>      I{3250} local
>      J{3251} local
>      X{3252} local
>  [clone MATRIX-SET![592] 3133]
>    has the following parameters:
>      A{3245} local
>      I{3246} local
>      J{3247} local
>      X{3248} local
>  [clone MATRIX-SET![592] 3132]
>    has the following parameters:
>      A{3241} local
>      I{3242} local
>      J{3243} local
>      X{3244} local
>  [clone MATRIX-SET![592] 3131]
>    has the following parameters:
>      A{3237} local
>      I{3238} local
>      J{3239} local
>      X{3240} local
>  [clone MATRIX-SET![592] 3130]
>    has the following parameters:
>      A{3233} local
>      I{3234} local
>      J{3235} local
>      X{3236} local
>  [clone MATRIX-SET![592] 3129]
>    has the following parameters:
>      A{3229} local
>      I{3230} local
>      J{3231} local
>      X{3232} local
>  [clone MATRIX-SET![592] 3128]
>    has the following parameters:
>      A{3225} local
>      I{3226} local
>      J{3227} local
>      X{3228} local
>  [clone MATRIX-SET![592] 3127]
>    has the following parameters:
>      A{3221} local
>      I{3222} local
>      J{3223} local
>      X{3224} local
>  [clone MATRIX-SET![592] 3126]
>    has the following parameters:
>      A{3217} local
>      I{3218} local
>      J{3219} local
>      X{3220} local
>  [clone MATRIX-SET![592] 3125]
>    has the following parameters:
>      A{3213} local
>      I{3214} local
>      J{3215} local
>      X{3216} local
>  [clone MATRIX-SET![592] 3124]
>    has the following parameters:
>      A{3209} local
>      I{3210} local
>      J{3211} local
>      X{3212} local
>  [clone MATRIX-SET![592] 3123]
>    has the following parameters:
>      A{3205} local
>      I{3206} local
>      J{3207} local
>      X{3208} local
>  [clone MATRIX-SET![592] 3122]
>    has the following parameters:
>      A{3201} local
>      I{3202} local
>      J{3203} local
>      X{3204} local
>  [clone MATRIX-SET![592] 3121]
>    has the following parameters:
>      A{3197} local
>      I{3198} local
>      J{3199} local
>      X{3200} local
>  [clone CAR[1096] 3120]
>    has the following parameter:
>      PAIR{3196} local
>  [clone CAR[1096] 3119]
>    has the following parameter:
>      PAIR{3195} local
>  [clone CAR[1096] 3118]
>    has the following parameter:
>      PAIR{3194} local
>  [clone CAR[1096] 3117]
>    has the following parameter:
>      PAIR{3193} local
>  [clone CAR[1096] 3116]
>    has the following parameter:
>      PAIR{3192} local
>  [clone CAR[1096] 3115]
>    has the following parameter:
>      PAIR{3191} local
>  [clone CAR[1096] 3114]
>    has the following parameter:
>      PAIR{3190} local
>  [clone CAR[1096] 3113]
>    has the following parameter:
>      PAIR{3189} local
>  [clone CAR[1096] 3112]
>    has the following parameter:
>      PAIR{3188} local
>  [clone CAR[1096] 3111]
>    has the following parameter:
>      PAIR{3187} local
>  [clone CAR[1096] 3110]
>    has the following parameter:
>      PAIR{3186} local
>  [clone CAR[1096] 3109]
>    has the following parameter:
>      PAIR{3185} local
>  [clone CAR[1096] 3108]
>    has the following parameter:
>      PAIR{3184} local
>  [clone ABS[1407] 3107]
>    has the following parameter:
>      X{3183} local
>  [clone ABS[1407] 3106]
>    has the following parameter:
>      X{3182} local
>  [clone ABS[1407] 3105]
>    has the following parameter:
>      X{3181} local
>  [clone ABS[1407] 3104]
>    has the following parameter:
>      X{3180} local
>  [clone ABS[1407] 3103]
>    has the following parameter:
>      X{3179} local
>  [clone ABS[1407] 3102]
>    has the following parameter:
>      X{3178} local
>  [clone ABS[1407] 3101]
>    has the following parameter:
>      X{3177} local
>  [clone ABS[1407] 3100]
>    has the following parameter:
>      X{3176} local
>  [clone ABS[1407] 3099]
>    has the following parameter:
>      X{3175} local
>  [clone ABS[1407] 3098]
>    has the following parameter:
>      X{3174} local
>  [clone ABS[1407] 3097]
>    has the following parameter:
>      X{3173} local
>  [clone ABS[1407] 3096]
>    has the following parameter:
>      X{3172} local
>  WRITE[2845]
>    has the following parameter:
>      OBJ{3157} local
>  [inside LOOP 2476] reentrant
>  [inside LOOP 2475] reentrant
>  LOOP[2474] reentrant
>    has the following parameter:
>      I{2931} local
>  [inside WRITE2 2471] reentrant
>  [inside WRITE2 2470] reentrant
>  [inside WRITE2 2468] reentrant
>  [inside LOOP 2465] reentrant
>  [inside LOOP 2464] reentrant
>  [inside LOOP 2463] reentrant
>  [inside LOOP 2461] reentrant
>  LOOP[2460] reentrant
>    has the following parameter:
>      OBJ{2919} local
>  [inside WRITE2 2457] reentrant
>  [inside WRITE2 2456] reentrant
>  LOOP[2425]
>    has the following parameters:
>      MANTISSA{2901} local
>      EXPONENT{2902} local
>  LOOP[2420]
>    has the following parameters:
>      MANTISSA{2897} local
>      EXPONENT{2898} local
>  DISPLAY-INEXACT-REAL2[2411]
>    has the following parameters:
>      NUMBER{2892} local
>      PORT{2893} local
>  [inside LOOP 2408]
>    has the following parameter:
>      MANTISSA{2891} local
>  [inside LOOP 2405]
>    has the following parameter:
>      DIGIT{2889} local
>  [inside LOOP 2404]
>    has the following parameter:
>      FLOAT-DIGIT{2888} local
>  LOOP[2403]
>    has the following parameter:
>      MANTISSA{2887} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2392]
>    has the following parameter:
>      DIGIT{2880} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2391]
>    has the following parameter:
>      FLOAT-DIGIT{2879} local
>  LOOP[2382]
>    has the following parameter:
>      I{2873} local
>  LOOP[2379]
>    has the following parameters:
>      I{2869} local
>      NUMBER{2870} local
>  LOOP[2368]
>    has the following parameter:
>      I{2863} local
>  LOOP[2365]
>    has the following parameters:
>      I{2859} local
>      NUMBER{2860} local
>  LOOP[2356]
>    has the following parameter:
>      I{2853} local
>  [inside DISPLAY-STRING2 2353]
>    has the following parameter:
>      N{2850} local
>  [inside top level 2348]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2809} global
>      BUFFER{2811} global
>  LOOP[1872]
>    has region
>    has the following parameters:
>      LIST1{2523} local
>      C{2524} local
>  MAP[1868]
>    has the following parameter:
>      LIST1{2519} local
>  VECTOR->LIST[1782]
>    has the following parameter:
>      VECTOR{2448} global
>  [inside STRING->LIST 1717]
>    has the following parameter:
>      N{2394} global
>  STRING->LIST[1716]
>    has the following parameter:
>      STRING{2393} global
>  LOOP[1688]
>    has the following parameter:
>      K{2373} local
>  [inside SUBSTRING 1684]
>    has the following parameter:
>      R{2369} local
>  SUBSTRING[1683]
>    has the following parameters:
>      STRING{2366} local
>      START{2367} local
>      END{2368} local
>  [inside top level 1542]
>    has the following parameter:
>      CHAR{2189} local
>  [inside top level 1541]
>    has the following parameter:
>      CHAR-NUMERIC?{2188} global
>  EXP[1461]
>    has the following parameter:
>      Z{2081} local
>  [inside MODULO 1411]
>    has the following parameter:
>      v{2035} local
>  ABS[1407]
>    has the following parameter:
>      X{2028} local
>  LOOP[1400]
>    has the following parameter:
>      R{2021} local
>  -[1397]
>    has the following parameters:
>      Z{2016} local
>      ZS{2017} local
>  LOOP[1395]
>    has the following parameters:
>      ZS{2014} local
>      R{2015} local
>  *[1392]
>    has the following parameter:
>      ZS{2011} local
>  LOOP[1390]
>    has the following parameters:
>      ZS{2009} local
>      R{2010} local
>  +[1387]
>    has the following parameter:
>      ZS{2006} local
>  LOOP[1380]
>    has the following parameter:
>      R{1999} local
>  MAX[1377]
>    has the following parameters:
>      X{1994} local
>      XS{1995} local
>  LOOP[1249]
>    has the following parameters:
>      LIST{1889} local
>      R{1890} local
>  LIST-REVERSE[1246]
>    has the following parameter:
>      LIST{1886} local
>  CAR[1096]
>    has the following parameter:
>      PAIR{1767} local
>  [inside EQV? 1082]
>    has the following parameter:
>      v{1751} local
>  [inside EQV? 1081]
>    has the following parameter:
>      v{1750} local
>  EQV?[1080]
>    has the following parameters:
>      OBJ1{1748} local
>      OBJ2{1749} local
>  [inside EM-CLUSTERER 948]
>    has the following parameter:
>      ZI{1745} local
>  [inside EM-CLUSTERER 947]
>    has region
>    has the following parameter:
>      I{1744} local
>  [inside EM-CLUSTERER 946]
>    has the following parameter:
>      CLUSTER{1743} local
>  [inside EM-CLUSTERER 945]
>    has the following parameter:
>      CLUSTER{1742} local
>  [inside EM-CLUSTERER 944]
>    has the following parameter:
>      J{1741} local
>  [inside EM-CLUSTERER 942]
>    has the following parameter:
>      CLUSTERS{1740} local
>  [inside EM-CLUSTERER 941]
>    has the following parameter:
>      Z{1739} local
>  EM-CLUSTERER[940]
>    has region
>    has the following parameters:
>      X{1734} local
>      CLIP{1735} local
>      EM-KICK-OFF-TOLERANCE{1736} local
>      EM-CONVERGENCE-TOLERANCE{1737} local
>      EMS-CONVERGENCE-TOLERANCE{1738} local
>  [inside LOOP 937]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD-MODELS{1733} local
>  [inside LOOP 936]
>    has the following parameter:
>      MODELS{1732} local
>  LOOP[935]
>    has region
>    has the following parameters:
>      JJ{1730} local
>      OLD-LOG-LIKELIHOOD-MODELS{1731} local
>  EMS[932]
>    has region
>    has the following parameters:
>      X{1723} local
>      CLIP{1724} local
>      EM-KICK-OFF-TOLERANCE{1725} local
>      EM-CONVERGENCE-TOLERANCE{1726} local
>      EMS-CONVERGENCE-TOLERANCE{1727} local
>  [inside INITIAL-Z 930]
>    has the following parameter:
>      ZI{1721} local
>  [inside INITIAL-Z 929]
>    has region
>  INITIAL-Z[928]
>    has the following parameters:
>      II{1718} local
>      JJ{1719} local
>  NOISE[927]
>    has the following parameter:
>      EPSILON{1717} local
>  [inside EM 926]
>    has the following parameter:
>      J{1716} local
>  [inside LOOP 924]
>    has the following parameter:
>      v{1715} local
>  [inside LOOP 923]
>    has the following parameter:
>      v{1714} local
>  [inside LOOP 922]
>    has the following parameter:
>      LOG-LIKELIHOOD-Z{1713} local
>  LOOP[921]
>    has the following parameters:
>      MODELS{1710} local
>      OLD-LOG-LIKELIHOOD{1711} local
>      STARTING?{1712} local
>  [inside EM 918]
>    has the following parameter:
>      JJ{1707} local
>  EM[917]
>    has the following parameters:
>      X{1700} local
>      PI{1701} local
>      MU{1702} local
>      SIGMA{1703} local
>      CLIP{1704} local
>      EM-KICK-OFF-TOLERANCE{1705} local
>      EM-CONVERGENCE-TOLERANCE{1706} local
>  [inside M-STEP 916]
>    has region
>    has the following parameters:
>      ZIJ{1698} local
>      XI{1699} local
>  [inside M-STEP 914]
>    has the following parameter:
>      SIGMA{1697} local
>  [inside M-STEP 913]
>    has region
>    has the following parameter:
>      MU{1696} local
>  [inside M-STEP 912]
>    has region
>    has the following parameter:
>      ZJ-SUM{1695} local
>  [inside M-STEP 911]
>    has the following parameter:
>      ZJ{1694} local
>  [inside M-STEP 910]
>    has the following parameter:
>      J{1693} local
>  [inside M-STEP 908]
>    has the following parameter:
>      KK{1692} local
>  [inside M-STEP 907]
>    has the following parameter:
>      II{1691} local
>  [inside E-STEP 905]
>    has region
>    has the following parameters:
>      LOG-DETERMINANT-SIGMA{1684} local
>      SIGMA-INVERSE{1685} local
>      MU{1686} local
>      LOG-PI{1687} local
>  [inside E-STEP 904]
>    has the following parameter:
>      MODEL{1683} local
>  [inside E-STEP 903]
>    has the following parameter:
>      XI{1682} local
>  [inside E-STEP 902]
>    has the following parameter:
>      ZI{1681} local
>  [inside E-STEP 901]
>    has the following parameter:
>      ZI{1680} local
>  [inside E-STEP 900]
>    has region
>    has the following parameter:
>      S{1679} local
>  [inside E-STEP 899]
>    has region
>    has the following parameter:
>      Z{1678} local
>  [inside CLIP-EIGENVALUES 897]
>    has region
>  [inside CLIP-EIGENVALUES 896]
>    has the following parameter:
>      E{1675} local
>  [inside CLIP-EIGENVALUES 895]
>    has the following parameter:
>      J{1674} local
>  CLIP-EIGENVALUES[894]
>    has region
>    has the following parameters:
>      A{1672} local
>      V{1673} local
>  loop[889]
>    has the following parameter:
>      I{1670} local
>  [inside VECTOR->DIAGONAL-MATRIX 885]
>    has the following parameter:
>      M{1666} local
>  VECTOR->DIAGONAL-MATRIX[884]
>    has the following parameter:
>      V{1665} local
>  [inside JACOBI 882]
>    has the following parameter:
>      J{1664} local
>  [inside JACOBI 881]
>    has the following parameter:
>      I{1663} local
>  [inside JACOBI 880]
>    has the following parameter:
>      X{1662} local
>  [inside JACOBI 879]
>    has the following parameter:
>      ROW{1661} local
>  [inside loop 872]
>    has the following parameter:
>      J{1659} local
>  loop[868]
>    has the following parameter:
>      L{1657} local
>  [inside loop 862]
>    has the following parameter:
>      P{1653} local
>  loop[858]
>    has the following parameter:
>      J{1651} local
>  [inside loop 852]
>    has the following parameters:
>      P{1644} local
>      K{1645} local
>  loop[848]
>    has the following parameter:
>      I{1642} local
>  [inside LOOP 843]
>    has the following parameter:
>      IQ{1639} local
>  [inside LOOP 842]
>    has the following parameter:
>      IR{1638} local
>  [inside LOOP 841]
>    has the following parameter:
>      IP{1637} local
>  loop[835]
>    has the following parameter:
>      IP{1633} local
>  [inside loop 829]
>    has the following parameter:
>      THETA{1630} local
>  [inside ROTATE 826]
>    has the following parameters:
>      H{1627} local
>      G{1628} local
>  loop[816]
>    has the following parameter:
>      J{1619} local
>  [inside loop 810]
>    has the following parameter:
>      H{1609} local
>  [inside loop 809]
>    has the following parameter:
>      TAU{1608} global
>  [inside loop 808]
>    has the following parameter:
>      S{1607} global
>  [inside loop 807]
>    has the following parameter:
>      C{1606} local
>  [inside loop 806]
>    has the following parameter:
>      T{1605} local
>  [inside loop 805]
>    has the following parameter:
>      H{1604} local
>  [inside loop 801]
>    has the following parameter:
>      G{1603} local
>  [inside loop 800]
>    has the following parameter:
>      IQ{1602} local
>  loop[796]
>    has the following parameter:
>      IR{1600} local
>  loop[790]
>    has the following parameter:
>      IP{1596} local
>  [inside LOOP 787]
>    has the following parameter:
>      TRESH{1593} local
>  [inside LOOP 784]
>    has the following parameter:
>      SM{1590} local
>  LOOP[782]
>    has the following parameter:
>      I{1588} local
>  loop[775]
>    has the following parameter:
>      IP{1582} local
>  [inside JACOBI 770]
>    has the following parameter:
>      Z{1576} local
>  [inside JACOBI 769]
>    has region
>    has the following parameter:
>      B{1575} local
>  [inside JACOBI 768]
>    has region
>    has the following parameter:
>      V{1574} local
>  [inside JACOBI 767]
>    has region
>    has the following parameter:
>      D{1573} local
>  [inside JACOBI 766]
>    has the following parameter:
>      N{1572} local
>  [inside JACOBI 765]
>    has the following parameter:
>      A{1571} local
>  [inside JACOBI 764]
>    has region
>  JACOBI[763]
>    has the following parameter:
>      A{1569} local
>  loop[756]
>    has the following parameter:
>      J{1566} local
>  loop[747]
>    has the following parameter:
>      J{1561} local
>  [inside loop 744]
>    has the following parameter:
>      D{1558} local
>  loop[740]
>    has the following parameter:
>      K{1556} local
>  [inside loop 736]
>    has the following parameter:
>      D{1552} local
>  [inside loop 731]
>    has the following parameter:
>      E{1550} local
>  [inside loop 729]
>    has the following parameter:
>      E{1548} local
>  loop[723]
>    has the following parameter:
>      J{1544} local
>  loop[715]
>    has the following parameter:
>      I{1537} local
>  loop[708]
>    has the following parameter:
>      I{1533} local
>  loop[700]
>    has the following parameter:
>      J{1529} local
>  loop[694]
>    has the following parameter:
>      I{1525} local
>  [inside INVERT-MATRIX 689]
>    has the following parameter:
>      B{1519} local
>  [inside INVERT-MATRIX 688]
>    has the following parameter:
>      C{1518} local
>  [inside INVERT-MATRIX 687]
>    has region
>    has the following parameter:
>      N{1517} local
>  [inside loop 680]
>    has the following parameter:
>      V{1512} local
>  [inside loop 674]
>    has the following parameter:
>      X{1510} local
>  loop[670]
>    has the following parameter:
>      J{1508} local
>  loop[663]
>    has the following parameter:
>      J{1504} local
>  loop[655]
>    has the following parameter:
>      K{1500} local
>  [inside loop 652]
>    has the following parameter:
>      E{1497} local
>  loop[648]
>    has the following parameter:
>      J{1495} local
>  [inside loop 644]
>    has the following parameter:
>      C{1490} local
>  [inside loop 642]
>    has the following parameters:
>      INDEX{1485} local
>      GREATEST{1486} local
>  loop[638]
>    has the following parameter:
>      I{1483} local
>  loop[630]
>    has the following parameter:
>      J{1479} local
>  loop[624]
>    has the following parameter:
>      I{1475} local
>  [inside DETERMINANT 619]
>    has the following parameter:
>      D{1470} local
>  [inside DETERMINANT 618]
>    has the following parameter:
>      B{1469} local
>  [inside DETERMINANT 617]
>    has region
>    has the following parameter:
>      N{1468} local
>  [inside K*M 613]
>    has the following parameter:
>      E{1464} local
>  [inside K*M 612]
>    has the following parameter:
>      ROW{1463} local
>  K*M[611]
>    has the following parameters:
>      K{1461} global
>      M{1462} local
>  SELF-OUTER-PRODUCT[609]
>    has the following parameter:
>      V{1458} local
>  [inside OUTER-PRODUCT2 608]
>    has the following parameter:
>      VJ{1456} local
>  [inside OUTER-PRODUCT2 607]
>    has the following parameter:
>      UI{1455} local
>  OUTER-PRODUCT2[606]
>    has the following parameters:
>      U{1453} local
>      V{1454} local
>  [inside OUTER-PRODUCT1 605]
>    has region
>    has the following parameter:
>      VJ{1451} local
>  [inside OUTER-PRODUCT1 604]
>    has the following parameter:
>      UI{1450} local
>  OUTER-PRODUCT1[603]
>    has the following parameters:
>      U{1448} local
>      V{1449} local
>  [inside TRANSPOSE 602]
>    has the following parameter:
>      J{1446} local
>  [inside M*V 600]
>    has the following parameter:
>      U{1444} local
>  M*V[599]
>    has the following parameters:
>      A{1442} local
>      V{1443} local
>  M-[598]
>    has the following parameters:
>      A{1440} local
>      B{1441} local
>  M+[597]
>    has the following parameters:
>      A{1438} local
>      B{1439} local
>  [inside MATRIX-COLUMN-REF 595]
>    has the following parameter:
>      V{1434} local
>  MATRIX-SET![592]
>    has the following parameters:
>      A{1426} local
>      I{1427} local
>      J{1428} local
>      X{1429} local
>  MAKE-MATRIX-INITIAL4[587]
>    has the following parameters:
>      M{1417} local
>      N{1418} local
>      INITIAL{1419} local
>  MAKE-MATRIX-INITIAL3[585]
>    has the following parameters:
>      M{1413} local
>      N{1414} local
>      INITIAL{1415} local
>  MAKE-MATRIX-INITIAL2[583]
>    has the following parameters:
>      M{1409} local
>      N{1410} local
>      INITIAL{1411} local
>  MAKE-MATRIX-INITIAL1[581]
>    has the following parameters:
>      M{1405} local
>      N{1406} local
>      INITIAL{1407} local
>  MAKE-MATRIX2[579]
>    has the following parameters:
>      M{1402} local
>      N{1403} local
>  MAKE-MATRIX1[577]
>    has the following parameters:
>      M{1399} local
>      N{1400} local
>  LOOP[572]
>    has the following parameters:
>      L{1397} local
>      I{1398} local
>  POSITIONV[569]
>    has the following parameters:
>      X{1393} local
>      L{1394} local
>  LOOP[564]
>    has region
>    has the following parameters:
>      L{1391} local
>      C{1392} local
>  REMOVE-IF-NOT[561]
>    has the following parameter:
>      L{1388} local
>  LOOP[556]
>    has the following parameter:
>      I{1385} local
>  [inside MAP-N-VECTOR11 552]
>    has the following parameter:
>      V{1381} local
>  MAP-N-VECTOR11[551]
>    has the following parameter:
>      N{1380} local
>  LOOP[546]
>    has the following parameter:
>      I{1377} local
>  [inside MAP-N-VECTOR10 542]
>    has the following parameter:
>      V{1373} local
>  MAP-N-VECTOR10[541]
>    has the following parameter:
>      N{1372} local
>  LOOP[536]
>    has the following parameter:
>      I{1369} local
>  [inside MAP-N-VECTOR9 532]
>    has the following parameter:
>      V{1365} local
>  MAP-N-VECTOR9[531]
>    has the following parameter:
>      N{1364} local
>  LOOP[526]
>    has the following parameter:
>      I{1361} local
>  [inside MAP-N-VECTOR8 522]
>    has the following parameter:
>      V{1357} local
>  MAP-N-VECTOR8[521]
>    has the following parameter:
>      N{1356} local
>  LOOP[516]
>    has the following parameter:
>      I{1353} local
>  [inside MAP-N-VECTOR7 512]
>    has the following parameter:
>      V{1349} local
>  MAP-N-VECTOR7[511]
>    has the following parameter:
>      N{1348} local
>  LOOP[506]
>    has the following parameter:
>      I{1345} local
>  [inside MAP-N-VECTOR6 502]
>    has the following parameter:
>      V{1341} local
>  MAP-N-VECTOR6[501]
>    has the following parameter:
>      N{1340} local
>  LOOP[496]
>    has the following parameter:
>      I{1337} local
>  [inside MAP-N-VECTOR5 492]
>    has the following parameter:
>      V{1333} local
>  MAP-N-VECTOR5[491]
>    has the following parameter:
>      N{1332} local
>  LOOP[486]
>    has the following parameter:
>      I{1329} local
>  [inside MAP-N-VECTOR4 482]
>    has the following parameter:
>      V{1325} local
>  MAP-N-VECTOR4[481]
>    has the following parameter:
>      N{1324} local
>  LOOP[476]
>    has the following parameter:
>      I{1321} local
>  [inside MAP-N-VECTOR3 472]
>    has the following parameter:
>      V{1317} local
>  MAP-N-VECTOR3[471]
>    has the following parameter:
>      N{1316} local
>  LOOP[466]
>    has the following parameter:
>      I{1313} local
>  [inside MAP-N-VECTOR2 462]
>    has the following parameter:
>      V{1309} local
>  MAP-N-VECTOR2[461]
>    has the following parameter:
>      N{1308} local
>  LOOP[456]
>    has the following parameter:
>      I{1305} local
>  [inside MAP-N-VECTOR1 452]
>    has the following parameter:
>      V{1301} local
>  MAP-N-VECTOR1[451]
>    has the following parameter:
>      N{1300} local
>  LOOP[449]
>    has region
>    has the following parameters:
>      I{1297} local
>      C{1298} local
>  MAP-N2[446]
>    has the following parameter:
>      N{1294} local
>  LOOP[444]
>    has region
>    has the following parameters:
>      I{1291} local
>      C{1292} local
>  MAP-N1[441]
>    has the following parameter:
>      N{1288} local
>  [inside ADD-EXP 439]
>    has the following parameter:
>      FACTOR{1286} local
>  [inside ADD-EXP 438]
>    has the following parameter:
>      E-MIN{1285} local
>  [inside ADD-EXP 437]
>    has the following parameter:
>      E-MAX{1284} local
>  ADD-EXP[436]
>    has the following parameters:
>      E1{1282} local
>      E2{1283} local
>  [inside K*V 435]
>    has the following parameter:
>      X{1281} local
>  K*V[434]
>    has the following parameters:
>      K{1279} global
>      U{1280} local
>  LOOP[429]
>    has the following parameters:
>      N{1271} local
>      C{1272} local
>  SUM2[426]
>    has the following parameter:
>      N{1268} local
>  LOOP[424]
>    has the following parameters:
>      N{1265} local
>      C{1266} local
>  SUM1[421]
>    has the following parameter:
>      N{1262} local
>  [inside LOOP 419]
>    has the following parameter:
>      v{1260} local
>  LOOP[418]
>    has the following parameter:
>      I{1259} local
>  EVERY-N2[415]
>    has the following parameter:
>      N{1256} local
>  [inside LOOP 413]
>    has the following parameter:
>      v{1254} local
>  LOOP[412]
>    has the following parameter:
>      I{1253} local
>  EVERY-N1[409]
>    has the following parameter:
>      N{1250} local
>  LOOP[407]
>    has region
>    has the following parameters:
>      I{1247} local
>      C{1248} local
>  [inside REDUCE-VECTOR7 401]
>    has the following parameter:
>      N{1244} local
>  REDUCE-VECTOR7[400]
>    has the following parameters:
>      V{1242} local
>      I{1243} local
>  LOOP[398]
>    has the following parameters:
>      I{1239} local
>      C{1240} local
>  [inside REDUCE-VECTOR6 392]
>    has the following parameter:
>      N{1236} local
>  REDUCE-VECTOR6[391]
>    has the following parameters:
>      V{1234} local
>      I{1235} local
>  LOOP[389]
>    has the following parameters:
>      I{1231} local
>      C{1232} local
>  [inside REDUCE-VECTOR5 383]
>    has the following parameter:
>      N{1228} local
>  REDUCE-VECTOR5[382]
>    has the following parameters:
>      V{1226} local
>      I{1227} local
>  LOOP[380]
>    has the following parameters:
>      I{1223} local
>      C{1224} local
>  [inside REDUCE-VECTOR4 374]
>    has the following parameter:
>      N{1220} local
>  REDUCE-VECTOR4[373]
>    has the following parameters:
>      V{1218} local
>      I{1219} local
>  LOOP[371]
>    has the following parameters:
>      I{1215} local
>      C{1216} local
>  [inside REDUCE-VECTOR3 365]
>    has the following parameter:
>      N{1212} local
>  REDUCE-VECTOR3[364]
>    has the following parameters:
>      V{1210} local
>      I{1211} local
>  LOOP[362]
>    has the following parameters:
>      I{1207} local
>      C{1208} local
>  [inside REDUCE-VECTOR2 356]
>    has the following parameter:
>      N{1204} local
>  REDUCE-VECTOR2[355]
>    has the following parameters:
>      V{1202} local
>      I{1203} local
>  LOOP[353]
>    has the following parameters:
>      I{1199} local
>      C{1200} local
>  [inside REDUCE-VECTOR1 347]
>    has the following parameter:
>      N{1196} local
>  REDUCE-VECTOR1[346]
>    has the following parameters:
>      V{1194} local
>      I{1195} local
>  LOOP[344]
>    has region
>    has the following parameters:
>      L{1191} local
>      C{1192} local
>  REDUCE[338]
>    has the following parameters:
>      L{1187} local
>      I{1188} local
>  loop[333]
>    has the following parameter:
>      I{1184} local
>  [inside MAP-VECTOR-TWO8 329]
>    has the following parameter:
>      U{1180} local
>  MAP-VECTOR-TWO8[328]
>    has the following parameters:
>      V1{1178} local
>      V2{1179} local
>  loop[323]
>    has the following parameter:
>      I{1175} local
>  [inside MAP-VECTOR-TWO7 319]
>    has the following parameter:
>      U{1171} local
>  MAP-VECTOR-TWO7[318]
>    has the following parameters:
>      V1{1169} local
>      V2{1170} local
>  loop[313]
>    has region
>    has the following parameter:
>      I{1166} local
>  [inside MAP-VECTOR-TWO6 309]
>    has the following parameter:
>      U{1162} local
>  MAP-VECTOR-TWO6[308]
>    has the following parameters:
>      V1{1160} local
>      V2{1161} local
>  loop[303]
>    has the following parameter:
>      I{1157} local
>  [inside MAP-VECTOR-TWO5 299]
>    has the following parameter:
>      U{1153} local
>  MAP-VECTOR-TWO5[298]
>    has the following parameters:
>      V1{1151} local
>      V2{1152} local
>  loop[293]
>    has the following parameter:
>      I{1148} local
>  [inside MAP-VECTOR-TWO4 289]
>    has the following parameter:
>      U{1144} local
>  MAP-VECTOR-TWO4[288]
>    has the following parameters:
>      V1{1142} local
>      V2{1143} local
>  loop[283]
>    has region
>    has the following parameter:
>      I{1139} local
>  [inside MAP-VECTOR-TWO3 279]
>    has the following parameter:
>      U{1135} local
>  MAP-VECTOR-TWO3[278]
>    has the following parameters:
>      V1{1133} local
>      V2{1134} local
>  loop[273]
>    has region
>    has the following parameter:
>      I{1130} local
>  [inside MAP-VECTOR-TWO2 269]
>    has the following parameter:
>      U{1126} local
>  MAP-VECTOR-TWO2[268]
>    has the following parameters:
>      V1{1124} local
>      V2{1125} local
>  loop[263]
>    has region
>    has the following parameter:
>      I{1121} local
>  [inside MAP-VECTOR-TWO1 259]
>    has the following parameter:
>      U{1117} local
>  MAP-VECTOR-TWO1[258]
>    has the following parameters:
>      V1{1115} local
>      V2{1116} local
>  loop[253]
>    has the following parameter:
>      I{1112} local
>  [inside MAP-VECTOR19 249]
>    has the following parameter:
>      U{1108} local
>  MAP-VECTOR19[248]
>    has the following parameter:
>      V{1107} local
>  loop[243]
>    has the following parameter:
>      I{1104} local
>  [inside MAP-VECTOR18 239]
>    has the following parameter:
>      U{1100} local
>  MAP-VECTOR18[238]
>    has the following parameter:
>      V{1099} local
>  loop[233]
>    has the following parameter:
>      I{1096} local
>  [inside MAP-VECTOR17 229]
>    has the following parameter:
>      U{1092} local
>  MAP-VECTOR17[228]
>    has the following parameter:
>      V{1091} local
>  loop[223]
>    has the following parameter:
>      I{1088} local
>  [inside MAP-VECTOR16 219]
>    has the following parameter:
>      U{1084} local
>  MAP-VECTOR16[218]
>    has the following parameter:
>      V{1083} local
>  loop[213]
>    has the following parameter:
>      I{1080} local
>  [inside MAP-VECTOR15 209]
>    has the following parameter:
>      U{1076} local
>  MAP-VECTOR15[208]
>    has the following parameter:
>      V{1075} local
>  loop[203]
>    has the following parameter:
>      I{1072} local
>  [inside MAP-VECTOR14 199]
>    has the following parameter:
>      U{1068} local
>  MAP-VECTOR14[198]
>    has the following parameter:
>      V{1067} local
>  loop[193]
>    has the following parameter:
>      I{1064} local
>  [inside MAP-VECTOR13 189]
>    has the following parameter:
>      U{1060} local
>  MAP-VECTOR13[188]
>    has the following parameter:
>      V{1059} local
>  loop[183]
>    has the following parameter:
>      I{1056} local
>  [inside MAP-VECTOR12 179]
>    has the following parameter:
>      U{1052} local
>  MAP-VECTOR12[178]
>    has the following parameter:
>      V{1051} local
>  loop[173]
>    has the following parameter:
>      I{1048} local
>  [inside MAP-VECTOR11 169]
>    has the following parameter:
>      U{1044} local
>  MAP-VECTOR11[168]
>    has the following parameter:
>      V{1043} local
>  loop[163]
>    has the following parameter:
>      I{1040} local
>  [inside MAP-VECTOR10 159]
>    has the following parameter:
>      U{1036} local
>  MAP-VECTOR10[158]
>    has the following parameter:
>      V{1035} local
>  loop[153]
>    has the following parameter:
>      I{1032} local
>  [inside MAP-VECTOR9 149]
>    has the following parameter:
>      U{1028} local
>  loop[143]
>    has the following parameter:
>      I{1024} local
>  [inside MAP-VECTOR8 139]
>    has the following parameter:
>      U{1020} local
>  loop[133]
>    has the following parameter:
>      I{1016} local
>  [inside MAP-VECTOR7 129]
>    has the following parameter:
>      U{1012} local
>  MAP-VECTOR7[128]
>    has the following parameter:
>      V{1011} local
>  loop[123]
>    has the following parameter:
>      I{1008} local
>  [inside MAP-VECTOR6 119]
>    has the following parameter:
>      U{1004} local
>  MAP-VECTOR6[118]
>    has the following parameter:
>      V{1003} local
>  loop[113]
>    has the following parameter:
>      I{1000} local
>  [inside MAP-VECTOR5 109]
>    has the following parameter:
>      U{996} local
>  MAP-VECTOR5[108]
>    has the following parameter:
>      V{995} local
>  loop[103]
>    has the following parameter:
>      I{992} local
>  [inside MAP-VECTOR4 99]
>    has the following parameter:
>      U{988} local
>  MAP-VECTOR4[98]
>    has the following parameter:
>      V{987} local
>  loop[93]
>    has the following parameter:
>      I{984} local
>  [inside MAP-VECTOR3 89]
>    has the following parameter:
>      U{980} local
>  MAP-VECTOR3[88]
>    has the following parameter:
>      V{979} local
>  loop[83]
>    has the following parameter:
>      I{976} local
>  [inside MAP-VECTOR2 79]
>    has the following parameter:
>      U{972} local
>  MAP-VECTOR2[78]
>    has the following parameter:
>      V{971} local
>  loop[73]
>    has the following parameter:
>      I{968} local
>  [inside MAP-VECTOR1 69]
>    has the following parameter:
>      U{964} local
>  LIST-TWO5[67]
>    has the following parameters:
>      X{960} local
>      Y{961} local
>  LIST-TWO4[66]
>    has the following parameter:
>      X{958} local
>  LIST-TWO3[65]
>    has the following parameters:
>      X{956} local
>      Y{957} local
>  LIST-TWO2[64]
>    has the following parameters:
>      X{954} local
>      Y{955} local
>  LIST-TWO1[63]
>    has the following parameters:
>      X{952} local
>      Y{953} local
>  SECOND5[62]
>    has the following parameter:
>      X{951} local
>  SECOND4[61]
>    has the following parameter:
>      X{950} local
>  SECOND3[60]
>    has the following parameter:
>      X{949} local
>  SECOND2[59]
>    has the following parameter:
>      X{948} local
>  SECOND1[58]
>    has the following parameter:
>      X{947} local
>  LOOP[51]
>    has the following parameters:
>      N{945} local
>      R{946} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{942} local
>  loop[46]
>    has the following parameters:
>      ILEN{940} local
>      S{941} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{935} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{934} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{931} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{928} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{926} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{925} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{924} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{919} local
>      C{920} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{913} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{757} global
>      LOG-MATH-PRECISION{758} global
>      *RANDOM-STATE*{761} local
>      RANDOM:MASK{762} local
>      RANDOM:CHUNK-SIZE{763} local
>      RANDOM:SIZE{765} global
>      RANDOM:TAP{766} global
>      LOGICAL:BOOLE-XOR{767} global
>      *MOST-POSITIVE-FIXNUM*{770} local
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[1872]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 947]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-functional-do-split-stalin.sc:842:26882, allocates on EM-CLUSTERER[940]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J)) (INVERT-MATRIX ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J))))
>The following expression, em-functional-do-split-stalin.sc:818:26293, allocates on [inside M-STEP 912]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.0)
>The following expression, em-functional-do-split-stalin.sc:830:26560, allocates on EM-CLUSTERER[940]:
>(MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) ((PRIMITIVE-PROCEDURE /) ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA)))
>The following expression, em-functional-do-split-stalin.sc:804:25862, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S)
>The following expression, em-functional-do-split-stalin.sc:687:21877, allocates on CLIP-EIGENVALUES[894]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:689:21934, allocates on [inside JACOBI 768]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:690:21955, allocates on [inside JACOBI 769]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-functional-do-split-stalin.sc:594:18584, allocates on [inside OUTER-PRODUCT1 605]:
>(F UI VJ)
>The following expression, em-functional-do-split-stalin.sc:568:17810, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-do-split-stalin.sc:565:17709, allocates on [inside CLIP-EIGENVALUES 897]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-do-split-stalin.sc:562:17608, allocates on [inside JACOBI 767]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-do-split-stalin.sc:559:17507, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-functional-do-split-stalin.sc:556:17414, allocates on [inside INVERT-MATRIX 687]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:554:17338, allocates on [inside DETERMINANT 617]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:545:17101, allocates on LOOP[564]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-functional-do-split-stalin.sc:534:16822, allocates on [inside INITIAL-Z 929]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:526:16660, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:518:16498, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:510:16337, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:502:16176, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:494:16015, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:486:15854, allocates on [inside CLIP-EIGENVALUES 897]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:478:15693, allocates on [inside JACOBI 767]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:470:15532, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:462:15371, allocates on [inside INVERT-MATRIX 687]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:454:15210, allocates on [inside DETERMINANT 617]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-functional-do-split-stalin.sc:451:15140, allocates on LOOP[449]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-do-split-stalin.sc:446:14994, allocates on LOOP[444]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-functional-do-split-stalin.sc:408:13967, allocates on LOOP[407]:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-do-split-stalin.sc:387:13295, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-do-split-stalin.sc:380:13071, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-do-split-stalin.sc:366:12623, allocates on the stack:
>(F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I))
>The following expression, em-functional-do-split-stalin.sc:359:12407, allocates on LOOP[344]:
>(F C (FIRST L))
>The following expression, em-functional-do-split-stalin.sc:350:12084, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:343:11822, allocates on [inside M-STEP 912]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:336:11560, allocates on [inside CLIP-EIGENVALUES 897]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:338:11664, allocates on loop[313]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-do-split-stalin.sc:329:11298, allocates on [inside E-STEP 900]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:322:11036, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:315:10774, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:317:10878, allocates on loop[283]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-do-split-stalin.sc:308:10512, allocates on [inside M-STEP 912]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:310:10616, allocates on loop[273]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-do-split-stalin.sc:301:10250, allocates on DOT[431]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1))
>The following expression, em-functional-do-split-stalin.sc:303:10354, allocates on loop[263]:
>(F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I))
>The following expression, em-functional-do-split-stalin.sc:294:10009, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:287:9775, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:280:9541, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:273:9307, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:266:9073, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:259:8839, allocates on [inside E-STEP 899]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:252:8605, allocates on E-STEP[898]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:245:8371, allocates on E-STEP[898]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:238:8137, allocates on [inside JACOBI 764]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:231:7903, allocates on [inside JACOBI 764]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:224:7669, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:217:7436, allocates on [inside M-STEP 913]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:210:7203, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:203:6970, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:196:6737, allocates on [inside M-STEP 916]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:189:6504, allocates on [inside M-STEP 916]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:182:6271, allocates on [inside E-STEP 905]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:175:6038, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:168:5805, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V))
>The following expression, em-functional-do-split-stalin.sc:164:5680, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-do-split-stalin.sc:164:5688, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-do-split-stalin.sc:162:5632, allocates on EMS[932]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-do-split-stalin.sc:162:5640, allocates on EMS[932]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-do-split-stalin.sc:160:5584, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-do-split-stalin.sc:160:5592, allocates on LOOP[935]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-do-split-stalin.sc:158:5536, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-do-split-stalin.sc:158:5544, allocates on EM-CLUSTERER[940]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-do-split-stalin.sc:156:5488, allocates on CLIP-EIGENVALUES[894]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-functional-do-split-stalin.sc:156:5496, allocates on CLIP-EIGENVALUES[894]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-functional-do-split-stalin.sc:104:4013, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-functional-do-split-stalin.sc:87:3190, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-functional-do-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W23747 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W6933 is general case for the following reasons:
>  flonum
>W6887 is general case for the following reasons:
>  flonum
>W6885 is general case for the following reasons:
>  flonum
>W6639 is general case for the following reasons:
>  flonum
>W43 is general case for the following reasons:
>  flonum
>W7 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     2 - 16% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     1 -  4% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 -  8% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  0% - Determining which types and type sets are used
>     2 - 19% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     1 -  7% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  3% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     2 - 16% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  1% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 -  8% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m18.460s
>user	0m17.387s
>sys	0m0.697s
>run em-functional-do-split
>
>real	0m0.797s
>user	0m0.718s
>sys	0m0.078s
>compile em-imperative
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 20907 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   196 non-called native procedure types
>   444 called noop native procedure types
>   636 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    11 structure types
>    43 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 23662 type sets
>   826 hunoz variables
>  1859 non-hunoz variables
>   645 noop environments
>  2033 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 21510 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   202 non-called native procedure types
>   455 called noop native procedure types
>   672 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    13 structure types
>    47 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 24368 type sets
>   842 hunoz variables
>  1986 non-hunoz variables
>   657 noop environments
>  2122 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  9153 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   196 non-called native procedure types
>   455 called noop native procedure types
>   672 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    13 structure types
>    47 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 10761 type sets
>   535 hunoz variables
>  1043 non-hunoz variables
>     0 noop environments
>   720 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 17
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[2010] reentrant
>    has the following parameters:
>      OBJ{2416} local
>      PORT{2417} local
>    has the following in-lined locals:
>      NUMBER{2405}
>      PORT{2406}
>      MANTISSA{2410}
>      EXPONENT{2411}
>      MANTISSA{2414}
>      EXPONENT{2415}
>      OBJ{2432}
>      I{2444}
>  DISPLAY-MANTISSA-EXPONENT2[1972]
>    has the following parameters:
>      MANTISSA{2389} local
>      EXPONENT{2390} local
>      PORT{2391} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2392}
>      DIGIT{2393}
>      MANTISSA{2400}
>      FLOAT-DIGIT{2401}
>      DIGIT{2402}
>      MANTISSA{2404}
>  DISPLAY-EXACT-INTEGER2[1943]
>    has the following parameters:
>      NUMBER{2368} local
>      PORT{2369} local
>    has the following in-lined locals:
>      I{2372}
>      NUMBER{2373}
>      I{2376}
>      I{2382}
>      NUMBER{2383}
>      I{2386}
>  DISPLAY-STRING2[1934]
>    has the following parameters:
>      STRING{2361} local
>      PORT{2362} local
>    has the following in-lined locals:
>      N{2363}
>      I{2366}
>  LOOP[1367] reentrant
>    has the following parameter:
>      K{1964} local
>  LOOP[1302] reentrant
>    has the following parameter:
>      K{1910} local
>  MODULO[992]
>    has the following parameters:
>      N1{1546} local
>      N2{1547} local
>    has the following in-lined local:
>      v{1548}
>  REVERSE[833]
>    has the following parameter:
>      S{1404} local
>    has the following in-lined locals:
>      LIST{2773}
>      LIST{2776}
>      R{2777}
>  CDR[679]
>    has the following parameter:
>      PAIR{1281} local
>  M-STEP![483]
>    has the following parameters:
>      X{1142} local
>      MODELS{1143} local
>      Z{1144} local
>      CLIP{1145} local
>    has the following in-lined locals:
>      N{811}
>      I{814}
>      v{815}
>      N{817}
>      N{820}
>      C{821}
>      N{834}
>      V{835}
>      I{839}
>      M{856}
>      N{857}
>      INITIAL{858}
>      A{874}
>      N{877}
>      B{878}
>      D{879}
>      I{884}
>      J{888}
>      I{892}
>      INDEX{894}
>      GREATEST{895}
>      C{899}
>      J{904}
>      E{906}
>      K{909}
>      J{913}
>      J{917}
>      X{919}
>      V{921}
>      A{924}
>      B{925}
>      N{927}
>      C{928}
>      I{933}
>      J{940}
>      E{944}
>      E{946}
>      D{948}
>      K{952}
>      D{954}
>      J{957}
>      J{962}
>      I{967}
>      J{971}
>      I{976}
>      A{978}
>      N{980}
>      D{981}
>      V{982}
>      B{983}
>      Z{984}
>      IP{990}
>      I{996}
>      SM{998}
>      TRESH{1001}
>      IP{1004}
>      IR{1008}
>      IQ{1010}
>      G{1011}
>      H{1012}
>      T{1013}
>      C{1014}
>      H{1017}
>      J{1027}
>      THETA{1038}
>      IP{1041}
>      IP{1045}
>      IR{1046}
>      IQ{1047}
>      I{1050}
>      P{1052}
>      K{1053}
>      J{1059}
>      P{1061}
>      L{1065}
>      J{1067}
>      I{1069}
>      J{1070}
>      A{1071}
>      V{1072}
>      J{1073}
>      L{1074}
>      E{1075}
>      K1{1078}
>      E-K1{1080}
>      A-K1{1081}
>      K2{1084}
>      S{1086}
>      E-K2{1087}
>      K{1091}
>      KK{1146}
>      J{1149}
>      MODEL{1151}
>      MU{1152}
>      SIGMA{1153}
>      S{1154}
>      I{1164}
>      SI{1166}
>      K{1169}
>      M{1171}
>      I{1175}
>      SI{1177}
>      K1{1180}
>      MU-K1{1182}
>      SIGMA-K1{1183}
>      K2{1186}
>      M{1188}
>      MU-K2{1189}
>      I{1193}
>      X{1541}
>      X{2685}
>      X{2686}
>      X{2687}
>      X{2688}
>      X{2689}
>      X{2690}
>      X{2691}
>      X{2692}
>      X{2693}
>      X{2694}
>      X{2695}
>      X{2696}
>      OBJS{2698}
>      PAIR{2700}
>      PAIR{2708}
>      A{2713}
>      I{2714}
>      J{2715}
>      X{2716}
>      A{2717}
>      I{2718}
>      J{2719}
>      X{2720}
>      A{2721}
>      I{2722}
>      J{2723}
>      X{2724}
>      A{2725}
>      I{2726}
>      J{2727}
>      X{2728}
>      A{2729}
>      I{2730}
>      J{2731}
>      X{2732}
>      A{2733}
>      I{2734}
>      J{2735}
>      X{2736}
>      A{2737}
>      I{2738}
>      J{2739}
>      X{2740}
>      A{2741}
>      I{2742}
>      J{2743}
>      X{2744}
>      A{2745}
>      I{2746}
>      J{2747}
>      X{2748}
>      A{2749}
>      I{2750}
>      J{2751}
>      X{2752}
>      A{2753}
>      I{2754}
>      J{2755}
>      X{2756}
>      A{2757}
>      I{2758}
>      J{2759}
>      X{2760}
>      A{2761}
>      I{2762}
>      J{2763}
>      X{2764}
>      A{2765}
>      I{2766}
>      J{2767}
>      X{2768}
>      A{2769}
>      I{2770}
>      J{2771}
>      X{2772}
>      N{2811}
>      I{2814}
>      v{2815}
>      N{2817}
>      N{2820}
>      C{2821}
>  E-STEP![418]
>    has the following parameters:
>      X{1093} local
>      Z{1094} local
>      MODELS{1095} local
>    has the following in-lined locals:
>      E1{822}
>      E2{823}
>      E-MAX{824}
>      E-MIN{825}
>      FACTOR{826}
>      L{1097}
>      I{1101}
>      ZI{1103}
>      S{1104}
>      J{1109}
>      J{1113}
>      I{1117}
>      ZI{1119}
>      XI{1120}
>      J{1123}
>      MODEL{1125}
>      LOG-PI{1126}
>      MU{1127}
>      SIGMA-INVERSE{1128}
>      LOG-DETERMINANT-SIGMA{1129}
>      T{1130}
>      K1{1135}
>      SIGMA-INVERSE-K1{1137}
>      K2{1140}
>  ROTATE[332]
>    has the following parameters:
>      A{1030} local
>      I{1031} local
>      J{1032} local
>      K{1033} local
>      L{1034} local
>    has the following in-lined locals:
>      A{865}
>      I{866}
>      J{867}
>      X{868}
>      H{1035}
>      G{1036}
>      A{2709}
>      I{2710}
>      J{2711}
>      X{2712}
>  MATRIX-ROW-SET![122]
>    has the following parameters:
>      A{871} local
>      I{872} local
>      V{873} local
>  MATRIX-ROW-REF[121]
>    has the following parameters:
>      A{869} local
>      I{870} local
>  MATRIX-REF[119]
>    has the following parameters:
>      A{862} local
>      I{863} local
>      J{864} local
>  MATRIX-COLUMNS[118]
>    has the following parameter:
>      A{861} local
>  MATRIX-ROWS[117]
>    has the following parameter:
>      A{860} local
>  MAKE-MATRIX[113]
>    has the following parameters:
>      M{853} local
>      N{854} local
>    has the following in-lined locals:
>      N{2779}
>      V{2780}
>      I{2784}
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{789} local
>    has the following in-lined locals:
>      P{790}
>      ANS{791}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{779} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{777} local
>      N2{778} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{772} local
>    has the following in-lined locals:
>      S{775}
>      C{776}
>      CHAR{1702}
>  VOID[13]
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{686}
>      RANDOM:MASK{687}
>      RANDOM:CHUNK-SIZE{688}
>      *MOST-POSITIVE-FIXNUM*{695}
>      I{769}
>      L{780}
>      TRIAL{781}
>      RANDOM-STRINGS{782}
>      NIBBLES{784}
>      I{787}
>      ILEN{796}
>      S{797}
>      SLOP{798}
>      N{801}
>      R{802}
>      L{804}
>      I{805}
>      L{808}
>      C{809}
>      N{828}
>      I{831}
>      C{832}
>      L{842}
>      L{845}
>      C{846}
>      X{847}
>      L{848}
>      L{851}
>      I{852}
>      X{1195}
>      Z{1196}
>      MODELS{1197}
>      CLIP{1198}
>      EM-KICK-OFF-TOLERANCE{1199}
>      EM-CONVERGENCE-TOLERANCE{1200}
>      OLD-LOG-LIKELIHOOD{1203}
>      STARTING?{1204}
>      LOG-LIKELIHOOD{1205}
>      v{1206}
>      v{1208}
>      EPSILON{1209}
>      II{1210}
>      JJ{1211}
>      S{1213}
>      ZI{1214}
>      J{1219}
>      SI{1221}
>      J{1224}
>      X{1227}
>      CLIP{1228}
>      EM-KICK-OFF-TOLERANCE{1229}
>      EM-CONVERGENCE-TOLERANCE{1230}
>      EMS-CONVERGENCE-TOLERANCE{1231}
>      JJ{1234}
>      OLD-Z{1235}
>      OLD-MODELS{1236}
>      OLD-LOG-LIKELIHOOD{1237}
>      KK{1238}
>      Z{1239}
>      MODELS{1240}
>      NEW-LOG-LIKELIHOOD{1242}
>      X{1244}
>      CLIP{1245}
>      EM-KICK-OFF-TOLERANCE{1246}
>      EM-CONVERGENCE-TOLERANCE{1247}
>      EMS-CONVERGENCE-TOLERANCE{1248}
>      Z-MODELS{1249}
>      Z{1250}
>      MODELS{1251}
>      CLUSTERS{1253}
>      J{1254}
>      CLUSTER{1255}
>      CLUSTER{1256}
>      I{1257}
>      ZI{1258}
>      OBJ1{1261}
>      OBJ2{1262}
>      v{1263}
>      v{1264}
>      PAIR{1280}
>      PAIR{1287}
>      OBJS{1324}
>      LIST{1399}
>      LIST{1402}
>      R{1403}
>      X{1507}
>      XS{1508}
>      R{1512}
>      STRING{1879}
>      START{1880}
>      END{1881}
>      R{1882}
>      K{1886}
>      LIST1{2032}
>      LIST1{2036}
>      C{2037}
>      OBJ{2670}
>      OBJS{2697}
>      PAIR{2699}
>      PAIR{2701}
>      PAIR{2702}
>      PAIR{2703}
>      PAIR{2704}
>      PAIR{2705}
>      PAIR{2706}
>      PAIR{2707}
>      N{2787}
>      V{2788}
>      I{2792}
>      N{2795}
>      V{2796}
>      I{2800}
>      N{2803}
>      V{2804}
>      I{2808}
>      N{2823}
>      I{2826}
>      C{2827}
>The following non-trivial in-line native procedures will be generated:
>  [clone LOOP[85] 2777]
>    has region
>    has the following parameters:
>      I{2826} local
>      C{2827} local
>  [clone MAP-N[82] 2774]
>    has the following parameter:
>      N{2823} local
>  [clone LOOP[75] 2772]
>    has the following parameters:
>      N{2820} local
>      C{2821} local
>  [clone SUM[72] 2769]
>    has the following parameter:
>      N{2817} local
>  [clone [inside LOOP 70] 2767]
>    has the following parameter:
>      v{2815} local
>  [clone LOOP[69] 2766]
>    has the following parameter:
>      I{2814} local
>  [clone EVERY-N[66] 2763]
>    has the following parameter:
>      N{2811} local
>  [clone LOOP[92] 2758]
>    has the following parameter:
>      I{2808} local
>  [clone [inside MAP-N-VECTOR 88] 2754]
>    has the following parameter:
>      V{2804} local
>  [clone MAP-N-VECTOR[87] 2753]
>    has the following parameter:
>      N{2803} local
>  [clone LOOP[92] 2748]
>    has the following parameter:
>      I{2800} local
>  [clone [inside MAP-N-VECTOR 88] 2744]
>    has the following parameter:
>      V{2796} local
>  [clone MAP-N-VECTOR[87] 2743]
>    has the following parameter:
>      N{2795} local
>  [clone LOOP[92] 2738]
>    has the following parameter:
>      I{2792} local
>  [clone [inside MAP-N-VECTOR 88] 2734]
>    has the following parameter:
>      V{2788} local
>  [clone MAP-N-VECTOR[87] 2733]
>    has the following parameter:
>      N{2787} local
>  [clone LOOP[92] 2728]
>    has the following parameter:
>      I{2784} local
>  [clone [inside MAP-N-VECTOR 88] 2724]
>    has the following parameter:
>      V{2780} local
>  [clone MAP-N-VECTOR[87] 2723]
>    has the following parameter:
>      N{2779} local
>  [clone LOOP[831] 2721]
>    has the following parameters:
>      LIST{2776} local
>      R{2777} local
>  [clone LIST-REVERSE[828] 2718]
>    has the following parameter:
>      LIST{2773} local
>  [clone MATRIX-SET![120] 2717]
>    has the following parameters:
>      A{2769} local
>      I{2770} local
>      J{2771} local
>      X{2772} local
>  [clone MATRIX-SET![120] 2716]
>    has the following parameters:
>      A{2765} local
>      I{2766} local
>      J{2767} local
>      X{2768} local
>  [clone MATRIX-SET![120] 2715]
>    has the following parameters:
>      A{2761} local
>      I{2762} local
>      J{2763} local
>      X{2764} local
>  [clone MATRIX-SET![120] 2714]
>    has the following parameters:
>      A{2757} local
>      I{2758} local
>      J{2759} local
>      X{2760} local
>  [clone MATRIX-SET![120] 2713]
>    has the following parameters:
>      A{2753} local
>      I{2754} local
>      J{2755} local
>      X{2756} local
>  [clone MATRIX-SET![120] 2712]
>    has the following parameters:
>      A{2749} local
>      I{2750} local
>      J{2751} local
>      X{2752} local
>  [clone MATRIX-SET![120] 2711]
>    has the following parameters:
>      A{2745} local
>      I{2746} local
>      J{2747} local
>      X{2748} local
>  [clone MATRIX-SET![120] 2710]
>    has the following parameters:
>      A{2741} local
>      I{2742} local
>      J{2743} local
>      X{2744} local
>  [clone MATRIX-SET![120] 2709]
>    has the following parameters:
>      A{2737} local
>      I{2738} local
>      J{2739} local
>      X{2740} local
>  [clone MATRIX-SET![120] 2708]
>    has the following parameters:
>      A{2733} local
>      I{2734} local
>      J{2735} local
>      X{2736} local
>  [clone MATRIX-SET![120] 2707]
>    has the following parameters:
>      A{2729} local
>      I{2730} local
>      J{2731} local
>      X{2732} local
>  [clone MATRIX-SET![120] 2706]
>    has the following parameters:
>      A{2725} local
>      I{2726} local
>      J{2727} local
>      X{2728} local
>  [clone MATRIX-SET![120] 2705]
>    has the following parameters:
>      A{2721} local
>      I{2722} local
>      J{2723} local
>      X{2724} local
>  [clone MATRIX-SET![120] 2704]
>    has the following parameters:
>      A{2717} local
>      I{2718} local
>      J{2719} local
>      X{2720} local
>  [clone MATRIX-SET![120] 2703]
>    has the following parameters:
>      A{2713} local
>      I{2714} local
>      J{2715} local
>      X{2716} local
>  [clone MATRIX-SET![120] 2702]
>    has the following parameters:
>      A{2709} local
>      I{2710} local
>      J{2711} local
>      X{2712} local
>  [clone CAR[678] 2701]
>    has the following parameter:
>      PAIR{2708} local
>  [clone CAR[678] 2700]
>    has the following parameter:
>      PAIR{2707} local
>  [clone CAR[678] 2699]
>    has the following parameter:
>      PAIR{2706} local
>  [clone CAR[678] 2698]
>    has the following parameter:
>      PAIR{2705} local
>  [clone CAR[678] 2697]
>    has the following parameter:
>      PAIR{2704} local
>  [clone CAR[678] 2696]
>    has the following parameter:
>      PAIR{2703} local
>  [clone CAR[678] 2695]
>    has the following parameter:
>      PAIR{2702} local
>  [clone CAR[678] 2694]
>    has the following parameter:
>      PAIR{2701} local
>  [clone CADR[683] 2693]
>    has the following parameter:
>      PAIR{2700} local
>  [clone CADR[683] 2692]
>    has the following parameter:
>      PAIR{2699} local
>  [clone LIST[720] 2691]
>    has the following parameter:
>      OBJS{2698} local
>  [clone LIST[720] 2690]
>    has the following parameter:
>      OBJS{2697} local
>  [clone ABS[989] 2689]
>    has the following parameter:
>      X{2696} local
>  [clone ABS[989] 2688]
>    has the following parameter:
>      X{2695} local
>  [clone ABS[989] 2687]
>    has the following parameter:
>      X{2694} local
>  [clone ABS[989] 2686]
>    has the following parameter:
>      X{2693} local
>  [clone ABS[989] 2685]
>    has the following parameter:
>      X{2692} local
>  [clone ABS[989] 2684]
>    has the following parameter:
>      X{2691} local
>  [clone ABS[989] 2683]
>    has the following parameter:
>      X{2690} local
>  [clone ABS[989] 2682]
>    has the following parameter:
>      X{2689} local
>  [clone ABS[989] 2681]
>    has the following parameter:
>      X{2688} local
>  [clone ABS[989] 2680]
>    has the following parameter:
>      X{2687} local
>  [clone ABS[989] 2679]
>    has the following parameter:
>      X{2686} local
>  [clone ABS[989] 2678]
>    has the following parameter:
>      X{2685} local
>  WRITE[2427]
>    has the following parameter:
>      OBJ{2670} local
>  [inside LOOP 2058] reentrant
>  [inside LOOP 2057] reentrant
>  LOOP[2056] reentrant
>    has the following parameter:
>      I{2444} local
>  [inside WRITE2 2053] reentrant
>  [inside WRITE2 2052] reentrant
>  [inside WRITE2 2050] reentrant
>  [inside LOOP 2047] reentrant
>  [inside LOOP 2046] reentrant
>  [inside LOOP 2045] reentrant
>  [inside LOOP 2043] reentrant
>  LOOP[2042] reentrant
>    has the following parameter:
>      OBJ{2432} local
>  [inside WRITE2 2039] reentrant
>  [inside WRITE2 2038] reentrant
>  LOOP[2007]
>    has the following parameters:
>      MANTISSA{2414} local
>      EXPONENT{2415} local
>  LOOP[2002]
>    has the following parameters:
>      MANTISSA{2410} local
>      EXPONENT{2411} local
>  DISPLAY-INEXACT-REAL2[1993]
>    has the following parameters:
>      NUMBER{2405} local
>      PORT{2406} local
>  [inside LOOP 1990]
>    has the following parameter:
>      MANTISSA{2404} local
>  [inside LOOP 1987]
>    has the following parameter:
>      DIGIT{2402} local
>  [inside LOOP 1986]
>    has the following parameter:
>      FLOAT-DIGIT{2401} local
>  LOOP[1985]
>    has the following parameter:
>      MANTISSA{2400} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1974]
>    has the following parameter:
>      DIGIT{2393} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1973]
>    has the following parameter:
>      FLOAT-DIGIT{2392} local
>  LOOP[1964]
>    has the following parameter:
>      I{2386} local
>  LOOP[1961]
>    has the following parameters:
>      I{2382} local
>      NUMBER{2383} local
>  LOOP[1950]
>    has the following parameter:
>      I{2376} local
>  LOOP[1947]
>    has the following parameters:
>      I{2372} local
>      NUMBER{2373} local
>  LOOP[1938]
>    has the following parameter:
>      I{2366} local
>  [inside DISPLAY-STRING2 1935]
>    has the following parameter:
>      N{2363} local
>  [inside top level 1930]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2322} global
>      BUFFER{2324} global
>  LOOP[1454]
>    has region
>    has the following parameters:
>      LIST1{2036} local
>      C{2037} local
>  MAP[1450]
>    has the following parameter:
>      LIST1{2032} local
>  VECTOR->LIST[1364]
>    has the following parameter:
>      VECTOR{1961} global
>  [inside STRING->LIST 1299]
>    has the following parameter:
>      N{1907} global
>  STRING->LIST[1298]
>    has the following parameter:
>      STRING{1906} global
>  LOOP[1270]
>    has the following parameter:
>      K{1886} local
>  [inside SUBSTRING 1266]
>    has the following parameter:
>      R{1882} local
>  SUBSTRING[1265]
>    has the following parameters:
>      STRING{1879} local
>      START{1880} local
>      END{1881} local
>  [inside top level 1124]
>    has the following parameter:
>      CHAR{1702} local
>  [inside top level 1123]
>    has the following parameter:
>      CHAR-NUMERIC?{1701} global
>  [inside MODULO 993]
>    has the following parameter:
>      v{1548} local
>  ABS[989]
>    has the following parameter:
>      X{1541} local
>  LOOP[962]
>    has the following parameter:
>      R{1512} local
>  MAX[959]
>    has the following parameters:
>      X{1507} local
>      XS{1508} local
>  LOOP[831]
>    has the following parameters:
>      LIST{1402} local
>      R{1403} local
>  LIST-REVERSE[828]
>    has the following parameter:
>      LIST{1399} local
>  LIST[720]
>    has the following parameter:
>      OBJS{1324} local
>  CADR[683]
>    has the following parameter:
>      PAIR{1287} local
>  CAR[678]
>    has the following parameter:
>      PAIR{1280} local
>  [inside EQV? 664]
>    has the following parameter:
>      v{1264} local
>  [inside EQV? 663]
>    has the following parameter:
>      v{1263} local
>  EQV?[662]
>    has the following parameters:
>      OBJ1{1261} local
>      OBJ2{1262} local
>  [inside EM-CLUSTERER 602]
>    has the following parameter:
>      ZI{1258} local
>  [inside EM-CLUSTERER 601]
>    has region
>    has the following parameter:
>      I{1257} local
>  [inside EM-CLUSTERER 600]
>    has the following parameter:
>      CLUSTER{1256} local
>  [inside EM-CLUSTERER 599]
>    has the following parameter:
>      CLUSTER{1255} local
>  [inside EM-CLUSTERER 598]
>    has the following parameter:
>      J{1254} local
>  [inside EM-CLUSTERER 597]
>    has the following parameter:
>      CLUSTERS{1253} local
>  [inside EM-CLUSTERER 594]
>    has the following parameter:
>      MODELS{1251} local
>  [inside EM-CLUSTERER 593]
>    has the following parameter:
>      Z{1250} local
>  [inside EM-CLUSTERER 592]
>    has the following parameter:
>      Z-MODELS{1249} local
>  EM-CLUSTERER[591]
>    has region
>    has the following parameters:
>      X{1244} local
>      CLIP{1245} local
>      EM-KICK-OFF-TOLERANCE{1246} local
>      EM-CONVERGENCE-TOLERANCE{1247} local
>      EMS-CONVERGENCE-TOLERANCE{1248} local
>  [inside LOOP 588]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD{1242} local
>  [inside LOOP 585]
>    has the following parameter:
>      MODELS{1240} local
>  [inside LOOP 584]
>    has the following parameter:
>      Z{1239} local
>  [inside LOOP 583]
>    has the following parameter:
>      KK{1238} local
>  LOOP[582]
>    has the following parameters:
>      JJ{1234} local
>      OLD-Z{1235} local
>      OLD-MODELS{1236} local
>      OLD-LOG-LIKELIHOOD{1237} local
>  EMS[579]
>    has the following parameters:
>      X{1227} local
>      CLIP{1228} local
>      EM-KICK-OFF-TOLERANCE{1229} local
>      EM-CONVERGENCE-TOLERANCE{1230} local
>      EMS-CONVERGENCE-TOLERANCE{1231} local
>  loop[573]
>    has the following parameter:
>      J{1224} local
>  [inside INITIAL-Z 570]
>    has the following parameter:
>      SI{1221} local
>  loop[565]
>    has the following parameter:
>      J{1219} local
>  [inside INITIAL-Z 561]
>    has the following parameters:
>      S{1213} local
>      ZI{1214} local
>  INITIAL-Z[559]
>    has the following parameters:
>      II{1210} local
>      JJ{1211} local
>  NOISE[558]
>    has the following parameter:
>      EPSILON{1209} local
>  [inside LOOP 555]
>    has the following parameter:
>      v{1208} local
>  [inside LOOP 552]
>    has the following parameter:
>      v{1206} local
>  [inside LOOP 551]
>    has the following parameter:
>      LOG-LIKELIHOOD{1205} local
>  LOOP[550]
>    has the following parameters:
>      OLD-LOG-LIKELIHOOD{1203} local
>      STARTING?{1204} local
>  EM![547]
>    has the following parameters:
>      X{1195} local
>      Z{1196} local
>      MODELS{1197} local
>      CLIP{1198} local
>      EM-KICK-OFF-TOLERANCE{1199} local
>      EM-CONVERGENCE-TOLERANCE{1200} local
>  loop[539]
>    has the following parameter:
>      I{1193} local
>  [inside loop 535]
>    has the following parameters:
>      M{1188} local
>      MU-K2{1189} local
>  loop[531]
>    has the following parameter:
>      K2{1186} local
>  [inside loop 528]
>    has the following parameters:
>      MU-K1{1182} local
>      SIGMA-K1{1183} local
>  loop[524]
>    has the following parameter:
>      K1{1180} local
>  [inside loop 521]
>    has the following parameter:
>      SI{1177} local
>  loop[515]
>    has the following parameter:
>      I{1175} local
>  [inside loop 511]
>    has the following parameter:
>      M{1171} local
>  loop[507]
>    has the following parameter:
>      K{1169} local
>  [inside loop 504]
>    has the following parameter:
>      SI{1166} local
>  loop[499]
>    has the following parameter:
>      I{1164} local
>  [inside loop 494]
>    has the following parameter:
>      S{1154} local
>  [inside loop 493]
>    has the following parameter:
>      SIGMA{1153} local
>  [inside loop 492]
>    has the following parameter:
>      MU{1152} local
>  [inside loop 491]
>    has the following parameter:
>      MODEL{1151} local
>  loop[487]
>    has the following parameter:
>      J{1149} local
>  [inside M-STEP! 484]
>    has the following parameter:
>      KK{1146} local
>  loop[475]
>    has the following parameter:
>      K2{1140} local
>  [inside loop 472]
>    has the following parameter:
>      SIGMA-INVERSE-K1{1137} local
>  loop[468]
>    has the following parameter:
>      K1{1135} local
>  [inside loop 463]
>    has the following parameter:
>      T{1130} local
>  [inside loop 462]
>    has the following parameter:
>      LOG-DETERMINANT-SIGMA{1129} local
>  [inside loop 461]
>    has the following parameter:
>      SIGMA-INVERSE{1128} local
>  [inside loop 460]
>    has the following parameter:
>      MU{1127} local
>  [inside loop 459]
>    has the following parameter:
>      LOG-PI{1126} local
>  [inside loop 458]
>    has the following parameter:
>      MODEL{1125} local
>  loop[454]
>    has the following parameter:
>      J{1123} local
>  [inside loop 451]
>    has the following parameters:
>      ZI{1119} local
>      XI{1120} local
>  loop[447]
>    has the following parameter:
>      I{1117} local
>  loop[439]
>    has the following parameter:
>      J{1113} local
>  loop[432]
>    has the following parameter:
>      J{1109} local
>  [inside loop 428]
>    has the following parameters:
>      ZI{1103} local
>      S{1104} local
>  loop[424]
>    has the following parameter:
>      I{1101} local
>  [inside E-STEP! 420]
>    has the following parameter:
>      L{1097} local
>  loop[411]
>    has the following parameter:
>      K{1091} local
>  [inside loop 407]
>    has the following parameters:
>      S{1086} local
>      E-K2{1087} local
>  loop[403]
>    has the following parameter:
>      K2{1084} local
>  [inside loop 400]
>    has the following parameters:
>      E-K1{1080} local
>      A-K1{1081} local
>  loop[396]
>    has the following parameter:
>      K1{1078} local
>  [inside CLIP-EIGENVALUES! 392]
>    has the following parameter:
>      E{1075} local
>  [inside CLIP-EIGENVALUES! 391]
>    has the following parameter:
>      L{1074} local
>  [inside CLIP-EIGENVALUES! 390]
>    has the following parameter:
>      J{1073} local
>  CLIP-EIGENVALUES![389]
>    has region
>    has the following parameters:
>      A{1071} local
>      V{1072} local
>  [inside JACOBI! 387]
>    has the following parameter:
>      J{1070} local
>  [inside JACOBI! 386]
>    has the following parameter:
>      I{1069} local
>  [inside loop 379]
>    has the following parameter:
>      J{1067} local
>  loop[375]
>    has the following parameter:
>      L{1065} local
>  [inside loop 369]
>    has the following parameter:
>      P{1061} local
>  loop[365]
>    has the following parameter:
>      J{1059} local
>  [inside loop 359]
>    has the following parameters:
>      P{1052} local
>      K{1053} local
>  loop[355]
>    has the following parameter:
>      I{1050} local
>  [inside LOOP 350]
>    has the following parameter:
>      IQ{1047} local
>  [inside LOOP 349]
>    has the following parameter:
>      IR{1046} local
>  [inside LOOP 348]
>    has the following parameter:
>      IP{1045} local
>  loop[342]
>    has the following parameter:
>      IP{1041} local
>  [inside loop 336]
>    has the following parameter:
>      THETA{1038} local
>  [inside ROTATE 333]
>    has the following parameters:
>      H{1035} local
>      G{1036} local
>  loop[323]
>    has the following parameter:
>      J{1027} local
>  [inside loop 317]
>    has the following parameter:
>      H{1017} local
>  [inside loop 316]
>    has the following parameter:
>      TAU{1016} global
>  [inside loop 315]
>    has the following parameter:
>      S{1015} global
>  [inside loop 314]
>    has the following parameter:
>      C{1014} local
>  [inside loop 313]
>    has the following parameter:
>      T{1013} local
>  [inside loop 312]
>    has the following parameter:
>      H{1012} local
>  [inside loop 308]
>    has the following parameter:
>      G{1011} local
>  [inside loop 307]
>    has the following parameter:
>      IQ{1010} local
>  loop[303]
>    has the following parameter:
>      IR{1008} local
>  loop[297]
>    has the following parameter:
>      IP{1004} local
>  [inside LOOP 294]
>    has the following parameter:
>      TRESH{1001} local
>  [inside LOOP 291]
>    has the following parameter:
>      SM{998} local
>  LOOP[289]
>    has the following parameter:
>      I{996} local
>  loop[282]
>    has the following parameter:
>      IP{990} local
>  [inside JACOBI! 277]
>    has the following parameter:
>      Z{984} local
>  [inside JACOBI! 276]
>    has region
>    has the following parameter:
>      B{983} local
>  [inside JACOBI! 275]
>    has region
>    has the following parameter:
>      V{982} local
>  [inside JACOBI! 274]
>    has the following parameter:
>      D{981} local
>  [inside JACOBI! 273]
>    has the following parameter:
>      N{980} local
>  JACOBI![271]
>    has the following parameter:
>      A{978} local
>  loop[265]
>    has the following parameter:
>      I{976} local
>  loop[257]
>    has the following parameter:
>      J{971} local
>  loop[251]
>    has the following parameter:
>      I{967} local
>  loop[243]
>    has the following parameter:
>      J{962} local
>  loop[234]
>    has the following parameter:
>      J{957} local
>  [inside loop 231]
>    has the following parameter:
>      D{954} local
>  loop[227]
>    has the following parameter:
>      K{952} local
>  [inside loop 223]
>    has the following parameter:
>      D{948} local
>  [inside loop 218]
>    has the following parameter:
>      E{946} local
>  [inside loop 216]
>    has the following parameter:
>      E{944} local
>  loop[210]
>    has the following parameter:
>      J{940} local
>  loop[202]
>    has the following parameter:
>      I{933} local
>  [inside INVERT-MATRIX! 197]
>    has the following parameter:
>      C{928} local
>  [inside INVERT-MATRIX! 196]
>    has the following parameter:
>      N{927} local
>  INVERT-MATRIX![194]
>    has the following parameters:
>      A{924} local
>      B{925} local
>  [inside loop 189]
>    has the following parameter:
>      V{921} local
>  [inside loop 183]
>    has the following parameter:
>      X{919} local
>  loop[179]
>    has the following parameter:
>      J{917} local
>  loop[172]
>    has the following parameter:
>      J{913} local
>  loop[164]
>    has the following parameter:
>      K{909} local
>  [inside loop 161]
>    has the following parameter:
>      E{906} local
>  loop[157]
>    has the following parameter:
>      J{904} local
>  [inside loop 153]
>    has the following parameter:
>      C{899} local
>  [inside loop 151]
>    has the following parameters:
>      INDEX{894} local
>      GREATEST{895} local
>  loop[147]
>    has the following parameter:
>      I{892} local
>  loop[139]
>    has the following parameter:
>      J{888} local
>  loop[133]
>    has the following parameter:
>      I{884} local
>  [inside DETERMINANT 128]
>    has the following parameter:
>      D{879} local
>  [inside DETERMINANT 127]
>    has the following parameter:
>      B{878} local
>  [inside DETERMINANT 126]
>    has the following parameter:
>      N{877} local
>  DETERMINANT[123]
>    has the following parameter:
>      A{874} local
>  MATRIX-SET![120]
>    has the following parameters:
>      A{865} local
>      I{866} local
>      J{867} local
>      X{868} local
>  MAKE-MATRIX-INITIAL[115]
>    has the following parameters:
>      M{856} local
>      N{857} local
>      INITIAL{858} local
>  LOOP[108]
>    has the following parameters:
>      L{851} local
>      I{852} local
>  POSITIONV[105]
>    has the following parameters:
>      X{847} local
>      L{848} local
>  LOOP[100]
>    has region
>    has the following parameters:
>      L{845} local
>      C{846} local
>  REMOVE-IF-NOT[97]
>    has the following parameter:
>      L{842} local
>  LOOP[92]
>    has the following parameter:
>      I{839} local
>  [inside MAP-N-VECTOR 88]
>    has the following parameter:
>      V{835} local
>  MAP-N-VECTOR[87]
>    has the following parameter:
>      N{834} local
>  LOOP[85]
>    has region
>    has the following parameters:
>      I{831} local
>      C{832} local
>  MAP-N[82]
>    has the following parameter:
>      N{828} local
>  [inside ADD-EXP 80]
>    has the following parameter:
>      FACTOR{826} local
>  [inside ADD-EXP 79]
>    has the following parameter:
>      E-MIN{825} local
>  [inside ADD-EXP 78]
>    has the following parameter:
>      E-MAX{824} local
>  ADD-EXP[77]
>    has the following parameters:
>      E1{822} local
>      E2{823} local
>  LOOP[75]
>    has the following parameters:
>      N{820} local
>      C{821} local
>  SUM[72]
>    has the following parameter:
>      N{817} local
>  [inside LOOP 70]
>    has the following parameter:
>      v{815} local
>  LOOP[69]
>    has the following parameter:
>      I{814} local
>  EVERY-N[66]
>    has the following parameter:
>      N{811} local
>  LOOP[64]
>    has region
>    has the following parameters:
>      L{808} local
>      C{809} local
>  REDUCE[58]
>    has the following parameters:
>      L{804} local
>      I{805} local
>  LOOP[51]
>    has the following parameters:
>      N{801} local
>      R{802} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{798} local
>  loop[46]
>    has the following parameters:
>      ILEN{796} local
>      S{797} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{791} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{790} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{787} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{784} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{782} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{781} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{780} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{775} local
>      C{776} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{769} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{682} global
>      LOG-MATH-PRECISION{683} global
>      *RANDOM-STATE*{686} local
>      RANDOM:MASK{687} local
>      RANDOM:CHUNK-SIZE{688} local
>      RANDOM:SIZE{690} global
>      RANDOM:TAP{691} global
>      LOGICAL:BOOLE-XOR{692} global
>      *MOST-POSITIVE-FIXNUM*{695} local
>The following expression, em-imperative-stalin.sc:179:6319, allocates on [clone LOOP[85] 2777]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[1454]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 601]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-imperative-stalin.sc:537:18609, allocates on loop[8]:
>(LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI))
>The following expression, em-imperative-stalin.sc:510:17764, allocates on EM-CLUSTERER[591]:
>(MAKE-MODEL 0.0 ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) (MAKE-MATRIX KK KK) 0.0 (MAKE-MATRIX KK KK) 0.0)
>The following expression, em-imperative-stalin.sc:511:17790, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK)
>The following expression, em-imperative-stalin.sc:524:18181, allocates on EM-CLUSTERER[591]:
>(LIST OLD-Z OLD-MODELS)
>The following expression, em-imperative-stalin.sc:299:10238, allocates on CLIP-EIGENVALUES![389]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:301:10294, allocates on [inside JACOBI! 275]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:302:10315, allocates on [inside JACOBI! 276]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-imperative-stalin.sc:375:12950, allocates on CLIP-EIGENVALUES![389]:
>(LIST D V)
>The following expression, em-imperative-stalin.sc:205:6993, allocates on CLIP-EIGENVALUES![389]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-imperative-stalin.sc:202:6902, allocates on EM-CLUSTERER[591]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:193:6667, allocates on LOOP[100]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-imperative-stalin.sc:182:6388, allocates on CLIP-EIGENVALUES![389]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-stalin.sc:179:6319, allocates on LOOP[85]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-imperative-stalin.sc:156:5704, allocates on LOOP[64]:
>(F C (FIRST L))
>The following expression, em-imperative-stalin.sc:108:4241, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-imperative-stalin.sc:91:3418, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-imperative-stalin.sc:83:3177, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W21606 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W18645 is general case for the following reasons:
>  flonum
>W6703 is general case for the following reasons:
>  flonum
>W6657 is general case for the following reasons:
>  flonum
>W6655 is general case for the following reasons:
>  flonum
>W6409 is general case for the following reasons:
>  flonum
>W282 is general case for the following reasons:
>  flonum
>W33 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>em-imperative-stalin.c: In function âf0â:
>em-imperative-stalin.c:9581:33: warning: âa1235â may be used uninitialized in this function
>em-imperative-stalin.c:9582:33: warning: âa1236â may be used uninitialized in this function
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  2% - Expanding macros
>     2 - 20% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  6% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 10% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 - 10% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  5% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  3% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     1 - 17% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  1% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 -  7% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  4% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m11.806s
>user	0m11.549s
>sys	0m0.239s
>run em-imperative
>
>real	0m0.395s
>user	0m0.386s
>sys	0m0.009s
>compile em-imperative-split
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 21432 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   198 non-called native procedure types
>   478 called noop native procedure types
>   710 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    15 structure types
>    53 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 24333 type sets
>   868 hunoz variables
>  1945 non-hunoz variables
>   680 noop environments
>  2114 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 21493 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   198 non-called native procedure types
>   479 called noop native procedure types
>   713 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    16 structure types
>    53 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 24400 type sets
>   869 hunoz variables
>  1957 non-hunoz variables
>   681 noop environments
>  2126 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 9
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  9130 expressions
>     0 internal symbol types
>     0 external symbol types
>    68 primitive procedure types
>   198 non-called native procedure types
>   479 called noop native procedure types
>   713 called non-noop native procedure types
>     1 foreign procedure type
>     2 continuation types
>     4 string types
>    16 structure types
>    53 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 10785 type sets
>   562 hunoz variables
>  1012 non-hunoz variables
>     0 noop environments
>   722 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 9
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[2126] reentrant
>    has the following parameters:
>      OBJ{2544} local
>      PORT{2545} local
>    has the following in-lined locals:
>      NUMBER{2533}
>      PORT{2534}
>      MANTISSA{2538}
>      EXPONENT{2539}
>      MANTISSA{2542}
>      EXPONENT{2543}
>      OBJ{2560}
>      I{2572}
>  DISPLAY-MANTISSA-EXPONENT2[2088]
>    has the following parameters:
>      MANTISSA{2517} local
>      EXPONENT{2518} local
>      PORT{2519} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2520}
>      DIGIT{2521}
>      MANTISSA{2528}
>      FLOAT-DIGIT{2529}
>      DIGIT{2530}
>      MANTISSA{2532}
>  DISPLAY-EXACT-INTEGER2[2059]
>    has the following parameters:
>      NUMBER{2496} local
>      PORT{2497} local
>    has the following in-lined locals:
>      I{2500}
>      NUMBER{2501}
>      I{2504}
>      I{2510}
>      NUMBER{2511}
>      I{2514}
>  DISPLAY-STRING2[2050]
>    has the following parameters:
>      STRING{2489} local
>      PORT{2490} local
>    has the following in-lined locals:
>      N{2491}
>      I{2494}
>  LOOP[1483] reentrant
>    has the following parameter:
>      K{2092} local
>  LOOP[1418] reentrant
>    has the following parameter:
>      K{2038} local
>  MODULO[1108]
>    has the following parameters:
>      N1{1674} local
>      N2{1675} local
>    has the following in-lined local:
>      v{1676}
>  ABS[1105]
>    has the following parameter:
>      X{1669} local
>  REVERSE[949]
>    has the following parameter:
>      S{1532} local
>    has the following in-lined locals:
>      LIST{2821}
>      LIST{2824}
>      R{2825}
>  CDR[795]
>    has the following parameter:
>      PAIR{1409} local
>  M-STEP![581]
>    has the following parameters:
>      X{1270} local
>      MODELS{1271} local
>      Z{1272} local
>      CLIP{1273} local
>    has the following in-lined locals:
>      X{839}
>      X{842}
>      Y{843}
>      N{856}
>      I{859}
>      v{860}
>      N{862}
>      I{865}
>      v{866}
>      N{868}
>      N{871}
>      C{872}
>      N{874}
>      N{877}
>      C{878}
>      N{897}
>      V{898}
>      I{902}
>      N{905}
>      V{906}
>      I{910}
>      N{929}
>      V{930}
>      I{934}
>      M{972}
>      N{973}
>      M{975}
>      N{976}
>      M{984}
>      N{985}
>      INITIAL{986}
>      A{1002}
>      N{1005}
>      B{1006}
>      D{1007}
>      I{1012}
>      J{1016}
>      I{1020}
>      INDEX{1022}
>      GREATEST{1023}
>      C{1027}
>      J{1032}
>      E{1034}
>      K{1037}
>      J{1041}
>      J{1045}
>      X{1047}
>      V{1049}
>      A{1052}
>      B{1053}
>      N{1055}
>      C{1056}
>      I{1061}
>      J{1068}
>      E{1072}
>      E{1074}
>      D{1076}
>      K{1080}
>      D{1082}
>      J{1085}
>      J{1090}
>      I{1095}
>      J{1099}
>      I{1104}
>      A{1106}
>      N{1108}
>      D{1109}
>      V{1110}
>      B{1111}
>      Z{1112}
>      IP{1118}
>      I{1124}
>      SM{1126}
>      TRESH{1129}
>      IP{1132}
>      IR{1136}
>      IQ{1138}
>      G{1139}
>      H{1140}
>      T{1141}
>      C{1142}
>      H{1145}
>      J{1155}
>      THETA{1166}
>      IP{1169}
>      IP{1173}
>      IR{1174}
>      IQ{1175}
>      I{1178}
>      P{1180}
>      K{1181}
>      J{1187}
>      P{1189}
>      L{1193}
>      J{1195}
>      I{1197}
>      J{1198}
>      A{1199}
>      V{1200}
>      J{1201}
>      L{1202}
>      E{1203}
>      K1{1206}
>      E-K1{1208}
>      A-K1{1209}
>      K2{1212}
>      S{1214}
>      E-K2{1215}
>      K{1219}
>      KK{1274}
>      J{1277}
>      MODEL{1279}
>      MU{1280}
>      SIGMA{1281}
>      S{1282}
>      I{1292}
>      SI{1294}
>      K{1297}
>      M{1299}
>      I{1303}
>      SI{1305}
>      K1{1308}
>      MU-K1{1310}
>      SIGMA-K1{1311}
>      K2{1314}
>      M{1316}
>      MU-K2{1317}
>      I{1321}
>      PAIR{2820}
>  E-STEP![516]
>    has the following parameters:
>      X{1221} local
>      Z{1222} local
>      MODELS{1223} local
>    has the following in-lined locals:
>      E1{879}
>      E2{880}
>      E-MAX{881}
>      E-MIN{882}
>      FACTOR{883}
>      L{1225}
>      I{1229}
>      ZI{1231}
>      S{1232}
>      J{1237}
>      J{1241}
>      I{1245}
>      ZI{1247}
>      XI{1248}
>      J{1251}
>      MODEL{1253}
>      LOG-PI{1254}
>      MU{1255}
>      SIGMA-INVERSE{1256}
>      LOG-DETERMINANT-SIGMA{1257}
>      T{1258}
>      K1{1263}
>      SIGMA-INVERSE-K1{1265}
>      K2{1268}
>  ROTATE[430]
>    has the following parameters:
>      A{1158} local
>      I{1159} local
>      J{1160} local
>      K{1161} local
>      L{1162} local
>    has the following in-lined locals:
>      H{1163}
>      G{1164}
>  MATRIX-ROW-SET![220]
>    has the following parameters:
>      A{999} local
>      I{1000} local
>      V{1001} local
>  MATRIX-ROW-REF[219]
>    has the following parameters:
>      A{997} local
>      I{998} local
>  MATRIX-SET![218]
>    has the following parameters:
>      A{993} local
>      I{994} local
>      J{995} local
>      X{996} local
>  MATRIX-REF[217]
>    has the following parameters:
>      A{990} local
>      I{991} local
>      J{992} local
>  MATRIX-COLUMNS[216]
>    has the following parameter:
>      A{989} local
>  MATRIX-ROWS[215]
>    has the following parameter:
>      A{988} local
>  RANDOM:CHUNK[38]
>    has the following parameter:
>      V{825} local
>    has the following in-lined locals:
>      P{826}
>      ANS{827}
>  LOGICAL:ASH-4[25]
>    has the following parameter:
>      X{815} local
>  LOGICAL:LOGXOR[20] reentrant
>    has the following parameters:
>      N1{813} local
>      N2{814} local
>  HEX-STRING->NUMBER[15]
>    has region
>    has the following parameter:
>      S{808} local
>    has the following in-lined locals:
>      S{811}
>      C{812}
>      CHAR{1830}
>  VOID[13]
>  [inside top level 0]
>    has the following in-lined locals:
>      *RANDOM-STATE*{704}
>      RANDOM:MASK{705}
>      RANDOM:CHUNK-SIZE{706}
>      *MOST-POSITIVE-FIXNUM*{713}
>      I{805}
>      L{816}
>      TRIAL{817}
>      RANDOM-STRINGS{818}
>      NIBBLES{820}
>      I{823}
>      ILEN{832}
>      S{833}
>      SLOP{834}
>      N{837}
>      R{838}
>      X{840}
>      X{841}
>      X{844}
>      Y{845}
>      X{846}
>      Y{847}
>      L{849}
>      I{850}
>      L{853}
>      C{854}
>      N{885}
>      I{888}
>      C{889}
>      N{891}
>      I{894}
>      C{895}
>      N{913}
>      V{914}
>      I{918}
>      N{921}
>      V{922}
>      I{926}
>      N{937}
>      V{938}
>      I{942}
>      N{945}
>      V{946}
>      I{950}
>      N{953}
>      V{954}
>      I{958}
>      L{961}
>      L{964}
>      C{965}
>      X{966}
>      L{967}
>      L{970}
>      I{971}
>      M{978}
>      N{979}
>      M{981}
>      N{982}
>      X{1323}
>      Z{1324}
>      MODELS{1325}
>      CLIP{1326}
>      EM-KICK-OFF-TOLERANCE{1327}
>      EM-CONVERGENCE-TOLERANCE{1328}
>      OLD-LOG-LIKELIHOOD{1331}
>      STARTING?{1332}
>      LOG-LIKELIHOOD{1333}
>      v{1334}
>      v{1336}
>      EPSILON{1337}
>      II{1338}
>      JJ{1339}
>      S{1341}
>      ZI{1342}
>      J{1347}
>      SI{1349}
>      J{1352}
>      X{1355}
>      CLIP{1356}
>      EM-KICK-OFF-TOLERANCE{1357}
>      EM-CONVERGENCE-TOLERANCE{1358}
>      EMS-CONVERGENCE-TOLERANCE{1359}
>      JJ{1362}
>      OLD-Z{1363}
>      OLD-MODELS{1364}
>      OLD-LOG-LIKELIHOOD{1365}
>      KK{1366}
>      Z{1367}
>      MODELS{1368}
>      NEW-LOG-LIKELIHOOD{1370}
>      X{1372}
>      CLIP{1373}
>      EM-KICK-OFF-TOLERANCE{1374}
>      EM-CONVERGENCE-TOLERANCE{1375}
>      EMS-CONVERGENCE-TOLERANCE{1376}
>      Z-MODELS{1377}
>      Z{1378}
>      MODELS{1379}
>      CLUSTERS{1381}
>      J{1382}
>      CLUSTER{1383}
>      CLUSTER{1384}
>      I{1385}
>      ZI{1386}
>      OBJ1{1389}
>      OBJ2{1390}
>      v{1391}
>      v{1392}
>      PAIR{1408}
>      LIST{1527}
>      LIST{1530}
>      R{1531}
>      X{1635}
>      XS{1636}
>      R{1640}
>      STRING{2007}
>      START{2008}
>      END{2009}
>      R{2010}
>      K{2014}
>      LIST1{2160}
>      LIST1{2164}
>      C{2165}
>      OBJ{2798}
>      PAIR{2813}
>      PAIR{2814}
>      PAIR{2815}
>      PAIR{2816}
>      PAIR{2817}
>      PAIR{2818}
>      PAIR{2819}
>The following non-trivial in-line native procedures will be generated:
>  [clone LOOP[947] 2805]
>    has the following parameters:
>      LIST{2824} local
>      R{2825} local
>  [clone LIST-REVERSE[944] 2802]
>    has the following parameter:
>      LIST{2821} local
>  [clone CAR[794] 2801]
>    has the following parameter:
>      PAIR{2820} local
>  [clone CAR[794] 2800]
>    has the following parameter:
>      PAIR{2819} local
>  [clone CAR[794] 2799]
>    has the following parameter:
>      PAIR{2818} local
>  [clone CAR[794] 2798]
>    has the following parameter:
>      PAIR{2817} local
>  [clone CAR[794] 2797]
>    has the following parameter:
>      PAIR{2816} local
>  [clone CAR[794] 2796]
>    has the following parameter:
>      PAIR{2815} local
>  [clone CAR[794] 2795]
>    has the following parameter:
>      PAIR{2814} local
>  [clone CAR[794] 2794]
>    has the following parameter:
>      PAIR{2813} local
>  WRITE[2543]
>    has the following parameter:
>      OBJ{2798} local
>  [inside LOOP 2174] reentrant
>  [inside LOOP 2173] reentrant
>  LOOP[2172] reentrant
>    has the following parameter:
>      I{2572} local
>  [inside WRITE2 2169] reentrant
>  [inside WRITE2 2168] reentrant
>  [inside WRITE2 2166] reentrant
>  [inside LOOP 2163] reentrant
>  [inside LOOP 2162] reentrant
>  [inside LOOP 2161] reentrant
>  [inside LOOP 2159] reentrant
>  LOOP[2158] reentrant
>    has the following parameter:
>      OBJ{2560} local
>  [inside WRITE2 2155] reentrant
>  [inside WRITE2 2154] reentrant
>  LOOP[2123]
>    has the following parameters:
>      MANTISSA{2542} local
>      EXPONENT{2543} local
>  LOOP[2118]
>    has the following parameters:
>      MANTISSA{2538} local
>      EXPONENT{2539} local
>  DISPLAY-INEXACT-REAL2[2109]
>    has the following parameters:
>      NUMBER{2533} local
>      PORT{2534} local
>  [inside LOOP 2106]
>    has the following parameter:
>      MANTISSA{2532} local
>  [inside LOOP 2103]
>    has the following parameter:
>      DIGIT{2530} local
>  [inside LOOP 2102]
>    has the following parameter:
>      FLOAT-DIGIT{2529} local
>  LOOP[2101]
>    has the following parameter:
>      MANTISSA{2528} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2090]
>    has the following parameter:
>      DIGIT{2521} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 2089]
>    has the following parameter:
>      FLOAT-DIGIT{2520} local
>  LOOP[2080]
>    has the following parameter:
>      I{2514} local
>  LOOP[2077]
>    has the following parameters:
>      I{2510} local
>      NUMBER{2511} local
>  LOOP[2066]
>    has the following parameter:
>      I{2504} local
>  LOOP[2063]
>    has the following parameters:
>      I{2500} local
>      NUMBER{2501} local
>  LOOP[2054]
>    has the following parameter:
>      I{2494} local
>  [inside DISPLAY-STRING2 2051]
>    has the following parameter:
>      N{2491} local
>  [inside top level 2046]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2450} global
>      BUFFER{2452} global
>  LOOP[1570]
>    has region
>    has the following parameters:
>      LIST1{2164} local
>      C{2165} local
>  MAP[1566]
>    has the following parameter:
>      LIST1{2160} local
>  VECTOR->LIST[1480]
>    has the following parameter:
>      VECTOR{2089} global
>  [inside STRING->LIST 1415]
>    has the following parameter:
>      N{2035} global
>  STRING->LIST[1414]
>    has the following parameter:
>      STRING{2034} global
>  LOOP[1386]
>    has the following parameter:
>      K{2014} local
>  [inside SUBSTRING 1382]
>    has the following parameter:
>      R{2010} local
>  SUBSTRING[1381]
>    has the following parameters:
>      STRING{2007} local
>      START{2008} local
>      END{2009} local
>  [inside top level 1240]
>    has the following parameter:
>      CHAR{1830} local
>  [inside top level 1239]
>    has the following parameter:
>      CHAR-NUMERIC?{1829} global
>  [inside MODULO 1109]
>    has the following parameter:
>      v{1676} local
>  LOOP[1078]
>    has the following parameter:
>      R{1640} local
>  MAX[1075]
>    has the following parameters:
>      X{1635} local
>      XS{1636} local
>  LOOP[947]
>    has the following parameters:
>      LIST{1530} local
>      R{1531} local
>  LIST-REVERSE[944]
>    has the following parameter:
>      LIST{1527} local
>  CAR[794]
>    has the following parameter:
>      PAIR{1408} local
>  [inside EQV? 780]
>    has the following parameter:
>      v{1392} local
>  [inside EQV? 779]
>    has the following parameter:
>      v{1391} local
>  EQV?[778]
>    has the following parameters:
>      OBJ1{1389} local
>      OBJ2{1390} local
>  [inside EM-CLUSTERER 700]
>    has the following parameter:
>      ZI{1386} local
>  [inside EM-CLUSTERER 699]
>    has region
>    has the following parameter:
>      I{1385} local
>  [inside EM-CLUSTERER 698]
>    has the following parameter:
>      CLUSTER{1384} local
>  [inside EM-CLUSTERER 697]
>    has the following parameter:
>      CLUSTER{1383} local
>  [inside EM-CLUSTERER 696]
>    has the following parameter:
>      J{1382} local
>  [inside EM-CLUSTERER 695]
>    has the following parameter:
>      CLUSTERS{1381} local
>  [inside EM-CLUSTERER 692]
>    has the following parameter:
>      MODELS{1379} local
>  [inside EM-CLUSTERER 691]
>    has the following parameter:
>      Z{1378} local
>  [inside EM-CLUSTERER 690]
>    has the following parameter:
>      Z-MODELS{1377} local
>  EM-CLUSTERER[689]
>    has region
>    has the following parameters:
>      X{1372} local
>      CLIP{1373} local
>      EM-KICK-OFF-TOLERANCE{1374} local
>      EM-CONVERGENCE-TOLERANCE{1375} local
>      EMS-CONVERGENCE-TOLERANCE{1376} local
>  [inside LOOP 686]
>    has the following parameter:
>      NEW-LOG-LIKELIHOOD{1370} local
>  [inside LOOP 683]
>    has the following parameter:
>      MODELS{1368} local
>  [inside LOOP 682]
>    has the following parameter:
>      Z{1367} local
>  [inside LOOP 681]
>    has the following parameter:
>      KK{1366} local
>  LOOP[680]
>    has the following parameters:
>      JJ{1362} local
>      OLD-Z{1363} local
>      OLD-MODELS{1364} local
>      OLD-LOG-LIKELIHOOD{1365} local
>  EMS[677]
>    has the following parameters:
>      X{1355} local
>      CLIP{1356} local
>      EM-KICK-OFF-TOLERANCE{1357} local
>      EM-CONVERGENCE-TOLERANCE{1358} local
>      EMS-CONVERGENCE-TOLERANCE{1359} local
>  loop[671]
>    has the following parameter:
>      J{1352} local
>  [inside INITIAL-Z 668]
>    has the following parameter:
>      SI{1349} local
>  loop[663]
>    has the following parameter:
>      J{1347} local
>  [inside INITIAL-Z 659]
>    has the following parameters:
>      S{1341} local
>      ZI{1342} local
>  INITIAL-Z[657]
>    has the following parameters:
>      II{1338} local
>      JJ{1339} local
>  NOISE[656]
>    has the following parameter:
>      EPSILON{1337} local
>  [inside LOOP 653]
>    has the following parameter:
>      v{1336} local
>  [inside LOOP 650]
>    has the following parameter:
>      v{1334} local
>  [inside LOOP 649]
>    has the following parameter:
>      LOG-LIKELIHOOD{1333} local
>  LOOP[648]
>    has the following parameters:
>      OLD-LOG-LIKELIHOOD{1331} local
>      STARTING?{1332} local
>  EM![645]
>    has the following parameters:
>      X{1323} local
>      Z{1324} local
>      MODELS{1325} local
>      CLIP{1326} local
>      EM-KICK-OFF-TOLERANCE{1327} local
>      EM-CONVERGENCE-TOLERANCE{1328} local
>  loop[637]
>    has the following parameter:
>      I{1321} local
>  [inside loop 633]
>    has the following parameters:
>      M{1316} local
>      MU-K2{1317} local
>  loop[629]
>    has the following parameter:
>      K2{1314} local
>  [inside loop 626]
>    has the following parameters:
>      MU-K1{1310} local
>      SIGMA-K1{1311} local
>  loop[622]
>    has the following parameter:
>      K1{1308} local
>  [inside loop 619]
>    has the following parameter:
>      SI{1305} local
>  loop[613]
>    has the following parameter:
>      I{1303} local
>  [inside loop 609]
>    has the following parameter:
>      M{1299} local
>  loop[605]
>    has the following parameter:
>      K{1297} local
>  [inside loop 602]
>    has the following parameter:
>      SI{1294} local
>  loop[597]
>    has the following parameter:
>      I{1292} local
>  [inside loop 592]
>    has the following parameter:
>      S{1282} local
>  [inside loop 591]
>    has the following parameter:
>      SIGMA{1281} local
>  [inside loop 590]
>    has the following parameter:
>      MU{1280} local
>  [inside loop 589]
>    has the following parameter:
>      MODEL{1279} local
>  loop[585]
>    has the following parameter:
>      J{1277} local
>  [inside M-STEP! 582]
>    has the following parameter:
>      KK{1274} local
>  loop[573]
>    has the following parameter:
>      K2{1268} local
>  [inside loop 570]
>    has the following parameter:
>      SIGMA-INVERSE-K1{1265} local
>  loop[566]
>    has the following parameter:
>      K1{1263} local
>  [inside loop 561]
>    has the following parameter:
>      T{1258} local
>  [inside loop 560]
>    has the following parameter:
>      LOG-DETERMINANT-SIGMA{1257} local
>  [inside loop 559]
>    has the following parameter:
>      SIGMA-INVERSE{1256} local
>  [inside loop 558]
>    has the following parameter:
>      MU{1255} local
>  [inside loop 557]
>    has the following parameter:
>      LOG-PI{1254} local
>  [inside loop 556]
>    has the following parameter:
>      MODEL{1253} local
>  loop[552]
>    has the following parameter:
>      J{1251} local
>  [inside loop 549]
>    has the following parameters:
>      ZI{1247} local
>      XI{1248} local
>  loop[545]
>    has the following parameter:
>      I{1245} local
>  loop[537]
>    has the following parameter:
>      J{1241} local
>  loop[530]
>    has the following parameter:
>      J{1237} local
>  [inside loop 526]
>    has the following parameters:
>      ZI{1231} local
>      S{1232} local
>  loop[522]
>    has the following parameter:
>      I{1229} local
>  [inside E-STEP! 518]
>    has the following parameter:
>      L{1225} local
>  loop[509]
>    has the following parameter:
>      K{1219} local
>  [inside loop 505]
>    has the following parameters:
>      S{1214} local
>      E-K2{1215} local
>  loop[501]
>    has the following parameter:
>      K2{1212} local
>  [inside loop 498]
>    has the following parameters:
>      E-K1{1208} local
>      A-K1{1209} local
>  loop[494]
>    has the following parameter:
>      K1{1206} local
>  [inside CLIP-EIGENVALUES! 490]
>    has the following parameter:
>      E{1203} local
>  [inside CLIP-EIGENVALUES! 489]
>    has the following parameter:
>      L{1202} local
>  [inside CLIP-EIGENVALUES! 488]
>    has the following parameter:
>      J{1201} local
>  CLIP-EIGENVALUES![487]
>    has region
>    has the following parameters:
>      A{1199} local
>      V{1200} local
>  [inside JACOBI! 485]
>    has the following parameter:
>      J{1198} local
>  [inside JACOBI! 484]
>    has the following parameter:
>      I{1197} local
>  [inside loop 477]
>    has the following parameter:
>      J{1195} local
>  loop[473]
>    has the following parameter:
>      L{1193} local
>  [inside loop 467]
>    has the following parameter:
>      P{1189} local
>  loop[463]
>    has the following parameter:
>      J{1187} local
>  [inside loop 457]
>    has the following parameters:
>      P{1180} local
>      K{1181} local
>  loop[453]
>    has the following parameter:
>      I{1178} local
>  [inside LOOP 448]
>    has the following parameter:
>      IQ{1175} local
>  [inside LOOP 447]
>    has the following parameter:
>      IR{1174} local
>  [inside LOOP 446]
>    has the following parameter:
>      IP{1173} local
>  loop[440]
>    has the following parameter:
>      IP{1169} local
>  [inside loop 434]
>    has the following parameter:
>      THETA{1166} local
>  [inside ROTATE 431]
>    has the following parameters:
>      H{1163} local
>      G{1164} local
>  loop[421]
>    has the following parameter:
>      J{1155} local
>  [inside loop 415]
>    has the following parameter:
>      H{1145} local
>  [inside loop 414]
>    has the following parameter:
>      TAU{1144} global
>  [inside loop 413]
>    has the following parameter:
>      S{1143} global
>  [inside loop 412]
>    has the following parameter:
>      C{1142} local
>  [inside loop 411]
>    has the following parameter:
>      T{1141} local
>  [inside loop 410]
>    has the following parameter:
>      H{1140} local
>  [inside loop 406]
>    has the following parameter:
>      G{1139} local
>  [inside loop 405]
>    has the following parameter:
>      IQ{1138} local
>  loop[401]
>    has the following parameter:
>      IR{1136} local
>  loop[395]
>    has the following parameter:
>      IP{1132} local
>  [inside LOOP 392]
>    has the following parameter:
>      TRESH{1129} local
>  [inside LOOP 389]
>    has the following parameter:
>      SM{1126} local
>  LOOP[387]
>    has the following parameter:
>      I{1124} local
>  loop[380]
>    has the following parameter:
>      IP{1118} local
>  [inside JACOBI! 375]
>    has the following parameter:
>      Z{1112} local
>  [inside JACOBI! 374]
>    has region
>    has the following parameter:
>      B{1111} local
>  [inside JACOBI! 373]
>    has region
>    has the following parameter:
>      V{1110} local
>  [inside JACOBI! 372]
>    has the following parameter:
>      D{1109} local
>  [inside JACOBI! 371]
>    has the following parameter:
>      N{1108} local
>  JACOBI![369]
>    has the following parameter:
>      A{1106} local
>  loop[363]
>    has the following parameter:
>      I{1104} local
>  loop[355]
>    has the following parameter:
>      J{1099} local
>  loop[349]
>    has the following parameter:
>      I{1095} local
>  loop[341]
>    has the following parameter:
>      J{1090} local
>  loop[332]
>    has the following parameter:
>      J{1085} local
>  [inside loop 329]
>    has the following parameter:
>      D{1082} local
>  loop[325]
>    has the following parameter:
>      K{1080} local
>  [inside loop 321]
>    has the following parameter:
>      D{1076} local
>  [inside loop 316]
>    has the following parameter:
>      E{1074} local
>  [inside loop 314]
>    has the following parameter:
>      E{1072} local
>  loop[308]
>    has the following parameter:
>      J{1068} local
>  loop[300]
>    has the following parameter:
>      I{1061} local
>  [inside INVERT-MATRIX! 295]
>    has the following parameter:
>      C{1056} local
>  [inside INVERT-MATRIX! 294]
>    has region
>    has the following parameter:
>      N{1055} local
>  INVERT-MATRIX![292]
>    has the following parameters:
>      A{1052} local
>      B{1053} local
>  [inside loop 287]
>    has the following parameter:
>      V{1049} local
>  [inside loop 281]
>    has the following parameter:
>      X{1047} local
>  loop[277]
>    has the following parameter:
>      J{1045} local
>  loop[270]
>    has the following parameter:
>      J{1041} local
>  loop[262]
>    has the following parameter:
>      K{1037} local
>  [inside loop 259]
>    has the following parameter:
>      E{1034} local
>  loop[255]
>    has the following parameter:
>      J{1032} local
>  [inside loop 251]
>    has the following parameter:
>      C{1027} local
>  [inside loop 249]
>    has the following parameters:
>      INDEX{1022} local
>      GREATEST{1023} local
>  loop[245]
>    has the following parameter:
>      I{1020} local
>  loop[237]
>    has the following parameter:
>      J{1016} local
>  loop[231]
>    has the following parameter:
>      I{1012} local
>  [inside DETERMINANT 226]
>    has the following parameter:
>      D{1007} local
>  [inside DETERMINANT 225]
>    has the following parameter:
>      B{1006} local
>  [inside DETERMINANT 224]
>    has region
>    has the following parameter:
>      N{1005} local
>  DETERMINANT[221]
>    has the following parameter:
>      A{1002} local
>  MAKE-MATRIX-INITIAL[213]
>    has the following parameters:
>      M{984} local
>      N{985} local
>      INITIAL{986} local
>  MAKE-MATRIX4[211]
>    has the following parameters:
>      M{981} local
>      N{982} local
>  MAKE-MATRIX3[209]
>    has the following parameters:
>      M{978} local
>      N{979} local
>  MAKE-MATRIX2[207]
>    has the following parameters:
>      M{975} local
>      N{976} local
>  MAKE-MATRIX1[205]
>    has the following parameters:
>      M{972} local
>      N{973} local
>  LOOP[200]
>    has the following parameters:
>      L{970} local
>      I{971} local
>  POSITIONV[197]
>    has the following parameters:
>      X{966} local
>      L{967} local
>  LOOP[192]
>    has region
>    has the following parameters:
>      L{964} local
>      C{965} local
>  REMOVE-IF-NOT[189]
>    has the following parameter:
>      L{961} local
>  LOOP[184]
>    has the following parameter:
>      I{958} local
>  [inside MAP-N-VECTOR8 180]
>    has the following parameter:
>      V{954} local
>  MAP-N-VECTOR8[179]
>    has the following parameter:
>      N{953} local
>  LOOP[174]
>    has the following parameter:
>      I{950} local
>  [inside MAP-N-VECTOR7 170]
>    has the following parameter:
>      V{946} local
>  MAP-N-VECTOR7[169]
>    has the following parameter:
>      N{945} local
>  LOOP[164]
>    has the following parameter:
>      I{942} local
>  [inside MAP-N-VECTOR6 160]
>    has the following parameter:
>      V{938} local
>  MAP-N-VECTOR6[159]
>    has the following parameter:
>      N{937} local
>  LOOP[154]
>    has the following parameter:
>      I{934} local
>  [inside MAP-N-VECTOR5 150]
>    has the following parameter:
>      V{930} local
>  MAP-N-VECTOR5[149]
>    has the following parameter:
>      N{929} local
>  LOOP[144]
>    has the following parameter:
>      I{926} local
>  [inside MAP-N-VECTOR4 140]
>    has the following parameter:
>      V{922} local
>  MAP-N-VECTOR4[139]
>    has the following parameter:
>      N{921} local
>  LOOP[134]
>    has the following parameter:
>      I{918} local
>  [inside MAP-N-VECTOR3 130]
>    has the following parameter:
>      V{914} local
>  MAP-N-VECTOR3[129]
>    has the following parameter:
>      N{913} local
>  LOOP[124]
>    has the following parameter:
>      I{910} local
>  [inside MAP-N-VECTOR2 120]
>    has the following parameter:
>      V{906} local
>  MAP-N-VECTOR2[119]
>    has the following parameter:
>      N{905} local
>  LOOP[114]
>    has the following parameter:
>      I{902} local
>  [inside MAP-N-VECTOR1 110]
>    has the following parameter:
>      V{898} local
>  MAP-N-VECTOR1[109]
>    has the following parameter:
>      N{897} local
>  LOOP[107]
>    has region
>    has the following parameters:
>      I{894} local
>      C{895} local
>  MAP-N2[104]
>    has the following parameter:
>      N{891} local
>  LOOP[102]
>    has region
>    has the following parameters:
>      I{888} local
>      C{889} local
>  MAP-N1[99]
>    has the following parameter:
>      N{885} local
>  [inside ADD-EXP 97]
>    has the following parameter:
>      FACTOR{883} local
>  [inside ADD-EXP 96]
>    has the following parameter:
>      E-MIN{882} local
>  [inside ADD-EXP 95]
>    has the following parameter:
>      E-MAX{881} local
>  ADD-EXP[94]
>    has the following parameters:
>      E1{879} local
>      E2{880} local
>  LOOP[92]
>    has the following parameters:
>      N{877} local
>      C{878} local
>  SUM2[89]
>    has the following parameter:
>      N{874} local
>  LOOP[87]
>    has the following parameters:
>      N{871} local
>      C{872} local
>  SUM1[84]
>    has the following parameter:
>      N{868} local
>  [inside LOOP 82]
>    has the following parameter:
>      v{866} local
>  LOOP[81]
>    has the following parameter:
>      I{865} local
>  EVERY-N2[78]
>    has the following parameter:
>      N{862} local
>  [inside LOOP 76]
>    has the following parameter:
>      v{860} local
>  LOOP[75]
>    has the following parameter:
>      I{859} local
>  EVERY-N1[72]
>    has the following parameter:
>      N{856} local
>  LOOP[70]
>    has region
>    has the following parameters:
>      L{853} local
>      C{854} local
>  REDUCE[64]
>    has the following parameters:
>      L{849} local
>      I{850} local
>  LIST-TWO3[63]
>    has the following parameters:
>      X{846} local
>      Y{847} local
>  LIST-TWO2[62]
>    has the following parameters:
>      X{844} local
>      Y{845} local
>  LIST-TWO1[61]
>    has the following parameters:
>      X{842} local
>      Y{843} local
>  SECOND3[60]
>    has the following parameter:
>      X{841} local
>  SECOND2[59]
>    has the following parameter:
>      X{840} local
>  SECOND1[58]
>    has the following parameter:
>      X{839} local
>  LOOP[51]
>    has the following parameters:
>      N{837} local
>      R{838} local
>  [inside loop 48]
>    has the following parameter:
>      SLOP{834} local
>  loop[46]
>    has the following parameters:
>      ILEN{832} local
>      S{833} local
>  [inside RANDOM:CHUNK 40]
>    has the following parameter:
>      ANS{827} local
>  [inside RANDOM:CHUNK 39]
>    has the following parameter:
>      P{826} local
>  loop[33]
>    has region
>    has the following parameter:
>      I{823} local
>  [inside top level 30]
>    has the following parameter:
>      NIBBLES{820} local
>  [inside top level 28]
>    has the following parameter:
>      RANDOM-STRINGS{818} local
>  [inside RANDOM:SIZE-INT 27]
>    has the following parameter:
>      TRIAL{817} local
>  RANDOM:SIZE-INT[26]
>    has region
>    has the following parameter:
>      L{816} local
>  [inside LOGICAL:LOGXOR 24] reentrant
>  LOOP[18]
>    has the following parameters:
>      S{811} local
>      C{812} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{805} local
>  [inside top level 4]
>    has the following parameters:
>      MINUS-INFINITY{700} global
>      LOG-MATH-PRECISION{701} global
>      *RANDOM-STATE*{704} local
>      RANDOM:MASK{705} local
>      RANDOM:CHUNK-SIZE{706} local
>      RANDOM:SIZE{708} global
>      RANDOM:TAP{709} global
>      LOGICAL:BOOLE-XOR{710} global
>      *MOST-POSITIVE-FIXNUM*{713} local
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on LOOP[1570]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on [inside EM-CLUSTERER 699]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on HEX-STRING->NUMBER[15]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP ((PRIMITIVE-PROCEDURE +) K 1)))
>The following expression allocates on loop[33]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START))
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, em-imperative-split-stalin.sc:594:19718, allocates on EM-CLUSTERER[689]:
>(MAKE-MODEL 0.0 ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) (MAKE-MATRIX3 KK KK) 0.0 (MAKE-MATRIX4 KK KK) 0.0)
>The following expression, em-imperative-split-stalin.sc:595:19744, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK)
>The following expression, em-imperative-split-stalin.sc:383:12177, allocates on CLIP-EIGENVALUES![487]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:385:12233, allocates on [inside JACOBI! 373]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:386:12254, allocates on [inside JACOBI! 374]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, em-imperative-split-stalin.sc:289:8922, allocates on CLIP-EIGENVALUES![487]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL)
>The following expression, em-imperative-split-stalin.sc:286:8830, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:284:8754, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:282:8678, allocates on [inside INVERT-MATRIX! 294]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:280:8602, allocates on [inside DETERMINANT 224]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:271:8365, allocates on LOOP[192]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C)
>The following expression, em-imperative-split-stalin.sc:260:8086, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:252:7925, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:244:7764, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:236:7603, allocates on CLIP-EIGENVALUES![487]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:228:7442, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:220:7281, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:212:7120, allocates on [inside INVERT-MATRIX! 294]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:204:6959, allocates on [inside DETERMINANT 224]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N)
>The following expression, em-imperative-split-stalin.sc:201:6889, allocates on LOOP[107]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-imperative-split-stalin.sc:196:6743, allocates on LOOP[102]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C)
>The following expression, em-imperative-split-stalin.sc:166:5934, allocates on LOOP[70]:
>(F C (FIRST L))
>The following expression, em-imperative-split-stalin.sc:160:5740, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-imperative-split-stalin.sc:160:5748, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-imperative-split-stalin.sc:158:5692, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-imperative-split-stalin.sc:158:5700, allocates on EM-CLUSTERER[689]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-imperative-split-stalin.sc:156:5644, allocates on CLIP-EIGENVALUES![487]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ())))
>The following expression, em-imperative-split-stalin.sc:156:5652, allocates on CLIP-EIGENVALUES![487]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y (QUOTE ()))
>The following expression, em-imperative-split-stalin.sc:108:4241, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0)
>The following expression, em-imperative-split-stalin.sc:91:3418, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f)
>The following expression, em-imperative-split-stalin.sc:83:3177, allocates on RANDOM:SIZE-INT[26]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W21498 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W6252 is general case for the following reasons:
>  flonum
>W6206 is general case for the following reasons:
>  flonum
>W6204 is general case for the following reasons:
>  flonum
>W5958 is general case for the following reasons:
>  flonum
>W35 is general case for the following reasons:
>  flonum
>W15 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>em-imperative-split-stalin.c: In function âf0â:
>em-imperative-split-stalin.c:9110:33: warning: âa1363â may be used uninitialized in this function
>em-imperative-split-stalin.c:9111:33: warning: âa1364â may be used uninitialized in this function
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  1% - Expanding macros
>     2 - 21% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  6% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 10% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 - 10% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  2% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  5% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  3% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     1 - 16% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  1% - Determining which environments have external continuation calls
>     0 -  1% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     1 -  9% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  4% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m12.405s
>user	0m11.974s
>sys	0m0.393s
>run em-imperative-split
>
>real	0m0.383s
>user	0m0.378s
>sys	0m0.004s
>compile nfm
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 19362 expressions
>    18 internal symbol types
>     1 external symbol type
>    76 primitive procedure types
>   187 non-called native procedure types
>   439 called noop native procedure types
>   810 called non-noop native procedure types
>     1 foreign procedure type
>     3 continuation types
>     4 string types
>   142 structure types
>    23 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 22129 type sets
>   767 hunoz variables
>  1686 non-hunoz variables
>   594 noop environments
>  1892 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 7
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 28197 expressions
>    18 internal symbol types
>     1 external symbol type
>    76 primitive procedure types
>   191 non-called native procedure types
>   570 called noop native procedure types
>  1457 called non-noop native procedure types
>     1 foreign procedure type
>     3 continuation types
>     4 string types
>   146 structure types
>    23 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 32049 type sets
>   898 hunoz variables
>  2918 non-hunoz variables
>   725 noop environments
>  3005 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 7
>Maximal clone rate is 108
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 16461 expressions
>    18 internal symbol types
>     1 external symbol type
>    76 primitive procedure types
>   187 non-called native procedure types
>   570 called noop native procedure types
>  1457 called non-noop native procedure types
>     1 foreign procedure type
>     3 continuation types
>     4 string types
>   146 structure types
>    23 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19271 type sets
>   641 hunoz variables
>  2133 non-hunoz variables
>     0 noop environments
>  1743 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 7
>Maximal clone rate is 108
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  WRITE2[1818]
>    has the following parameters:
>      OBJ{2184} local
>      PORT{2185} local
>    has the following in-lined locals:
>      STRING{2129}
>      PORT{2130}
>      N{2131}
>      I{2134}
>      NUMBER{2136}
>      PORT{2137}
>      I{2140}
>      NUMBER{2141}
>      I{2144}
>      I{2150}
>      NUMBER{2151}
>      I{2154}
>  LOOKUP-CHARACTER-NAME[1698]
>    has the following parameter:
>      S{2074} local
>    has the following in-lined locals:
>      CHAR1{1422}
>      CHAR2{1423}
>      CHAR1{1427}
>      CHAR2{1428}
>      NAMES{2077}
>      S{2081}
>      NAME{2082}
>      v{2083}
>      CHAR{2464}
>      CHAR{2465}
>  READ-SYMBOL[1692]
>    has region
>    has the following parameter:
>      S{2071} local
>    has the following in-lined locals:
>      C{2072}
>      CHAR{2466}
>      &REST{2522}
>      &REST{2580}
>      LIST{3608}
>      LIST{3611}
>      R{3612}
>      LIST{3613}
>      LIST{3616}
>      R{3617}
>      C{3663}
>      v{3664}
>      v{3665}
>      v{3666}
>      v{3667}
>      CHAR{3676}
>      CHAR1{3677}
>      CHAR2{3678}
>      CHAR1{3682}
>      CHAR2{3683}
>      CHAR1{3686}
>      CHAR2{3687}
>      CHAR1{3691}
>      CHAR2{3692}
>      CHAR1{3695}
>      CHAR2{3696}
>      CHAR1{3700}
>      CHAR2{3701}
>  CHAR-INITIAL?[1672]
>    has the following parameter:
>      C{2051} local
>    has the following in-lined locals:
>      v{2052}
>      v{2053}
>      v{2054}
>      v{2055}
>      v{2056}
>      v{2057}
>      v{2058}
>      v{2059}
>      v{2060}
>      v{2061}
>      v{2062}
>      v{2063}
>      v{2064}
>      v{2065}
>      CHAR{2494}
>      CHAR1{3373}
>      CHAR2{3374}
>      CHAR1{3378}
>      CHAR2{3379}
>      CHAR1{3382}
>      CHAR2{3383}
>      CHAR1{3387}
>      CHAR2{3388}
>      CHAR1{3391}
>      CHAR2{3392}
>      CHAR1{3396}
>      CHAR2{3397}
>      CHAR1{3400}
>      CHAR2{3401}
>      CHAR1{3405}
>      CHAR2{3406}
>      CHAR1{3409}
>      CHAR2{3410}
>      CHAR1{3414}
>      CHAR2{3415}
>      CHAR1{3418}
>      CHAR2{3419}
>      CHAR1{3423}
>      CHAR2{3424}
>      CHAR1{3427}
>      CHAR2{3428}
>      CHAR1{3432}
>      CHAR2{3433}
>      CHAR1{3436}
>      CHAR2{3437}
>      CHAR1{3441}
>      CHAR2{3442}
>      CHAR1{3445}
>      CHAR2{3446}
>      CHAR1{3450}
>      CHAR2{3451}
>      CHAR1{3454}
>      CHAR2{3455}
>      CHAR1{3459}
>      CHAR2{3460}
>      CHAR1{3463}
>      CHAR2{3464}
>      CHAR1{3468}
>      CHAR2{3469}
>      CHAR1{3472}
>      CHAR2{3473}
>      CHAR1{3477}
>      CHAR2{3478}
>      CHAR1{3481}
>      CHAR2{3482}
>      CHAR1{3486}
>      CHAR2{3487}
>      CHAR1{3490}
>      CHAR2{3491}
>      CHAR1{3495}
>      CHAR2{3496}
>  READ-NUMBER[1638]
>    has region
>    has the following parameter:
>      N{2029} local
>    has the following in-lined locals:
>      CHAR{1470}
>      C1{2030}
>      v{2033}
>      v{2034}
>      v{2035}
>      v{2036}
>      v{2037}
>      v{2038}
>      v{2039}
>      v{2040}
>      v{2041}
>      C2{2043}
>      C3{2045}
>      C3{2048}
>      CHAR{2468}
>      CHAR{2469}
>      CHAR{2490}
>      &REST{2521}
>      &REST{2528}
>      &REST{2529}
>      &REST{2530}
>      &REST{2531}
>      &REST{2532}
>      &REST{2579}
>      CHAR1{2770}
>      CHAR2{2771}
>      CHAR1{2775}
>      CHAR2{2776}
>      CHAR1{2779}
>      CHAR2{2780}
>      CHAR1{2784}
>      CHAR2{2785}
>      CHAR1{3247}
>      CHAR2{3248}
>      CHAR1{3252}
>      CHAR2{3253}
>      CHAR1{3256}
>      CHAR2{3257}
>      CHAR1{3261}
>      CHAR2{3262}
>      CHAR1{3265}
>      CHAR2{3266}
>      CHAR1{3270}
>      CHAR2{3271}
>      CHAR1{3274}
>      CHAR2{3275}
>      CHAR1{3279}
>      CHAR2{3280}
>      CHAR1{3283}
>      CHAR2{3284}
>      CHAR1{3288}
>      CHAR2{3289}
>      CHAR1{3292}
>      CHAR2{3293}
>      CHAR1{3297}
>      CHAR2{3298}
>      CHAR1{3301}
>      CHAR2{3302}
>      CHAR1{3306}
>      CHAR2{3307}
>      CHAR1{3310}
>      CHAR2{3311}
>      CHAR1{3315}
>      CHAR2{3316}
>      CHAR1{3319}
>      CHAR2{3320}
>      CHAR1{3324}
>      CHAR2{3325}
>      CHAR1{3328}
>      CHAR2{3329}
>      CHAR1{3333}
>      CHAR2{3334}
>      CHAR1{3337}
>      CHAR2{3338}
>      CHAR1{3342}
>      CHAR2{3343}
>  READ-INEXACT-NUMBER[1606]
>    has region
>    has the following parameters:
>      N{2007} local
>      M{2008} local
>    has the following in-lined locals:
>      C1{2009}
>      v{2011}
>      v{2012}
>      v{2013}
>      v{2014}
>      v{2015}
>      v{2016}
>      v{2017}
>      v{2018}
>      v{2019}
>      C2{2021}
>      C3{2023}
>      C3{2026}
>      CHAR{2479}
>      CHAR{2481}
>      CHAR{2482}
>      CHAR{2483}
>      &REST{2517}
>      &REST{2560}
>      &REST{2561}
>      &REST{2563}
>      &REST{2564}
>      &REST{2565}
>      CHAR1{2950}
>      CHAR2{2951}
>      CHAR1{2955}
>      CHAR2{2956}
>      CHAR1{2959}
>      CHAR2{2960}
>      CHAR1{2964}
>      CHAR2{2965}
>      CHAR1{2968}
>      CHAR2{2969}
>      CHAR1{2973}
>      CHAR2{2974}
>      CHAR1{2977}
>      CHAR2{2978}
>      CHAR1{2982}
>      CHAR2{2983}
>      CHAR1{2986}
>      CHAR2{2987}
>      CHAR1{2991}
>      CHAR2{2992}
>      CHAR1{2995}
>      CHAR2{2996}
>      CHAR1{3000}
>      CHAR2{3001}
>      CHAR1{3004}
>      CHAR2{3005}
>      CHAR1{3009}
>      CHAR2{3010}
>      CHAR1{3013}
>      CHAR2{3014}
>      CHAR1{3018}
>      CHAR2{3019}
>      CHAR1{3022}
>      CHAR2{3023}
>      CHAR1{3027}
>      CHAR2{3028}
>      CHAR1{3031}
>      CHAR2{3032}
>      CHAR1{3036}
>      CHAR2{3037}
>      CHAR1{3040}
>      CHAR2{3041}
>      CHAR1{3045}
>      CHAR2{3046}
>      CHAR1{3049}
>      CHAR2{3050}
>      CHAR1{3054}
>      CHAR2{3055}
>  READ-EXACT-HEXADECIMAL-INTEGER[1596]
>    has region
>    has the following parameter:
>      N{2002} local
>    has the following in-lined locals:
>      C{2003}
>      CHAR{2487}
>      &REST{2518}
>      &REST{2568}
>      &REST{2569}
>      &REST{2571}
>      CHAR1{2617}
>      CHAR2{2618}
>      CHAR1{2622}
>      CHAR2{2623}
>      CHAR1{2626}
>      CHAR2{2627}
>      CHAR1{2631}
>      CHAR2{2632}
>      CHAR1{2698}
>      CHAR2{2699}
>      CHAR1{2703}
>      CHAR2{2704}
>      CHAR1{2707}
>      CHAR2{2708}
>      CHAR1{2712}
>      CHAR2{2713}
>  READ-EXACT-DECIMAL-INTEGER[1590]
>    has region
>    has the following parameter:
>      N{1999} local
>    has the following in-lined locals:
>      C{2000}
>      CHAR{2480}
>      &REST{2516}
>      &REST{2562}
>  READ-EXACT-OCTAL-INTEGER[1584]
>    has region
>    has the following parameter:
>      N{1996} local
>    has the following in-lined locals:
>      CHAR1{1413}
>      CHAR2{1414}
>      CHAR1{1418}
>      CHAR2{1419}
>      C{1997}
>      &REST{2515}
>      &REST{2553}
>      CHAR1{2671}
>      CHAR2{2672}
>      CHAR1{2676}
>      CHAR2{2677}
>  READ-EXACT-BINARY-INTEGER[1576]
>    has region
>    has the following parameter:
>      N{1992} local
>    has the following in-lined locals:
>      C{1993}
>      &REST{2514}
>      &REST{2548}
>      &REST{2549}
>      CHAR1{2842}
>      CHAR2{2843}
>      CHAR1{2847}
>      CHAR2{2848}
>      CHAR1{2851}
>      CHAR2{2852}
>      CHAR1{2856}
>      CHAR2{2857}
>  READ[1342] reentrant
>    has region
>    has the following parameter:
>      STATE{1873} local
>    has the following in-lined locals:
>      OBJS{1092}
>      LIST{1167}
>      LIST{1170}
>      R{1171}
>      CHAR1{1386}
>      CHAR2{1387}
>      CHAR1{1391}
>      CHAR2{1392}
>      CHAR1{1395}
>      CHAR2{1396}
>      CHAR1{1400}
>      CHAR2{1401}
>      CHAR1{1404}
>      CHAR2{1405}
>      CHAR1{1409}
>      CHAR2{1410}
>      CHAR{1468}
>      CHAR{1472}
>      CHAR{1480}
>      LIST{1733}
>      R{1734}
>      K{1738}
>      C1{1896}
>      C{1900}
>      C2{1902}
>      S{1907}
>      E{1908}
>      E1{1910}
>      S{1914}
>      C{1915}
>      C2{1916}
>      v{1918}
>      v{1919}
>      v{1920}
>      C3{1921}
>      C4{1923}
>      C4{1925}
>      v{1927}
>      C3{1928}
>      C4{1930}
>      v{1933}
>      C4{1934}
>      v{1937}
>      v{1938}
>      C3{1939}
>      C4{1941}
>      C5{1943}
>      C4{1946}
>      C5{1948}
>      C4{1951}
>      v{1954}
>      C3{1955}
>      C4{1957}
>      C4{1959}
>      S{1963}
>      E{1964}
>      C3{1965}
>      S{1969}
>      C{1970}
>      C1{1972}
>      C2{1974}
>      C3{1977}
>      C2{1981}
>      C3{1984}
>      C2{1988}
>      C{2066}
>      v{2067}
>      v{2068}
>      v{2069}
>      v{2070}
>      S{2084}
>      C{2085}
>      &REST{2436}
>      CHAR{2453}
>      CHAR{2454}
>      CHAR{2455}
>      CHAR{2456}
>      CHAR{2457}
>      CHAR{2458}
>      CHAR{2459}
>      CHAR{2460}
>      CHAR{2461}
>      CHAR{2462}
>      CHAR{2463}
>      CHAR{2467}
>      CHAR{2470}
>      CHAR{2471}
>      CHAR{2472}
>      CHAR{2473}
>      CHAR{2474}
>      CHAR{2475}
>      CHAR{2476}
>      CHAR{2477}
>      CHAR{2478}
>      CHAR{2484}
>      CHAR{2485}
>      CHAR{2486}
>      CHAR{2488}
>      CHAR{2489}
>      CHAR{2491}
>      CHAR{2492}
>      CHAR{2493}
>      OBJS{2495}
>      OBJS{2496}
>      OBJS{2497}
>      OBJS{2498}
>      OBJS{2499}
>      OBJS{2500}
>      OBJS{2501}
>      OBJS{2502}
>      OBJS{2503}
>      OBJS{2504}
>      &REST{2510}
>      &REST{2511}
>      &REST{2512}
>      &REST{2513}
>      &REST{2519}
>      &REST{2520}
>      &REST{2533}
>      &REST{2534}
>      &REST{2535}
>      &REST{2536}
>      &REST{2537}
>      &REST{2538}
>      &REST{2539}
>      &REST{2540}
>      &REST{2541}
>      &REST{2542}
>      &REST{2543}
>      &REST{2544}
>      &REST{2545}
>      &REST{2546}
>      &REST{2547}
>      &REST{2550}
>      &REST{2551}
>      &REST{2552}
>      &REST{2554}
>      &REST{2555}
>      &REST{2556}
>      &REST{2557}
>      &REST{2558}
>      &REST{2559}
>      &REST{2566}
>      &REST{2567}
>      &REST{2570}
>      &REST{2572}
>      &REST{2573}
>      &REST{2574}
>      &REST{2575}
>      &REST{2576}
>      &REST{2577}
>      &REST{2578}
>      &REST{2581}
>      CHAR1{2590}
>      CHAR2{2591}
>      CHAR1{2595}
>      CHAR2{2596}
>      CHAR1{2599}
>      CHAR2{2600}
>      CHAR1{2604}
>      CHAR2{2605}
>      CHAR1{2608}
>      CHAR2{2609}
>      CHAR1{2613}
>      CHAR2{2614}
>      CHAR1{2635}
>      CHAR2{2636}
>      CHAR1{2640}
>      CHAR2{2641}
>      CHAR1{2644}
>      CHAR2{2645}
>      CHAR1{2649}
>      CHAR2{2650}
>      CHAR1{2653}
>      CHAR2{2654}
>      CHAR1{2658}
>      CHAR2{2659}
>      CHAR1{2662}
>      CHAR2{2663}
>      CHAR1{2667}
>      CHAR2{2668}
>      CHAR1{2680}
>      CHAR2{2681}
>      CHAR1{2685}
>      CHAR2{2686}
>      CHAR1{2689}
>      CHAR2{2690}
>      CHAR1{2694}
>      CHAR2{2695}
>      CHAR1{2716}
>      CHAR2{2717}
>      CHAR1{2721}
>      CHAR2{2722}
>      CHAR1{2725}
>      CHAR2{2726}
>      CHAR1{2730}
>      CHAR2{2731}
>      CHAR1{2734}
>      CHAR2{2735}
>      CHAR1{2739}
>      CHAR2{2740}
>      CHAR1{2743}
>      CHAR2{2744}
>      CHAR1{2748}
>      CHAR2{2749}
>      CHAR1{2752}
>      CHAR2{2753}
>      CHAR1{2757}
>      CHAR2{2758}
>      CHAR1{2761}
>      CHAR2{2762}
>      CHAR1{2766}
>      CHAR2{2767}
>      CHAR1{2788}
>      CHAR2{2789}
>      CHAR1{2793}
>      CHAR2{2794}
>      CHAR1{2797}
>      CHAR2{2798}
>      CHAR1{2802}
>      CHAR2{2803}
>      CHAR1{2806}
>      CHAR2{2807}
>      CHAR1{2811}
>      CHAR2{2812}
>      CHAR1{2815}
>      CHAR2{2816}
>      CHAR1{2820}
>      CHAR2{2821}
>      CHAR1{2824}
>      CHAR2{2825}
>      CHAR1{2829}
>      CHAR2{2830}
>      CHAR1{2833}
>      CHAR2{2834}
>      CHAR1{2838}
>      CHAR2{2839}
>      CHAR1{2860}
>      CHAR2{2861}
>      CHAR1{2865}
>      CHAR2{2866}
>      CHAR1{2869}
>      CHAR2{2870}
>      CHAR1{2874}
>      CHAR2{2875}
>      CHAR1{2878}
>      CHAR2{2879}
>      CHAR1{2883}
>      CHAR2{2884}
>      CHAR1{2887}
>      CHAR2{2888}
>      CHAR1{2892}
>      CHAR2{2893}
>      CHAR1{2896}
>      CHAR2{2897}
>      CHAR1{2901}
>      CHAR2{2902}
>      CHAR1{2905}
>      CHAR2{2906}
>      CHAR1{2910}
>      CHAR2{2911}
>      CHAR1{2914}
>      CHAR2{2915}
>      CHAR1{2919}
>      CHAR2{2920}
>      CHAR1{2923}
>      CHAR2{2924}
>      CHAR1{2928}
>      CHAR2{2929}
>      CHAR1{2932}
>      CHAR2{2933}
>      CHAR1{2937}
>      CHAR2{2938}
>      CHAR1{2941}
>      CHAR2{2942}
>      CHAR1{2946}
>      CHAR2{2947}
>      CHAR1{3058}
>      CHAR2{3059}
>      CHAR1{3063}
>      CHAR2{3064}
>      CHAR1{3067}
>      CHAR2{3068}
>      CHAR1{3072}
>      CHAR2{3073}
>      CHAR1{3076}
>      CHAR2{3077}
>      CHAR1{3081}
>      CHAR2{3082}
>      CHAR1{3085}
>      CHAR2{3086}
>      CHAR1{3090}
>      CHAR2{3091}
>      CHAR1{3094}
>      CHAR2{3095}
>      CHAR1{3099}
>      CHAR2{3100}
>      CHAR1{3103}
>      CHAR2{3104}
>      CHAR1{3108}
>      CHAR2{3109}
>      CHAR1{3112}
>      CHAR2{3113}
>      CHAR1{3117}
>      CHAR2{3118}
>      CHAR1{3121}
>      CHAR2{3122}
>      CHAR1{3126}
>      CHAR2{3127}
>      CHAR1{3130}
>      CHAR2{3131}
>      CHAR1{3135}
>      CHAR2{3136}
>      CHAR1{3139}
>      CHAR2{3140}
>      CHAR1{3144}
>      CHAR2{3145}
>      CHAR1{3148}
>      CHAR2{3149}
>      CHAR1{3153}
>      CHAR2{3154}
>      CHAR1{3157}
>      CHAR2{3158}
>      CHAR1{3162}
>      CHAR2{3163}
>      CHAR1{3166}
>      CHAR2{3167}
>      CHAR1{3171}
>      CHAR2{3172}
>      CHAR1{3175}
>      CHAR2{3176}
>      CHAR1{3180}
>      CHAR2{3181}
>      CHAR1{3184}
>      CHAR2{3185}
>      CHAR1{3189}
>      CHAR2{3190}
>      CHAR1{3193}
>      CHAR2{3194}
>      CHAR1{3198}
>      CHAR2{3199}
>      CHAR1{3202}
>      CHAR2{3203}
>      CHAR1{3207}
>      CHAR2{3208}
>      CHAR1{3211}
>      CHAR2{3212}
>      CHAR1{3216}
>      CHAR2{3217}
>      CHAR1{3220}
>      CHAR2{3221}
>      CHAR1{3225}
>      CHAR2{3226}
>      CHAR1{3229}
>      CHAR2{3230}
>      CHAR1{3234}
>      CHAR2{3235}
>      CHAR1{3238}
>      CHAR2{3239}
>      CHAR1{3243}
>      CHAR2{3244}
>      CHAR1{3346}
>      CHAR2{3347}
>      CHAR1{3351}
>      CHAR2{3352}
>      CHAR1{3355}
>      CHAR2{3356}
>      CHAR1{3360}
>      CHAR2{3361}
>      CHAR1{3364}
>      CHAR2{3365}
>      CHAR1{3369}
>      CHAR2{3370}
>      CHAR1{3499}
>      CHAR2{3500}
>      CHAR1{3504}
>      CHAR2{3505}
>      CHAR1{3508}
>      CHAR2{3509}
>      CHAR1{3513}
>      CHAR2{3514}
>      CHAR1{3517}
>      CHAR2{3518}
>      CHAR1{3522}
>      CHAR2{3523}
>      CHAR1{3526}
>      CHAR2{3527}
>      CHAR1{3531}
>      CHAR2{3532}
>      CHAR1{3535}
>      CHAR2{3536}
>      CHAR1{3540}
>      CHAR2{3541}
>      CHAR1{3544}
>      CHAR2{3545}
>      CHAR1{3549}
>      CHAR2{3550}
>      CHAR1{3553}
>      CHAR2{3554}
>      CHAR1{3558}
>      CHAR2{3559}
>      CHAR1{3562}
>      CHAR2{3563}
>      CHAR1{3567}
>      CHAR2{3568}
>      CHAR1{3571}
>      CHAR2{3572}
>      CHAR1{3576}
>      CHAR2{3577}
>      CHAR1{3580}
>      CHAR2{3581}
>      CHAR1{3585}
>      CHAR2{3586}
>      CHAR1{3589}
>      CHAR2{3590}
>      CHAR1{3594}
>      CHAR2{3595}
>      LIST{3598}
>      LIST{3601}
>      R{3602}
>      LIST{3603}
>      LIST{3606}
>      R{3607}
>      C{3643}
>      v{3644}
>      v{3645}
>      v{3646}
>      v{3647}
>      C{3648}
>      v{3649}
>      v{3650}
>      v{3651}
>      v{3652}
>      C{3653}
>      v{3654}
>      v{3655}
>      v{3656}
>      v{3657}
>      C{3658}
>      v{3659}
>      v{3660}
>      v{3661}
>      v{3662}
>      CHAR{3704}
>      CHAR1{3705}
>      CHAR2{3706}
>      CHAR1{3710}
>      CHAR2{3711}
>      CHAR1{3714}
>      CHAR2{3715}
>      CHAR1{3719}
>      CHAR2{3720}
>      CHAR1{3723}
>      CHAR2{3724}
>      CHAR1{3728}
>      CHAR2{3729}
>      CHAR{3732}
>      CHAR1{3733}
>      CHAR2{3734}
>      CHAR1{3738}
>      CHAR2{3739}
>      CHAR1{3742}
>      CHAR2{3743}
>      CHAR1{3747}
>      CHAR2{3748}
>      CHAR1{3751}
>      CHAR2{3752}
>      CHAR1{3756}
>      CHAR2{3757}
>      CHAR{3760}
>      CHAR1{3761}
>      CHAR2{3762}
>      CHAR1{3766}
>      CHAR2{3767}
>      CHAR1{3770}
>      CHAR2{3771}
>      CHAR1{3775}
>      CHAR2{3776}
>      CHAR1{3779}
>      CHAR2{3780}
>      CHAR1{3784}
>      CHAR2{3785}
>      CHAR{3788}
>      CHAR1{3789}
>      CHAR2{3790}
>      CHAR1{3794}
>      CHAR2{3795}
>      CHAR1{3798}
>      CHAR2{3799}
>      CHAR1{3803}
>      CHAR2{3804}
>      CHAR1{3807}
>      CHAR2{3808}
>      CHAR1{3812}
>      CHAR2{3813}
>  READ[1337]
>    has the following parameter:
>      PORT{1867} global
>  STRING-COPY[1122]
>    has the following parameter:
>      STRING{1687} local
>    has the following in-lined locals:
>      N{1688}
>      R{1689}
>      K{1693}
>  LIST->STRING[1112]
>    has the following parameter:
>      LIST{1679} local
>    has the following in-lined locals:
>      R{1680}
>      K{1684}
>  STRING=?[961]
>    has the following parameters:
>      STRING1{1499} local
>      STRING2{1500} local
>    has the following in-lined locals:
>      CHAR1{1377}
>      CHAR2{1378}
>      CHAR1{1382}
>      CHAR2{1383}
>      STRING1{1504}
>      STRING2{1505}
>      N{1507}
>      K{1510}
>      v{1511}
>  [inside top level 699]
>    has the following parameter:
>      STRING{1219} local
>    has the following in-lined locals:
>      FOUND{1220}
>      PACKAGE{1224}
>  LIST-LENGTH[523]
>    has the following parameter:
>      LIST{1093} local
>    has the following in-lined local:
>      K{1096}
>  TEST[430]
>    has region
>    has the following parameters:
>      PGM1{1024} local
>      PGM2{1025} local
>    has the following in-lined locals:
>      PATHNAME{848}
>      PGM1{994}
>      PGM2{995}
>      EPSILON{996}
>      SIGMA{997}
>      SENSITIVITY{998}
>      WIDTH{1000}
>      HEIGHT{1001}
>      E1{1002}
>      E2{1003}
>      M{1004}
>      I{1008}
>      J{1012}
>      EX{1014}
>      EY{1015}
>      ET{1016}
>      L{1017}
>      V{1018}
>      I{1022}
>      X{1309}
>      STRINGS{1656}
>      R{1657}
>      K{1658}
>      STRINGS{1662}
>      N{1663}
>      L{1667}
>      K{1672}
>      STRINGS{1673}
>      STRING{1856}
>      OUTPUT-PORT{1858}
>      PNM{2583}
>      PNM{2584}
>      PNM{2585}
>      PNM{2587}
>      PNM{2588}
>      PNM{2589}
>  PGM-SMOOTH[346]
>    has the following parameters:
>      PGM{963} local
>      SIGMA{964} local
>    has the following in-lined locals:
>      HEIGHT{966}
>      WIDTH{967}
>      GREY1{968}
>      GREY2{969}
>      Y{973}
>      X{977}
>      I{982}
>      J{986}
>      V{988}
>      I{992}
>      PNM{2582}
>      PNM{2586}
>  WRITE-PNM[222]
>    has the following parameter:
>      PORT{851} local
>    has the following in-lined locals:
>      PNM{719}
>      PNM{720}
>      PGM{877}
>      GREY{878}
>      HEIGHT{879}
>      WIDTH{880}
>      Y{892}
>      X{896}
>      Y{900}
>      X{904}
>      Y{909}
>      X{913}
>      OBJ{2438}
>      &REST{2439}
>      &REST{2442}
>      CHAR{2443}
>      &REST{2444}
>      CHAR{2505}
>      &REST{2506}
>      &REST{2507}
>      &REST{2508}
>      &REST{2509}
>      OBJ{3668}
>      &REST{3669}
>      OBJ{3670}
>      &REST{3671}
>      OBJ{3672}
>      &REST{3673}
>      OBJ{3674}
>      &REST{3675}
>  READ-PPM[130]
>    has the following parameter:
>      RAW?{790} local
>    has the following in-lined locals:
>      WIDTH{791}
>      HEIGHT{792}
>      MAXVAL{793}
>      RED{795}
>      GREEN{796}
>      BLUE{797}
>      Y{803}
>      X{807}
>      C1{809}
>      C2{810}
>      C3{811}
>      Y{817}
>      X{821}
>      V1{823}
>      V2{824}
>      V3{825}
>      V{829}
>      I{833}
>      V{835}
>      I{839}
>      V{841}
>      I{845}
>      &REST{2435}
>      &REST{2523}
>      &REST{2524}
>      &REST{2525}
>  READ-PGM[75]
>    has the following parameter:
>      RAW?{755} local
>    has the following in-lined locals:
>      WIDTH{756}
>      HEIGHT{757}
>      MAXVAL{758}
>      GREY{760}
>      Y{766}
>      X{770}
>      C{772}
>      Y{776}
>      X{780}
>      V{782}
>      V{784}
>      I{788}
>      &REST{2526}
>      &REST{2527}
>  READ-PBM[40]
>    has the following parameter:
>      RAW?{733} local
>    has the following in-lined locals:
>      WIDTH{734}
>      HEIGHT{735}
>      BITMAP{736}
>      Y{741}
>      X{745}
>      V{747}
>      V{749}
>      I{753}
>  READ-PNM[28]
>    has the following parameter:
>      PORT{724} global
>    has the following in-lined locals:
>      FORMAT{731}
>      v{732}
>      OBJ1{1029}
>      v{1031}
>      OBJ1{3618}
>      v{3620}
>      OBJ1{3623}
>      v{3625}
>      OBJ1{3628}
>      v{3630}
>      OBJ1{3633}
>      v{3635}
>      OBJ1{3638}
>      v{3640}
>  READ-PNM[25]
>    has the following parameter:
>      PATHNAME{721} local
>    has the following in-lined locals:
>      STRING{1851}
>      INPUT-PORT{1853}
>      R{1854}
>  [inside top level 0]
>    has the following in-lined locals:
>      PGM2{712}
>      PGM1{713}
>      I{716}
>The following non-trivial in-line native procedures will be generated:
>  [clone LOOP?[872] 3727]
>    has the following parameters:
>      CHAR1{3812} local
>      CHAR2{3813} local
>  [clone CHAR=?[869] 3724]
>    has the following parameters:
>      CHAR1{3807} local
>      CHAR2{3808} local
>  [clone LOOP?[872] 3721]
>    has the following parameters:
>      CHAR1{3803} local
>      CHAR2{3804} local
>  [clone CHAR=?[869] 3718]
>    has the following parameters:
>      CHAR1{3798} local
>      CHAR2{3799} local
>  [clone LOOP?[872] 3715]
>    has the following parameters:
>      CHAR1{3794} local
>      CHAR2{3795} local
>  [clone CHAR=?[869] 3712]
>    has the following parameters:
>      CHAR1{3789} local
>      CHAR2{3790} local
>  [clone [inside top level 932] 3711]
>    has the following parameter:
>      CHAR{3788} local
>  [clone LOOP?[872] 3708]
>    has the following parameters:
>      CHAR1{3784} local
>      CHAR2{3785} local
>  [clone CHAR=?[869] 3705]
>    has the following parameters:
>      CHAR1{3779} local
>      CHAR2{3780} local
>  [clone LOOP?[872] 3702]
>    has the following parameters:
>      CHAR1{3775} local
>      CHAR2{3776} local
>  [clone CHAR=?[869] 3699]
>    has the following parameters:
>      CHAR1{3770} local
>      CHAR2{3771} local
>  [clone LOOP?[872] 3696]
>    has the following parameters:
>      CHAR1{3766} local
>      CHAR2{3767} local
>  [clone CHAR=?[869] 3693]
>    has the following parameters:
>      CHAR1{3761} local
>      CHAR2{3762} local
>  [clone [inside top level 932] 3692]
>    has the following parameter:
>      CHAR{3760} local
>  [clone LOOP?[872] 3689]
>    has the following parameters:
>      CHAR1{3756} local
>      CHAR2{3757} local
>  [clone CHAR=?[869] 3686]
>    has the following parameters:
>      CHAR1{3751} local
>      CHAR2{3752} local
>  [clone LOOP?[872] 3683]
>    has the following parameters:
>      CHAR1{3747} local
>      CHAR2{3748} local
>  [clone CHAR=?[869] 3680]
>    has the following parameters:
>      CHAR1{3742} local
>      CHAR2{3743} local
>  [clone LOOP?[872] 3677]
>    has the following parameters:
>      CHAR1{3738} local
>      CHAR2{3739} local
>  [clone CHAR=?[869] 3674]
>    has the following parameters:
>      CHAR1{3733} local
>      CHAR2{3734} local
>  [clone [inside top level 932] 3673]
>    has the following parameter:
>      CHAR{3732} local
>  [clone LOOP?[872] 3670]
>    has the following parameters:
>      CHAR1{3728} local
>      CHAR2{3729} local
>  [clone CHAR=?[869] 3667]
>    has the following parameters:
>      CHAR1{3723} local
>      CHAR2{3724} local
>  [clone LOOP?[872] 3664]
>    has the following parameters:
>      CHAR1{3719} local
>      CHAR2{3720} local
>  [clone CHAR=?[869] 3661]
>    has the following parameters:
>      CHAR1{3714} local
>      CHAR2{3715} local
>  [clone LOOP?[872] 3658]
>    has the following parameters:
>      CHAR1{3710} local
>      CHAR2{3711} local
>  [clone CHAR=?[869] 3655]
>    has the following parameters:
>      CHAR1{3705} local
>      CHAR2{3706} local
>  [clone [inside top level 932] 3654]
>    has the following parameter:
>      CHAR{3704} local
>  [clone LOOP?[872] 3651]
>    has the following parameters:
>      CHAR1{3700} local
>      CHAR2{3701} local
>  [clone CHAR=?[869] 3648]
>    has the following parameters:
>      CHAR1{3695} local
>      CHAR2{3696} local
>  [clone LOOP?[872] 3645]
>    has the following parameters:
>      CHAR1{3691} local
>      CHAR2{3692} local
>  [clone CHAR=?[869] 3642]
>    has the following parameters:
>      CHAR1{3686} local
>      CHAR2{3687} local
>  [clone LOOP?[872] 3639]
>    has the following parameters:
>      CHAR1{3682} local
>      CHAR2{3683} local
>  [clone CHAR=?[869] 3636]
>    has the following parameters:
>      CHAR1{3677} local
>      CHAR2{3678} local
>  [clone [inside top level 932] 3635]
>    has the following parameter:
>      CHAR{3676} local
>  [clone WRITE[2235] 3631]
>    has the following parameters:
>      OBJ{3674} local
>      &REST{3675} local
>  [clone WRITE[2235] 3627]
>    has the following parameters:
>      OBJ{3672} local
>      &REST{3673} local
>  [clone WRITE[2235] 3623]
>    has the following parameters:
>      OBJ{3670} local
>      &REST{3671} local
>  [clone WRITE[2235] 3619]
>    has the following parameters:
>      OBJ{3668} local
>      &REST{3669} local
>  [clone [inside CHAR-SUBSEQUENT? 1691] 3618]
>    has the following parameter:
>      v{3667} local
>  [clone [inside CHAR-SUBSEQUENT? 1690] 3617]
>    has the following parameter:
>      v{3666} local
>  [clone [inside CHAR-SUBSEQUENT? 1689] 3616]
>    has the following parameter:
>      v{3665} local
>  [clone [inside CHAR-SUBSEQUENT? 1688] 3615]
>    has the following parameter:
>      v{3664} local
>  [clone CHAR-SUBSEQUENT?[1687] 3614]
>    has the following parameter:
>      C{3663} local
>  [clone [inside CHAR-SUBSEQUENT? 1691] 3613]
>    has the following parameter:
>      v{3662} local
>  [clone [inside CHAR-SUBSEQUENT? 1690] 3612]
>    has the following parameter:
>      v{3661} local
>  [clone [inside CHAR-SUBSEQUENT? 1689] 3611]
>    has the following parameter:
>      v{3660} local
>  [clone [inside CHAR-SUBSEQUENT? 1688] 3610]
>    has the following parameter:
>      v{3659} local
>  [clone CHAR-SUBSEQUENT?[1687] 3609]
>    has the following parameter:
>      C{3658} local
>  [clone [inside CHAR-SUBSEQUENT? 1691] 3608]
>    has the following parameter:
>      v{3657} local
>  [clone [inside CHAR-SUBSEQUENT? 1690] 3607]
>    has the following parameter:
>      v{3656} local
>  [clone [inside CHAR-SUBSEQUENT? 1689] 3606]
>    has the following parameter:
>      v{3655} local
>  [clone [inside CHAR-SUBSEQUENT? 1688] 3605]
>    has the following parameter:
>      v{3654} local
>  [clone CHAR-SUBSEQUENT?[1687] 3604]
>    has the following parameter:
>      C{3653} local
>  [clone [inside CHAR-SUBSEQUENT? 1691] 3603]
>    has the following parameter:
>      v{3652} local
>  [clone [inside CHAR-SUBSEQUENT? 1690] 3602]
>    has the following parameter:
>      v{3651} local
>  [clone [inside CHAR-SUBSEQUENT? 1689] 3601]
>    has the following parameter:
>      v{3650} local
>  [clone [inside CHAR-SUBSEQUENT? 1688] 3600]
>    has the following parameter:
>      v{3649} local
>  [clone CHAR-SUBSEQUENT?[1687] 3599]
>    has the following parameter:
>      C{3648} local
>  [clone [inside CHAR-SUBSEQUENT? 1691] 3598]
>    has the following parameter:
>      v{3647} local
>  [clone [inside CHAR-SUBSEQUENT? 1690] 3597]
>    has the following parameter:
>      v{3646} local
>  [clone [inside CHAR-SUBSEQUENT? 1689] 3596]
>    has the following parameter:
>      v{3645} local
>  [clone [inside CHAR-SUBSEQUENT? 1688] 3595]
>    has the following parameter:
>      v{3644} local
>  [clone CHAR-SUBSEQUENT?[1687] 3594]
>    has the following parameter:
>      C{3643} local
>  [clone [inside EQV? 465] 3591]
>    has the following parameter:
>      v{3640} local
>  [clone EQV?[464] 3590]
>    has the following parameter:
>      OBJ1{3638} local
>  [clone [inside EQV? 465] 3587]
>    has the following parameter:
>      v{3635} local
>  [clone EQV?[464] 3586]
>    has the following parameter:
>      OBJ1{3633} local
>  [clone [inside EQV? 465] 3583]
>    has the following parameter:
>      v{3630} local
>  [clone EQV?[464] 3582]
>    has the following parameter:
>      OBJ1{3628} local
>  [clone [inside EQV? 465] 3579]
>    has the following parameter:
>      v{3625} local
>  [clone EQV?[464] 3578]
>    has the following parameter:
>      OBJ1{3623} local
>  [clone [inside EQV? 465] 3575]
>    has the following parameter:
>      v{3620} local
>  [clone EQV?[464] 3574]
>    has the following parameter:
>      OBJ1{3618} local
>  [clone LOOP[633] 3572]
>    has the following parameters:
>      LIST{3616} local
>      R{3617} local
>  [clone LIST-REVERSE[630] 3569]
>    has the following parameter:
>      LIST{3613} local
>  [clone LOOP[633] 3567]
>    has the following parameters:
>      LIST{3611} local
>      R{3612} local
>  [clone LIST-REVERSE[630] 3564]
>    has the following parameter:
>      LIST{3608} local
>  [clone LOOP[633] 3562]
>    has the following parameters:
>      LIST{3606} local
>      R{3607} local
>  [clone LIST-REVERSE[630] 3559]
>    has the following parameter:
>      LIST{3603} local
>  [clone LOOP[633] 3557]
>    has the following parameters:
>      LIST{3601} local
>      R{3602} local
>  [clone LIST-REVERSE[630] 3554]
>    has the following parameter:
>      LIST{3598} local
>  [clone LOOP?[872] 3551]
>    has the following parameters:
>      CHAR1{3594} local
>      CHAR2{3595} local
>  [clone CHAR=?[869] 3548]
>    has the following parameters:
>      CHAR1{3589} local
>      CHAR2{3590} local
>  [clone LOOP?[872] 3545]
>    has the following parameters:
>      CHAR1{3585} local
>      CHAR2{3586} local
>  [clone CHAR=?[869] 3542]
>    has the following parameters:
>      CHAR1{3580} local
>      CHAR2{3581} local
>  [clone LOOP?[872] 3539]
>    has the following parameters:
>      CHAR1{3576} local
>      CHAR2{3577} local
>  [clone CHAR=?[869] 3536]
>    has the following parameters:
>      CHAR1{3571} local
>      CHAR2{3572} local
>  [clone LOOP?[872] 3533]
>    has the following parameters:
>      CHAR1{3567} local
>      CHAR2{3568} local
>  [clone CHAR=?[869] 3530]
>    has the following parameters:
>      CHAR1{3562} local
>      CHAR2{3563} local
>  [clone LOOP?[872] 3527]
>    has the following parameters:
>      CHAR1{3558} local
>      CHAR2{3559} local
>  [clone CHAR=?[869] 3524]
>    has the following parameters:
>      CHAR1{3553} local
>      CHAR2{3554} local
>  [clone LOOP?[872] 3521]
>    has the following parameters:
>      CHAR1{3549} local
>      CHAR2{3550} local
>  [clone CHAR=?[869] 3518]
>    has the following parameters:
>      CHAR1{3544} local
>      CHAR2{3545} local
>  [clone LOOP?[872] 3515]
>    has the following parameters:
>      CHAR1{3540} local
>      CHAR2{3541} local
>  [clone CHAR=?[869] 3512]
>    has the following parameters:
>      CHAR1{3535} local
>      CHAR2{3536} local
>  [clone LOOP?[872] 3509]
>    has the following parameters:
>      CHAR1{3531} local
>      CHAR2{3532} local
>  [clone CHAR=?[869] 3506]
>    has the following parameters:
>      CHAR1{3526} local
>      CHAR2{3527} local
>  [clone LOOP?[872] 3503]
>    has the following parameters:
>      CHAR1{3522} local
>      CHAR2{3523} local
>  [clone CHAR=?[869] 3500]
>    has the following parameters:
>      CHAR1{3517} local
>      CHAR2{3518} local
>  [clone LOOP?[872] 3497]
>    has the following parameters:
>      CHAR1{3513} local
>      CHAR2{3514} local
>  [clone CHAR=?[869] 3494]
>    has the following parameters:
>      CHAR1{3508} local
>      CHAR2{3509} local
>  [clone LOOP?[872] 3491]
>    has the following parameters:
>      CHAR1{3504} local
>      CHAR2{3505} local
>  [clone CHAR=?[869] 3488]
>    has the following parameters:
>      CHAR1{3499} local
>      CHAR2{3500} local
>  [clone LOOP?[872] 3485]
>    has the following parameters:
>      CHAR1{3495} local
>      CHAR2{3496} local
>  [clone CHAR=?[869] 3482]
>    has the following parameters:
>      CHAR1{3490} local
>      CHAR2{3491} local
>  [clone LOOP?[872] 3479]
>    has the following parameters:
>      CHAR1{3486} local
>      CHAR2{3487} local
>  [clone CHAR=?[869] 3476]
>    has the following parameters:
>      CHAR1{3481} local
>      CHAR2{3482} local
>  [clone LOOP?[872] 3473]
>    has the following parameters:
>      CHAR1{3477} local
>      CHAR2{3478} local
>  [clone CHAR=?[869] 3470]
>    has the following parameters:
>      CHAR1{3472} local
>      CHAR2{3473} local
>  [clone LOOP?[872] 3467]
>    has the following parameters:
>      CHAR1{3468} local
>      CHAR2{3469} local
>  [clone CHAR=?[869] 3464]
>    has the following parameters:
>      CHAR1{3463} local
>      CHAR2{3464} local
>  [clone LOOP?[872] 3461]
>    has the following parameters:
>      CHAR1{3459} local
>      CHAR2{3460} local
>  [clone CHAR=?[869] 3458]
>    has the following parameters:
>      CHAR1{3454} local
>      CHAR2{3455} local
>  [clone LOOP?[872] 3455]
>    has the following parameters:
>      CHAR1{3450} local
>      CHAR2{3451} local
>  [clone CHAR=?[869] 3452]
>    has the following parameters:
>      CHAR1{3445} local
>      CHAR2{3446} local
>  [clone LOOP?[872] 3449]
>    has the following parameters:
>      CHAR1{3441} local
>      CHAR2{3442} local
>  [clone CHAR=?[869] 3446]
>    has the following parameters:
>      CHAR1{3436} local
>      CHAR2{3437} local
>  [clone LOOP?[872] 3443]
>    has the following parameters:
>      CHAR1{3432} local
>      CHAR2{3433} local
>  [clone CHAR=?[869] 3440]
>    has the following parameters:
>      CHAR1{3427} local
>      CHAR2{3428} local
>  [clone LOOP?[872] 3437]
>    has the following parameters:
>      CHAR1{3423} local
>      CHAR2{3424} local
>  [clone CHAR=?[869] 3434]
>    has the following parameters:
>      CHAR1{3418} local
>      CHAR2{3419} local
>  [clone LOOP?[872] 3431]
>    has the following parameters:
>      CHAR1{3414} local
>      CHAR2{3415} local
>  [clone CHAR=?[869] 3428]
>    has the following parameters:
>      CHAR1{3409} local
>      CHAR2{3410} local
>  [clone LOOP?[872] 3425]
>    has the following parameters:
>      CHAR1{3405} local
>      CHAR2{3406} local
>  [clone CHAR=?[869] 3422]
>    has the following parameters:
>      CHAR1{3400} local
>      CHAR2{3401} local
>  [clone LOOP?[872] 3419]
>    has the following parameters:
>      CHAR1{3396} local
>      CHAR2{3397} local
>  [clone CHAR=?[869] 3416]
>    has the following parameters:
>      CHAR1{3391} local
>      CHAR2{3392} local
>  [clone LOOP?[872] 3413]
>    has the following parameters:
>      CHAR1{3387} local
>      CHAR2{3388} local
>  [clone CHAR=?[869] 3410]
>    has the following parameters:
>      CHAR1{3382} local
>      CHAR2{3383} local
>  [clone LOOP?[872] 3407]
>    has the following parameters:
>      CHAR1{3378} local
>      CHAR2{3379} local
>  [clone CHAR=?[869] 3404]
>    has the following parameters:
>      CHAR1{3373} local
>      CHAR2{3374} local
>  [clone LOOP?[872] 3401]
>    has the following parameters:
>      CHAR1{3369} local
>      CHAR2{3370} local
>  [clone CHAR=?[869] 3398]
>    has the following parameters:
>      CHAR1{3364} local
>      CHAR2{3365} local
>  [clone LOOP?[872] 3395]
>    has the following parameters:
>      CHAR1{3360} local
>      CHAR2{3361} local
>  [clone CHAR=?[869] 3392]
>    has the following parameters:
>      CHAR1{3355} local
>      CHAR2{3356} local
>  [clone LOOP?[872] 3389]
>    has the following parameters:
>      CHAR1{3351} local
>      CHAR2{3352} local
>  [clone CHAR=?[869] 3386]
>    has the following parameters:
>      CHAR1{3346} local
>      CHAR2{3347} local
>  [clone LOOP?[872] 3383]
>    has the following parameters:
>      CHAR1{3342} local
>      CHAR2{3343} local
>  [clone CHAR=?[869] 3380]
>    has the following parameters:
>      CHAR1{3337} local
>      CHAR2{3338} local
>  [clone LOOP?[872] 3377]
>    has the following parameters:
>      CHAR1{3333} local
>      CHAR2{3334} local
>  [clone CHAR=?[869] 3374]
>    has the following parameters:
>      CHAR1{3328} local
>      CHAR2{3329} local
>  [clone LOOP?[872] 3371]
>    has the following parameters:
>      CHAR1{3324} local
>      CHAR2{3325} local
>  [clone CHAR=?[869] 3368]
>    has the following parameters:
>      CHAR1{3319} local
>      CHAR2{3320} local
>  [clone LOOP?[872] 3365]
>    has the following parameters:
>      CHAR1{3315} local
>      CHAR2{3316} local
>  [clone CHAR=?[869] 3362]
>    has the following parameters:
>      CHAR1{3310} local
>      CHAR2{3311} local
>  [clone LOOP?[872] 3359]
>    has the following parameters:
>      CHAR1{3306} local
>      CHAR2{3307} local
>  [clone CHAR=?[869] 3356]
>    has the following parameters:
>      CHAR1{3301} local
>      CHAR2{3302} local
>  [clone LOOP?[872] 3353]
>    has the following parameters:
>      CHAR1{3297} local
>      CHAR2{3298} local
>  [clone CHAR=?[869] 3350]
>    has the following parameters:
>      CHAR1{3292} local
>      CHAR2{3293} local
>  [clone LOOP?[872] 3347]
>    has the following parameters:
>      CHAR1{3288} local
>      CHAR2{3289} local
>  [clone CHAR=?[869] 3344]
>    has the following parameters:
>      CHAR1{3283} local
>      CHAR2{3284} local
>  [clone LOOP?[872] 3341]
>    has the following parameters:
>      CHAR1{3279} local
>      CHAR2{3280} local
>  [clone CHAR=?[869] 3338]
>    has the following parameters:
>      CHAR1{3274} local
>      CHAR2{3275} local
>  [clone LOOP?[872] 3335]
>    has the following parameters:
>      CHAR1{3270} local
>      CHAR2{3271} local
>  [clone CHAR=?[869] 3332]
>    has the following parameters:
>      CHAR1{3265} local
>      CHAR2{3266} local
>  [clone LOOP?[872] 3329]
>    has the following parameters:
>      CHAR1{3261} local
>      CHAR2{3262} local
>  [clone CHAR=?[869] 3326]
>    has the following parameters:
>      CHAR1{3256} local
>      CHAR2{3257} local
>  [clone LOOP?[872] 3323]
>    has the following parameters:
>      CHAR1{3252} local
>      CHAR2{3253} local
>  [clone CHAR=?[869] 3320]
>    has the following parameters:
>      CHAR1{3247} local
>      CHAR2{3248} local
>  [clone LOOP?[872] 3317]
>    has the following parameters:
>      CHAR1{3243} local
>      CHAR2{3244} local
>  [clone CHAR=?[869] 3314]
>    has the following parameters:
>      CHAR1{3238} local
>      CHAR2{3239} local
>  [clone LOOP?[872] 3311]
>    has the following parameters:
>      CHAR1{3234} local
>      CHAR2{3235} local
>  [clone CHAR=?[869] 3308]
>    has the following parameters:
>      CHAR1{3229} local
>      CHAR2{3230} local
>  [clone LOOP?[872] 3305]
>    has the following parameters:
>      CHAR1{3225} local
>      CHAR2{3226} local
>  [clone CHAR=?[869] 3302]
>    has the following parameters:
>      CHAR1{3220} local
>      CHAR2{3221} local
>  [clone LOOP?[872] 3299]
>    has the following parameters:
>      CHAR1{3216} local
>      CHAR2{3217} local
>  [clone CHAR=?[869] 3296]
>    has the following parameters:
>      CHAR1{3211} local
>      CHAR2{3212} local
>  [clone LOOP?[872] 3293]
>    has the following parameters:
>      CHAR1{3207} local
>      CHAR2{3208} local
>  [clone CHAR=?[869] 3290]
>    has the following parameters:
>      CHAR1{3202} local
>      CHAR2{3203} local
>  [clone LOOP?[872] 3287]
>    has the following parameters:
>      CHAR1{3198} local
>      CHAR2{3199} local
>  [clone CHAR=?[869] 3284]
>    has the following parameters:
>      CHAR1{3193} local
>      CHAR2{3194} local
>  [clone LOOP?[872] 3281]
>    has the following parameters:
>      CHAR1{3189} local
>      CHAR2{3190} local
>  [clone CHAR=?[869] 3278]
>    has the following parameters:
>      CHAR1{3184} local
>      CHAR2{3185} local
>  [clone LOOP?[872] 3275]
>    has the following parameters:
>      CHAR1{3180} local
>      CHAR2{3181} local
>  [clone CHAR=?[869] 3272]
>    has the following parameters:
>      CHAR1{3175} local
>      CHAR2{3176} local
>  [clone LOOP?[872] 3269]
>    has the following parameters:
>      CHAR1{3171} local
>      CHAR2{3172} local
>  [clone CHAR=?[869] 3266]
>    has the following parameters:
>      CHAR1{3166} local
>      CHAR2{3167} local
>  [clone LOOP?[872] 3263]
>    has the following parameters:
>      CHAR1{3162} local
>      CHAR2{3163} local
>  [clone CHAR=?[869] 3260]
>    has the following parameters:
>      CHAR1{3157} local
>      CHAR2{3158} local
>  [clone LOOP?[872] 3257]
>    has the following parameters:
>      CHAR1{3153} local
>      CHAR2{3154} local
>  [clone CHAR=?[869] 3254]
>    has the following parameters:
>      CHAR1{3148} local
>      CHAR2{3149} local
>  [clone LOOP?[872] 3251]
>    has the following parameters:
>      CHAR1{3144} local
>      CHAR2{3145} local
>  [clone CHAR=?[869] 3248]
>    has the following parameters:
>      CHAR1{3139} local
>      CHAR2{3140} local
>  [clone LOOP?[872] 3245]
>    has the following parameters:
>      CHAR1{3135} local
>      CHAR2{3136} local
>  [clone CHAR=?[869] 3242]
>    has the following parameters:
>      CHAR1{3130} local
>      CHAR2{3131} local
>  [clone LOOP?[872] 3239]
>    has the following parameters:
>      CHAR1{3126} local
>      CHAR2{3127} local
>  [clone CHAR=?[869] 3236]
>    has the following parameters:
>      CHAR1{3121} local
>      CHAR2{3122} local
>  [clone LOOP?[872] 3233]
>    has the following parameters:
>      CHAR1{3117} local
>      CHAR2{3118} local
>  [clone CHAR=?[869] 3230]
>    has the following parameters:
>      CHAR1{3112} local
>      CHAR2{3113} local
>  [clone LOOP?[872] 3227]
>    has the following parameters:
>      CHAR1{3108} local
>      CHAR2{3109} local
>  [clone CHAR=?[869] 3224]
>    has the following parameters:
>      CHAR1{3103} local
>      CHAR2{3104} local
>  [clone LOOP?[872] 3221]
>    has the following parameters:
>      CHAR1{3099} local
>      CHAR2{3100} local
>  [clone CHAR=?[869] 3218]
>    has the following parameters:
>      CHAR1{3094} local
>      CHAR2{3095} local
>  [clone LOOP?[872] 3215]
>    has the following parameters:
>      CHAR1{3090} local
>      CHAR2{3091} local
>  [clone CHAR=?[869] 3212]
>    has the following parameters:
>      CHAR1{3085} local
>      CHAR2{3086} local
>  [clone LOOP?[872] 3209]
>    has the following parameters:
>      CHAR1{3081} local
>      CHAR2{3082} local
>  [clone CHAR=?[869] 3206]
>    has the following parameters:
>      CHAR1{3076} local
>      CHAR2{3077} local
>  [clone LOOP?[872] 3203]
>    has the following parameters:
>      CHAR1{3072} local
>      CHAR2{3073} local
>  [clone CHAR=?[869] 3200]
>    has the following parameters:
>      CHAR1{3067} local
>      CHAR2{3068} local
>  [clone LOOP?[872] 3197]
>    has the following parameters:
>      CHAR1{3063} local
>      CHAR2{3064} local
>  [clone CHAR=?[869] 3194]
>    has the following parameters:
>      CHAR1{3058} local
>      CHAR2{3059} local
>  [clone LOOP?[872] 3191]
>    has the following parameters:
>      CHAR1{3054} local
>      CHAR2{3055} local
>  [clone CHAR=?[869] 3188]
>    has the following parameters:
>      CHAR1{3049} local
>      CHAR2{3050} local
>  [clone LOOP?[872] 3185]
>    has the following parameters:
>      CHAR1{3045} local
>      CHAR2{3046} local
>  [clone CHAR=?[869] 3182]
>    has the following parameters:
>      CHAR1{3040} local
>      CHAR2{3041} local
>  [clone LOOP?[872] 3179]
>    has the following parameters:
>      CHAR1{3036} local
>      CHAR2{3037} local
>  [clone CHAR=?[869] 3176]
>    has the following parameters:
>      CHAR1{3031} local
>      CHAR2{3032} local
>  [clone LOOP?[872] 3173]
>    has the following parameters:
>      CHAR1{3027} local
>      CHAR2{3028} local
>  [clone CHAR=?[869] 3170]
>    has the following parameters:
>      CHAR1{3022} local
>      CHAR2{3023} local
>  [clone LOOP?[872] 3167]
>    has the following parameters:
>      CHAR1{3018} local
>      CHAR2{3019} local
>  [clone CHAR=?[869] 3164]
>    has the following parameters:
>      CHAR1{3013} local
>      CHAR2{3014} local
>  [clone LOOP?[872] 3161]
>    has the following parameters:
>      CHAR1{3009} local
>      CHAR2{3010} local
>  [clone CHAR=?[869] 3158]
>    has the following parameters:
>      CHAR1{3004} local
>      CHAR2{3005} local
>  [clone LOOP?[872] 3155]
>    has the following parameters:
>      CHAR1{3000} local
>      CHAR2{3001} local
>  [clone CHAR=?[869] 3152]
>    has the following parameters:
>      CHAR1{2995} local
>      CHAR2{2996} local
>  [clone LOOP?[872] 3149]
>    has the following parameters:
>      CHAR1{2991} local
>      CHAR2{2992} local
>  [clone CHAR=?[869] 3146]
>    has the following parameters:
>      CHAR1{2986} local
>      CHAR2{2987} local
>  [clone LOOP?[872] 3143]
>    has the following parameters:
>      CHAR1{2982} local
>      CHAR2{2983} local
>  [clone CHAR=?[869] 3140]
>    has the following parameters:
>      CHAR1{2977} local
>      CHAR2{2978} local
>  [clone LOOP?[872] 3137]
>    has the following parameters:
>      CHAR1{2973} local
>      CHAR2{2974} local
>  [clone CHAR=?[869] 3134]
>    has the following parameters:
>      CHAR1{2968} local
>      CHAR2{2969} local
>  [clone LOOP?[872] 3131]
>    has the following parameters:
>      CHAR1{2964} local
>      CHAR2{2965} local
>  [clone CHAR=?[869] 3128]
>    has the following parameters:
>      CHAR1{2959} local
>      CHAR2{2960} local
>  [clone LOOP?[872] 3125]
>    has the following parameters:
>      CHAR1{2955} local
>      CHAR2{2956} local
>  [clone CHAR=?[869] 3122]
>    has the following parameters:
>      CHAR1{2950} local
>      CHAR2{2951} local
>  [clone LOOP?[872] 3119]
>    has the following parameters:
>      CHAR1{2946} local
>      CHAR2{2947} local
>  [clone CHAR=?[869] 3116]
>    has the following parameters:
>      CHAR1{2941} local
>      CHAR2{2942} local
>  [clone LOOP?[872] 3113]
>    has the following parameters:
>      CHAR1{2937} local
>      CHAR2{2938} local
>  [clone CHAR=?[869] 3110]
>    has the following parameters:
>      CHAR1{2932} local
>      CHAR2{2933} local
>  [clone LOOP?[872] 3107]
>    has the following parameters:
>      CHAR1{2928} local
>      CHAR2{2929} local
>  [clone CHAR=?[869] 3104]
>    has the following parameters:
>      CHAR1{2923} local
>      CHAR2{2924} local
>  [clone LOOP?[872] 3101]
>    has the following parameters:
>      CHAR1{2919} local
>      CHAR2{2920} local
>  [clone CHAR=?[869] 3098]
>    has the following parameters:
>      CHAR1{2914} local
>      CHAR2{2915} local
>  [clone LOOP?[872] 3095]
>    has the following parameters:
>      CHAR1{2910} local
>      CHAR2{2911} local
>  [clone CHAR=?[869] 3092]
>    has the following parameters:
>      CHAR1{2905} local
>      CHAR2{2906} local
>  [clone LOOP?[872] 3089]
>    has the following parameters:
>      CHAR1{2901} local
>      CHAR2{2902} local
>  [clone CHAR=?[869] 3086]
>    has the following parameters:
>      CHAR1{2896} local
>      CHAR2{2897} local
>  [clone LOOP?[872] 3083]
>    has the following parameters:
>      CHAR1{2892} local
>      CHAR2{2893} local
>  [clone CHAR=?[869] 3080]
>    has the following parameters:
>      CHAR1{2887} local
>      CHAR2{2888} local
>  [clone LOOP?[872] 3077]
>    has the following parameters:
>      CHAR1{2883} local
>      CHAR2{2884} local
>  [clone CHAR=?[869] 3074]
>    has the following parameters:
>      CHAR1{2878} local
>      CHAR2{2879} local
>  [clone LOOP?[872] 3071]
>    has the following parameters:
>      CHAR1{2874} local
>      CHAR2{2875} local
>  [clone CHAR=?[869] 3068]
>    has the following parameters:
>      CHAR1{2869} local
>      CHAR2{2870} local
>  [clone LOOP?[872] 3065]
>    has the following parameters:
>      CHAR1{2865} local
>      CHAR2{2866} local
>  [clone CHAR=?[869] 3062]
>    has the following parameters:
>      CHAR1{2860} local
>      CHAR2{2861} local
>  [clone LOOP?[872] 3059]
>    has the following parameters:
>      CHAR1{2856} local
>      CHAR2{2857} local
>  [clone CHAR=?[869] 3056]
>    has the following parameters:
>      CHAR1{2851} local
>      CHAR2{2852} local
>  [clone LOOP?[872] 3053]
>    has the following parameters:
>      CHAR1{2847} local
>      CHAR2{2848} local
>  [clone CHAR=?[869] 3050]
>    has the following parameters:
>      CHAR1{2842} local
>      CHAR2{2843} local
>  [clone LOOP?[872] 3047]
>    has the following parameters:
>      CHAR1{2838} local
>      CHAR2{2839} local
>  [clone CHAR=?[869] 3044]
>    has the following parameters:
>      CHAR1{2833} local
>      CHAR2{2834} local
>  [clone LOOP?[872] 3041]
>    has the following parameters:
>      CHAR1{2829} local
>      CHAR2{2830} local
>  [clone CHAR=?[869] 3038]
>    has the following parameters:
>      CHAR1{2824} local
>      CHAR2{2825} local
>  [clone LOOP?[872] 3035]
>    has the following parameters:
>      CHAR1{2820} local
>      CHAR2{2821} local
>  [clone CHAR=?[869] 3032]
>    has the following parameters:
>      CHAR1{2815} local
>      CHAR2{2816} local
>  [clone LOOP?[872] 3029]
>    has the following parameters:
>      CHAR1{2811} local
>      CHAR2{2812} local
>  [clone CHAR=?[869] 3026]
>    has the following parameters:
>      CHAR1{2806} local
>      CHAR2{2807} local
>  [clone LOOP?[872] 3023]
>    has the following parameters:
>      CHAR1{2802} local
>      CHAR2{2803} local
>  [clone CHAR=?[869] 3020]
>    has the following parameters:
>      CHAR1{2797} local
>      CHAR2{2798} local
>  [clone LOOP?[872] 3017]
>    has the following parameters:
>      CHAR1{2793} local
>      CHAR2{2794} local
>  [clone CHAR=?[869] 3014]
>    has the following parameters:
>      CHAR1{2788} local
>      CHAR2{2789} local
>  [clone LOOP?[872] 3011]
>    has the following parameters:
>      CHAR1{2784} local
>      CHAR2{2785} local
>  [clone CHAR=?[869] 3008]
>    has the following parameters:
>      CHAR1{2779} local
>      CHAR2{2780} local
>  [clone LOOP?[872] 3005]
>    has the following parameters:
>      CHAR1{2775} local
>      CHAR2{2776} local
>  [clone CHAR=?[869] 3002]
>    has the following parameters:
>      CHAR1{2770} local
>      CHAR2{2771} local
>  [clone LOOP?[878] 2999]
>    has the following parameters:
>      CHAR1{2766} local
>      CHAR2{2767} local
>  [clone CHAR<?[875] 2996]
>    has the following parameters:
>      CHAR1{2761} local
>      CHAR2{2762} local
>  [clone LOOP?[884] 2993]
>    has the following parameters:
>      CHAR1{2757} local
>      CHAR2{2758} local
>  [clone CHAR>?[881] 2990]
>    has the following parameters:
>      CHAR1{2752} local
>      CHAR2{2753} local
>  [clone LOOP?[890] 2987]
>    has the following parameters:
>      CHAR1{2748} local
>      CHAR2{2749} local
>  [clone CHAR<=?[887] 2984]
>    has the following parameters:
>      CHAR1{2743} local
>      CHAR2{2744} local
>  [clone LOOP?[890] 2981]
>    has the following parameters:
>      CHAR1{2739} local
>      CHAR2{2740} local
>  [clone CHAR<=?[887] 2978]
>    has the following parameters:
>      CHAR1{2734} local
>      CHAR2{2735} local
>  [clone LOOP?[890] 2975]
>    has the following parameters:
>      CHAR1{2730} local
>      CHAR2{2731} local
>  [clone CHAR<=?[887] 2972]
>    has the following parameters:
>      CHAR1{2725} local
>      CHAR2{2726} local
>  [clone LOOP?[890] 2969]
>    has the following parameters:
>      CHAR1{2721} local
>      CHAR2{2722} local
>  [clone CHAR<=?[887] 2966]
>    has the following parameters:
>      CHAR1{2716} local
>      CHAR2{2717} local
>  [clone LOOP?[890] 2963]
>    has the following parameters:
>      CHAR1{2712} local
>      CHAR2{2713} local
>  [clone CHAR<=?[887] 2960]
>    has the following parameters:
>      CHAR1{2707} local
>      CHAR2{2708} local
>  [clone LOOP?[890] 2957]
>    has the following parameters:
>      CHAR1{2703} local
>      CHAR2{2704} local
>  [clone CHAR<=?[887] 2954]
>    has the following parameters:
>      CHAR1{2698} local
>      CHAR2{2699} local
>  [clone LOOP?[890] 2951]
>    has the following parameters:
>      CHAR1{2694} local
>      CHAR2{2695} local
>  [clone CHAR<=?[887] 2948]
>    has the following parameters:
>      CHAR1{2689} local
>      CHAR2{2690} local
>  [clone LOOP?[890] 2945]
>    has the following parameters:
>      CHAR1{2685} local
>      CHAR2{2686} local
>  [clone CHAR<=?[887] 2942]
>    has the following parameters:
>      CHAR1{2680} local
>      CHAR2{2681} local
>  [clone LOOP?[890] 2939]
>    has the following parameters:
>      CHAR1{2676} local
>      CHAR2{2677} local
>  [clone CHAR<=?[887] 2936]
>    has the following parameters:
>      CHAR1{2671} local
>      CHAR2{2672} local
>  [clone LOOP?[896] 2933]
>    has the following parameters:
>      CHAR1{2667} local
>      CHAR2{2668} local
>  [clone CHAR>=?[893] 2930]
>    has the following parameters:
>      CHAR1{2662} local
>      CHAR2{2663} local
>  [clone LOOP?[896] 2927]
>    has the following parameters:
>      CHAR1{2658} local
>      CHAR2{2659} local
>  [clone CHAR>=?[893] 2924]
>    has the following parameters:
>      CHAR1{2653} local
>      CHAR2{2654} local
>  [clone LOOP?[896] 2921]
>    has the following parameters:
>      CHAR1{2649} local
>      CHAR2{2650} local
>  [clone CHAR>=?[893] 2918]
>    has the following parameters:
>      CHAR1{2644} local
>      CHAR2{2645} local
>  [clone LOOP?[896] 2915]
>    has the following parameters:
>      CHAR1{2640} local
>      CHAR2{2641} local
>  [clone CHAR>=?[893] 2912]
>    has the following parameters:
>      CHAR1{2635} local
>      CHAR2{2636} local
>  [clone LOOP?[896] 2909]
>    has the following parameters:
>      CHAR1{2631} local
>      CHAR2{2632} local
>  [clone CHAR>=?[893] 2906]
>    has the following parameters:
>      CHAR1{2626} local
>      CHAR2{2627} local
>  [clone LOOP?[896] 2903]
>    has the following parameters:
>      CHAR1{2622} local
>      CHAR2{2623} local
>  [clone CHAR>=?[893] 2900]
>    has the following parameters:
>      CHAR1{2617} local
>      CHAR2{2618} local
>  [clone LOOP?[896] 2897]
>    has the following parameters:
>      CHAR1{2613} local
>      CHAR2{2614} local
>  [clone CHAR>=?[893] 2894]
>    has the following parameters:
>      CHAR1{2608} local
>      CHAR2{2609} local
>  [clone LOOP?[896] 2891]
>    has the following parameters:
>      CHAR1{2604} local
>      CHAR2{2605} local
>  [clone CHAR>=?[893] 2888]
>    has the following parameters:
>      CHAR1{2599} local
>      CHAR2{2600} local
>  [clone LOOP?[896] 2885]
>    has the following parameters:
>      CHAR1{2595} local
>      CHAR2{2596} local
>  [clone CHAR>=?[893] 2882]
>    has the following parameters:
>      CHAR1{2590} local
>      CHAR2{2591} local
>  [clone PNM-WIDTH[15] 2877]
>    has the following parameter:
>      PNM{2589} local
>  [clone PNM-WIDTH[15] 2872]
>    has the following parameter:
>      PNM{2588} local
>  [clone PNM-WIDTH[15] 2867]
>    has the following parameter:
>      PNM{2587} local
>  [clone PNM-WIDTH[15] 2862]
>    has the following parameter:
>      PNM{2586} local
>  [clone PNM-HEIGHT[20] 2857]
>    has the following parameter:
>      PNM{2585} local
>  [clone PNM-HEIGHT[20] 2852]
>    has the following parameter:
>      PNM{2584} local
>  [clone PNM-HEIGHT[20] 2847]
>    has the following parameter:
>      PNM{2583} local
>  [clone PNM-HEIGHT[20] 2842]
>    has the following parameter:
>      PNM{2582} local
>  [clone READ-CHAR[2223] 2838]
>    has the following parameter:
>      &REST{2581} local
>  [clone READ-CHAR[2223] 2834]
>    has the following parameter:
>      &REST{2580} local
>  [clone READ-CHAR[2223] 2830]
>    has the following parameter:
>      &REST{2579} local
>  [clone READ-CHAR[2223] 2826]
>    has the following parameter:
>      &REST{2578} local
>  [clone READ-CHAR[2223] 2822]
>    has the following parameter:
>      &REST{2577} local
>  [clone READ-CHAR[2223] 2818]
>    has the following parameter:
>      &REST{2576} local
>  [clone READ-CHAR[2223] 2814]
>    has the following parameter:
>      &REST{2575} local
>  [clone READ-CHAR[2223] 2810]
>    has the following parameter:
>      &REST{2574} local
>  [clone READ-CHAR[2223] 2806]
>    has the following parameter:
>      &REST{2573} local
>  [clone READ-CHAR[2223] 2802]
>    has the following parameter:
>      &REST{2572} local
>  [clone READ-CHAR[2223] 2798]
>    has the following parameter:
>      &REST{2571} local
>  [clone READ-CHAR[2223] 2794]
>    has the following parameter:
>      &REST{2570} local
>  [clone READ-CHAR[2223] 2790]
>    has the following parameter:
>      &REST{2569} local
>  [clone READ-CHAR[2223] 2786]
>    has the following parameter:
>      &REST{2568} local
>  [clone READ-CHAR[2223] 2782]
>    has the following parameter:
>      &REST{2567} local
>  [clone READ-CHAR[2223] 2778]
>    has the following parameter:
>      &REST{2566} local
>  [clone READ-CHAR[2223] 2774]
>    has the following parameter:
>      &REST{2565} local
>  [clone READ-CHAR[2223] 2770]
>    has the following parameter:
>      &REST{2564} local
>  [clone READ-CHAR[2223] 2766]
>    has the following parameter:
>      &REST{2563} local
>  [clone READ-CHAR[2223] 2762]
>    has the following parameter:
>      &REST{2562} local
>  [clone READ-CHAR[2223] 2758]
>    has the following parameter:
>      &REST{2561} local
>  [clone READ-CHAR[2223] 2754]
>    has the following parameter:
>      &REST{2560} local
>  [clone READ-CHAR[2223] 2750]
>    has the following parameter:
>      &REST{2559} local
>  [clone READ-CHAR[2223] 2746]
>    has the following parameter:
>      &REST{2558} local
>  [clone READ-CHAR[2223] 2742]
>    has the following parameter:
>      &REST{2557} local
>  [clone READ-CHAR[2223] 2738]
>    has the following parameter:
>      &REST{2556} local
>  [clone READ-CHAR[2223] 2734]
>    has the following parameter:
>      &REST{2555} local
>  [clone READ-CHAR[2223] 2730]
>    has the following parameter:
>      &REST{2554} local
>  [clone READ-CHAR[2223] 2726]
>    has the following parameter:
>      &REST{2553} local
>  [clone READ-CHAR[2223] 2722]
>    has the following parameter:
>      &REST{2552} local
>  [clone READ-CHAR[2223] 2718]
>    has the following parameter:
>      &REST{2551} local
>  [clone READ-CHAR[2223] 2714]
>    has the following parameter:
>      &REST{2550} local
>  [clone READ-CHAR[2223] 2710]
>    has the following parameter:
>      &REST{2549} local
>  [clone READ-CHAR[2223] 2706]
>    has the following parameter:
>      &REST{2548} local
>  [clone READ-CHAR[2223] 2702]
>    has the following parameter:
>      &REST{2547} local
>  [clone READ-CHAR[2223] 2698]
>    has the following parameter:
>      &REST{2546} local
>  [clone READ-CHAR[2223] 2694]
>    has the following parameter:
>      &REST{2545} local
>  [clone READ-CHAR[2223] 2690]
>    has the following parameter:
>      &REST{2544} local
>  [clone READ-CHAR[2223] 2686]
>    has the following parameter:
>      &REST{2543} local
>  [clone READ-CHAR[2223] 2682]
>    has the following parameter:
>      &REST{2542} local
>  [clone READ-CHAR[2223] 2678]
>    has the following parameter:
>      &REST{2541} local
>  [clone READ-CHAR[2223] 2674]
>    has the following parameter:
>      &REST{2540} local
>  [clone READ-CHAR[2223] 2670]
>    has the following parameter:
>      &REST{2539} local
>  [clone READ-CHAR[2223] 2666]
>    has the following parameter:
>      &REST{2538} local
>  [clone READ-CHAR[2223] 2662]
>    has the following parameter:
>      &REST{2537} local
>  [clone READ-CHAR[2223] 2658]
>    has the following parameter:
>      &REST{2536} local
>  [clone READ-CHAR[2223] 2654]
>    has the following parameter:
>      &REST{2535} local
>  [clone READ-CHAR[2223] 2650]
>    has the following parameter:
>      &REST{2534} local
>  [clone READ-CHAR[2223] 2646]
>    has the following parameter:
>      &REST{2533} local
>  [clone READ-CHAR[2223] 2642]
>    has the following parameter:
>      &REST{2532} local
>  [clone READ-CHAR[2223] 2638]
>    has the following parameter:
>      &REST{2531} local
>  [clone READ-CHAR[2223] 2634]
>    has the following parameter:
>      &REST{2530} local
>  [clone READ-CHAR[2223] 2630]
>    has the following parameter:
>      &REST{2529} local
>  [clone READ-CHAR[2223] 2626]
>    has the following parameter:
>      &REST{2528} local
>  [clone READ-CHAR[2223] 2622]
>    has the following parameter:
>      &REST{2527} local
>  [clone READ-CHAR[2223] 2618]
>    has the following parameter:
>      &REST{2526} local
>  [clone READ-CHAR[2223] 2614]
>    has the following parameter:
>      &REST{2525} local
>  [clone READ-CHAR[2223] 2610]
>    has the following parameter:
>      &REST{2524} local
>  [clone READ-CHAR[2223] 2606]
>    has the following parameter:
>      &REST{2523} local
>  [clone PEEK-CHAR[2227] 2602]
>    has the following parameter:
>      &REST{2522} local
>  [clone PEEK-CHAR[2227] 2598]
>    has the following parameter:
>      &REST{2521} local
>  [clone PEEK-CHAR[2227] 2594]
>    has the following parameter:
>      &REST{2520} local
>  [clone PEEK-CHAR[2227] 2590]
>    has the following parameter:
>      &REST{2519} local
>  [clone PEEK-CHAR[2227] 2586]
>    has the following parameter:
>      &REST{2518} local
>  [clone PEEK-CHAR[2227] 2582]
>    has the following parameter:
>      &REST{2517} local
>  [clone PEEK-CHAR[2227] 2578]
>    has the following parameter:
>      &REST{2516} local
>  [clone PEEK-CHAR[2227] 2574]
>    has the following parameter:
>      &REST{2515} local
>  [clone PEEK-CHAR[2227] 2570]
>    has the following parameter:
>      &REST{2514} local
>  [clone PEEK-CHAR[2227] 2566]
>    has the following parameter:
>      &REST{2513} local
>  [clone PEEK-CHAR[2227] 2562]
>    has the following parameter:
>      &REST{2512} local
>  [clone PEEK-CHAR[2227] 2558]
>    has the following parameter:
>      &REST{2511} local
>  [clone PEEK-CHAR[2227] 2554]
>    has the following parameter:
>      &REST{2510} local
>  [clone NEWLINE[2243] 2550]
>    has the following parameter:
>      &REST{2509} local
>  [clone NEWLINE[2243] 2546]
>    has the following parameter:
>      &REST{2508} local
>  [clone NEWLINE[2243] 2542]
>    has the following parameter:
>      &REST{2507} local
>  [clone WRITE-CHAR[2247] 2538]
>    has the following parameters:
>      CHAR{2505} local
>      &REST{2506} local
>  [clone LIST[522] 2537]
>    has the following parameter:
>      OBJS{2504} local
>  [clone LIST[522] 2536]
>    has the following parameter:
>      OBJS{2503} local
>  [clone LIST[522] 2535]
>    has the following parameter:
>      OBJS{2502} local
>  [clone LIST[522] 2534]
>    has the following parameter:
>      OBJS{2501} local
>  [clone LIST[522] 2533]
>    has the following parameter:
>      OBJS{2500} local
>  [clone LIST[522] 2532]
>    has the following parameter:
>      OBJS{2499} local
>  [clone LIST[522] 2531]
>    has the following parameter:
>      OBJS{2498} local
>  [clone LIST[522] 2530]
>    has the following parameter:
>      OBJS{2497} local
>  [clone LIST[522] 2529]
>    has the following parameter:
>      OBJS{2496} local
>  [clone LIST[522] 2528]
>    has the following parameter:
>      OBJS{2495} local
>  [clone [inside top level 930] 2527]
>    has the following parameter:
>      CHAR{2494} local
>  [clone [inside top level 930] 2526]
>    has the following parameter:
>      CHAR{2493} local
>  [clone [inside top level 932] 2525]
>    has the following parameter:
>      CHAR{2492} local
>  [clone [inside top level 932] 2524]
>    has the following parameter:
>      CHAR{2491} local
>  [clone [inside top level 932] 2523]
>    has the following parameter:
>      CHAR{2490} local
>  [clone [inside top level 932] 2522]
>    has the following parameter:
>      CHAR{2489} local
>  [clone [inside top level 932] 2521]
>    has the following parameter:
>      CHAR{2488} local
>  [clone [inside top level 932] 2520]
>    has the following parameter:
>      CHAR{2487} local
>  [clone [inside top level 932] 2519]
>    has the following parameter:
>      CHAR{2486} local
>  [clone [inside top level 932] 2518]
>    has the following parameter:
>      CHAR{2485} local
>  [clone [inside top level 932] 2517]
>    has the following parameter:
>      CHAR{2484} local
>  [clone [inside top level 932] 2516]
>    has the following parameter:
>      CHAR{2483} local
>  [clone [inside top level 932] 2515]
>    has the following parameter:
>      CHAR{2482} local
>  [clone [inside top level 932] 2514]
>    has the following parameter:
>      CHAR{2481} local
>  [clone [inside top level 932] 2513]
>    has the following parameter:
>      CHAR{2480} local
>  [clone [inside top level 932] 2512]
>    has the following parameter:
>      CHAR{2479} local
>  [clone [inside top level 932] 2511]
>    has the following parameter:
>      CHAR{2478} local
>  [clone [inside top level 932] 2510]
>    has the following parameter:
>      CHAR{2477} local
>  [clone [inside top level 932] 2509]
>    has the following parameter:
>      CHAR{2476} local
>  [clone [inside top level 932] 2508]
>    has the following parameter:
>      CHAR{2475} local
>  [clone [inside top level 932] 2507]
>    has the following parameter:
>      CHAR{2474} local
>  [clone [inside top level 932] 2506]
>    has the following parameter:
>      CHAR{2473} local
>  [clone [inside top level 932] 2505]
>    has the following parameter:
>      CHAR{2472} local
>  [clone [inside top level 932] 2504]
>    has the following parameter:
>      CHAR{2471} local
>  [clone [inside top level 932] 2503]
>    has the following parameter:
>      CHAR{2470} local
>  [clone [inside top level 932] 2502]
>    has the following parameter:
>      CHAR{2469} local
>  [clone [inside top level 932] 2501]
>    has the following parameter:
>      CHAR{2468} local
>  [clone [inside top level 942] 2500]
>    has the following parameter:
>      CHAR{2467} local
>  [clone [inside top level 942] 2499]
>    has the following parameter:
>      CHAR{2466} local
>  [clone [inside top level 942] 2498]
>    has the following parameter:
>      CHAR{2465} local
>  [clone [inside top level 942] 2497]
>    has the following parameter:
>      CHAR{2464} local
>  [clone [inside top level 942] 2496]
>    has the following parameter:
>      CHAR{2463} local
>  [clone [inside top level 942] 2495]
>    has the following parameter:
>      CHAR{2462} local
>  [clone [inside top level 942] 2494]
>    has the following parameter:
>      CHAR{2461} local
>  [clone [inside top level 942] 2493]
>    has the following parameter:
>      CHAR{2460} local
>  [clone [inside top level 942] 2492]
>    has the following parameter:
>      CHAR{2459} local
>  [clone [inside top level 942] 2491]
>    has the following parameter:
>      CHAR{2458} local
>  [clone [inside top level 942] 2490]
>    has the following parameter:
>      CHAR{2457} local
>  [clone [inside top level 942] 2489]
>    has the following parameter:
>      CHAR{2456} local
>  [clone [inside top level 942] 2488]
>    has the following parameter:
>      CHAR{2455} local
>  [clone [inside top level 942] 2487]
>    has the following parameter:
>      CHAR{2454} local
>  [clone [inside top level 942] 2486]
>    has the following parameter:
>      CHAR{2453} local
>  WRITE-CHAR[2247]
>    has the following parameters:
>      CHAR{2443} local
>      &REST{2444} local
>  NEWLINE[2243]
>    has the following parameter:
>      &REST{2442} local
>  WRITE[2235]
>    has the following parameters:
>      OBJ{2438} local
>      &REST{2439} local
>  PEEK-CHAR[2227]
>    has the following parameter:
>      &REST{2436} local
>  READ-CHAR[2223]
>    has the following parameter:
>      &REST{2435} local
>  LOOP[1772]
>    has the following parameter:
>      I{2154} local
>  LOOP[1769]
>    has the following parameters:
>      I{2150} local
>      NUMBER{2151} local
>  LOOP[1758]
>    has the following parameter:
>      I{2144} local
>  LOOP[1755]
>    has the following parameters:
>      I{2140} local
>      NUMBER{2141} local
>  DISPLAY-EXACT-INTEGER2[1751]
>    has the following parameters:
>      NUMBER{2136} local
>      PORT{2137} local
>  LOOP[1746]
>    has the following parameter:
>      I{2134} local
>  [inside DISPLAY-STRING2 1743]
>    has the following parameter:
>      N{2131} local
>  DISPLAY-STRING2[1742]
>    has the following parameters:
>      STRING{2129} local
>      PORT{2130} local
>  [inside top level 1738]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2090} global
>      THE-CURRENT-INPUT-PORT{2091} global
>      BUFFER{2092} global
>  [inside READ-CHARACTER-NAME 1711]
>    has the following parameter:
>      C{2085} local
>  READ-CHARACTER-NAME[1710]
>    has region
>    has the following parameter:
>      S{2084} local
>  [inside LOOP? 1706]
>    has the following parameter:
>      v{2083} local
>  LOOP?[1705]
>    has the following parameters:
>      S{2081} local
>      NAME{2082} local
>  LOOP[1701]
>    has the following parameter:
>      NAMES{2077} local
>  [inside READ-SYMBOL 1697]
>    has region
>  [inside READ-SYMBOL 1694]
>    has region
>  [inside READ-SYMBOL 1693]
>    has the following parameter:
>      C{2072} local
>  [inside CHAR-SUBSEQUENT? 1691]
>    has the following parameter:
>      v{2070} local
>  [inside CHAR-SUBSEQUENT? 1690]
>    has the following parameter:
>      v{2069} local
>  [inside CHAR-SUBSEQUENT? 1689]
>    has the following parameter:
>      v{2068} local
>  [inside CHAR-SUBSEQUENT? 1688]
>    has the following parameter:
>      v{2067} local
>  CHAR-SUBSEQUENT?[1687]
>    has the following parameter:
>      C{2066} local
>  [inside CHAR-INITIAL? 1686]
>    has the following parameter:
>      v{2065} local
>  [inside CHAR-INITIAL? 1685]
>    has the following parameter:
>      v{2064} local
>  [inside CHAR-INITIAL? 1684]
>    has the following parameter:
>      v{2063} local
>  [inside CHAR-INITIAL? 1683]
>    has the following parameter:
>      v{2062} local
>  [inside CHAR-INITIAL? 1682]
>    has the following parameter:
>      v{2061} local
>  [inside CHAR-INITIAL? 1681]
>    has the following parameter:
>      v{2060} local
>  [inside CHAR-INITIAL? 1680]
>    has the following parameter:
>      v{2059} local
>  [inside CHAR-INITIAL? 1679]
>    has the following parameter:
>      v{2058} local
>  [inside CHAR-INITIAL? 1678]
>    has the following parameter:
>      v{2057} local
>  [inside CHAR-INITIAL? 1677]
>    has the following parameter:
>      v{2056} local
>  [inside CHAR-INITIAL? 1676]
>    has the following parameter:
>      v{2055} local
>  [inside CHAR-INITIAL? 1675]
>    has the following parameter:
>      v{2054} local
>  [inside CHAR-INITIAL? 1674]
>    has the following parameter:
>      v{2053} local
>  [inside CHAR-INITIAL? 1673]
>    has the following parameter:
>      v{2052} local
>  [inside READ-NUMBER 1665]
>    has the following parameter:
>      C3{2048} local
>  [inside READ-NUMBER 1664]
>    has region
>  [inside READ-NUMBER 1660]
>    has the following parameter:
>      C3{2045} local
>  [inside READ-NUMBER 1659]
>    has region
>  [inside READ-NUMBER 1656]
>    has the following parameter:
>      C2{2043} local
>  [inside READ-NUMBER 1655]
>    has region
>  [inside READ-NUMBER 1654]
>    has region
>  [inside READ-NUMBER 1653]
>    has the following parameter:
>      v{2041} local
>  [inside READ-NUMBER 1652]
>    has the following parameter:
>      v{2040} local
>  [inside READ-NUMBER 1651]
>    has the following parameter:
>      v{2039} local
>  [inside READ-NUMBER 1650]
>    has the following parameter:
>      v{2038} local
>  [inside READ-NUMBER 1649]
>    has the following parameter:
>      v{2037} local
>  [inside READ-NUMBER 1648]
>    has the following parameter:
>      v{2036} local
>  [inside READ-NUMBER 1647]
>    has the following parameter:
>      v{2035} local
>  [inside READ-NUMBER 1646]
>    has the following parameter:
>      v{2034} local
>  [inside READ-NUMBER 1645]
>    has the following parameter:
>      v{2033} local
>  [inside READ-NUMBER 1643]
>    has region
>  [inside READ-NUMBER 1639]
>    has the following parameter:
>      C1{2030} local
>  [inside READ-INEXACT-NUMBER 1631]
>    has the following parameter:
>      C3{2026} local
>  [inside READ-INEXACT-NUMBER 1630]
>    has region
>  [inside READ-INEXACT-NUMBER 1626]
>    has the following parameter:
>      C3{2023} local
>  [inside READ-INEXACT-NUMBER 1625]
>    has region
>  [inside READ-INEXACT-NUMBER 1622]
>    has the following parameter:
>      C2{2021} local
>  [inside READ-INEXACT-NUMBER 1621]
>    has region
>  [inside READ-INEXACT-NUMBER 1620]
>    has region
>  [inside READ-INEXACT-NUMBER 1619]
>    has the following parameter:
>      v{2019} local
>  [inside READ-INEXACT-NUMBER 1618]
>    has the following parameter:
>      v{2018} local
>  [inside READ-INEXACT-NUMBER 1617]
>    has the following parameter:
>      v{2017} local
>  [inside READ-INEXACT-NUMBER 1616]
>    has the following parameter:
>      v{2016} local
>  [inside READ-INEXACT-NUMBER 1615]
>    has the following parameter:
>      v{2015} local
>  [inside READ-INEXACT-NUMBER 1614]
>    has the following parameter:
>      v{2014} local
>  [inside READ-INEXACT-NUMBER 1613]
>    has the following parameter:
>      v{2013} local
>  [inside READ-INEXACT-NUMBER 1612]
>    has the following parameter:
>      v{2012} local
>  [inside READ-INEXACT-NUMBER 1611]
>    has the following parameter:
>      v{2011} local
>  [inside READ-INEXACT-NUMBER 1607]
>    has the following parameter:
>      C1{2009} local
>  [inside READ-EXACT-HEXADECIMAL-INTEGER 1597]
>    has the following parameter:
>      C{2003} local
>  [inside READ-EXACT-DECIMAL-INTEGER 1591]
>    has the following parameter:
>      C{2000} local
>  [inside READ-EXACT-OCTAL-INTEGER 1585]
>    has the following parameter:
>      C{1997} local
>  [inside READ-EXACT-BINARY-INTEGER 1577]
>    has the following parameter:
>      C{1993} local
>  [inside READ 1574]
>    has region
>  [inside READ 1569]
>    has region
>  [inside READ 1568]
>    has region
>  [inside READ 1566]
>    has region
>  [inside READ 1564]
>    has the following parameter:
>      C2{1988} local
>  [inside READ 1563]
>    has region
>  [inside READ 1561]
>    has region
>  [inside READ 1560]
>    has region
>  [inside READ 1558]
>    has region
>  [inside READ 1557]
>    has region
>  [inside READ 1555]
>    has region
>  [inside READ 1553]
>    has the following parameter:
>      C3{1984} local
>  [inside READ 1552]
>    has region
>  [inside READ 1551]
>    has region
>  [inside READ 1549]
>    has region
>  [inside READ 1547]
>    has the following parameter:
>      C2{1981} local
>  [inside READ 1546]
>    has region
>  [inside READ 1544]
>    has region
>  [inside READ 1543]
>    has region
>  [inside READ 1541]
>    has region
>  [inside READ 1540]
>    has region
>  [inside READ 1538]
>    has region
>  [inside READ 1536]
>    has the following parameter:
>      C3{1977} local
>  [inside READ 1535]
>    has region
>  [inside READ 1534]
>    has region
>  [inside READ 1532]
>    has region
>  [inside READ 1530]
>    has the following parameter:
>      C2{1974} local
>  [inside READ 1529]
>    has region
>  [inside LOOP 1525]
>    has region
>  [inside LOOP 1522]
>    has the following parameter:
>      C1{1972} local
>  [inside LOOP 1519]
>    has the following parameter:
>      C{1970} local
>  LOOP[1518]
>    has region
>    has the following parameter:
>      S{1969} local
>  [inside READ 1511]
>    has region
>  [inside READ 1510]
>    has the following parameter:
>      C3{1965} local
>  [inside READ 1509]
>    has region
>  [inside LOOP 1507] reentrant
>    has the following parameter:
>      E{1964} local
>  LOOP[1506] reentrant
>    has region
>    has the following parameter:
>      S{1963} local
>  [inside READ 1503] reentrant
>  [inside READ 1494]
>    has the following parameter:
>      C4{1959} local
>  [inside READ 1493]
>    has region
>  [inside READ 1486]
>    has the following parameter:
>      C4{1957} local
>  [inside READ 1485]
>    has region
>  [inside READ 1480]
>    has the following parameter:
>      C3{1955} local
>  [inside READ 1479]
>    has region
>  [inside READ 1478]
>    has the following parameter:
>      v{1954} local
>  [inside READ 1471]
>    has the following parameter:
>      C4{1951} local
>  [inside READ 1470]
>    has region
>  [inside READ 1464]
>    has the following parameter:
>      C5{1948} local
>  [inside READ 1463]
>    has region
>  [inside READ 1460]
>    has the following parameter:
>      C4{1946} local
>  [inside READ 1459]
>    has region
>  [inside READ 1453]
>    has the following parameter:
>      C5{1943} local
>  [inside READ 1452]
>    has region
>  [inside READ 1449]
>    has the following parameter:
>      C4{1941} local
>  [inside READ 1448]
>    has region
>  [inside READ 1446]
>    has the following parameter:
>      C3{1939} local
>  [inside READ 1445]
>    has region
>  [inside READ 1444]
>    has the following parameter:
>      v{1938} local
>  [inside READ 1440]
>    has the following parameter:
>      v{1937} local
>  [inside READ 1437]
>    has the following parameter:
>      C4{1934} local
>  [inside READ 1436]
>    has region
>  [inside READ 1434]
>    has the following parameter:
>      v{1933} local
>  [inside READ 1431]
>    has the following parameter:
>      C4{1930} local
>  [inside READ 1430]
>    has region
>  [inside READ 1427]
>    has the following parameter:
>      C3{1928} local
>  [inside READ 1426]
>    has region
>  [inside READ 1425]
>    has the following parameter:
>      v{1927} local
>  [inside READ 1417]
>    has the following parameter:
>      C4{1925} local
>  [inside READ 1416]
>    has region
>  [inside READ 1410]
>    has the following parameter:
>      C4{1923} local
>  [inside READ 1409]
>    has region
>  [inside READ 1405]
>    has the following parameter:
>      C3{1921} local
>  [inside READ 1404]
>    has region
>  [inside READ 1403]
>    has the following parameter:
>      v{1920} local
>  [inside READ 1401]
>    has the following parameter:
>      v{1919} local
>  [inside READ 1399]
>    has the following parameter:
>      v{1918} local
>  [inside READ 1398] reentrant
>  [inside READ 1397] reentrant
>    has the following parameter:
>      C2{1916} local
>  [inside READ 1396] reentrant
>  [inside LOOP 1394] reentrant
>  LOOP[1390]
>    has the following parameters:
>      S{1914} local
>      C{1915} local
>  [inside LOOP 1385] reentrant
>    has the following parameter:
>      E1{1910} local
>  [inside LOOP 1384] reentrant
>  [inside LOOP 1383] reentrant
>  [inside LOOP 1382] reentrant
>    has the following parameter:
>      E{1908} local
>  LOOP[1381] reentrant
>    has region
>    has the following parameter:
>      S{1907} local
>  [inside READ 1378] reentrant
>  [inside READ 1376] reentrant
>  [inside READ 1375] reentrant
>  [inside READ 1374] reentrant
>  [inside READ 1373] reentrant
>  [inside READ 1372] reentrant
>    has the following parameter:
>      C2{1902} local
>  [inside READ 1371] reentrant
>  [inside READ 1370] reentrant
>  [inside READ 1369] reentrant
>  [inside READ 1367] reentrant
>  [inside LOOP 1361]
>    has the following parameter:
>      C{1900} local
>  [inside READ 1357] reentrant
>  [inside READ 1356] reentrant
>  [inside READ 1345] reentrant
>    has the following parameter:
>      C1{1896} local
>  [inside READ 1344] reentrant
>  [inside READ 1343] reentrant
>  [inside READ 1339]
>    has the following parameters:
>      CLOSE{1869} global
>      DOT{1870} global
>  [inside CALL-WITH-OUTPUT-FILE 1323]
>    has the following parameter:
>      OUTPUT-PORT{1858} local
>  CALL-WITH-OUTPUT-FILE[1322]
>    has the following parameter:
>      STRING{1856} local
>  [inside CALL-WITH-INPUT-FILE 1319]
>    has the following parameter:
>      R{1854} local
>  [inside CALL-WITH-INPUT-FILE 1318]
>    has the following parameter:
>      INPUT-PORT{1853} local
>  CALL-WITH-INPUT-FILE[1317]
>    has the following parameter:
>      STRING{1851} local
>  LOOP[1182]
>    has the following parameter:
>      K{1738} local
>  [inside LIST->VECTOR 1178]
>    has the following parameter:
>      R{1734} local
>  LIST->VECTOR[1177]
>    has the following parameter:
>      LIST{1733} local
>  LOOP[1129]
>    has the following parameter:
>      K{1693} local
>  [inside STRING-COPY 1124]
>    has the following parameter:
>      R{1689} local
>  [inside STRING-COPY 1123]
>    has the following parameter:
>      N{1688} local
>  LOOP[1117]
>    has the following parameter:
>      K{1684} local
>  [inside LIST->STRING 1113]
>    has the following parameter:
>      R{1680} local
>  LOOP[1104]
>    has the following parameters:
>      K{1672} local
>      STRINGS{1673} local
>  LOOP[1095]
>    has the following parameter:
>      L{1667} local
>  [inside LOOP 1091]
>    has the following parameter:
>      N{1663} local
>  LOOP[1090]
>    has the following parameter:
>      STRINGS{1662} local
>  [inside STRING-APPEND 1085]
>    has the following parameter:
>      K{1658} local
>  [inside STRING-APPEND 1084]
>    has the following parameter:
>      R{1657} local
>  STRING-APPEND[1083]
>    has the following parameter:
>      STRINGS{1656} local
>  [inside LOOP? 969]
>    has the following parameter:
>      v{1511} local
>  LOOP?[968]
>    has the following parameter:
>      K{1510} local
>  [inside LOOP? 965]
>    has the following parameter:
>      N{1507} local
>  LOOP?[964]
>    has the following parameters:
>      STRING1{1504} local
>      STRING2{1505} local
>  [inside top level 942]
>    has the following parameter:
>      CHAR{1480} local
>  [inside top level 941]
>    has the following parameter:
>      CHAR-UPCASE{1479} global
>  [inside top level 934]
>    has the following parameter:
>      CHAR{1472} local
>  [inside top level 933]
>    has the following parameter:
>      CHAR-WHITESPACE?{1471} global
>  [inside top level 932]
>    has the following parameter:
>      CHAR{1470} local
>  [inside top level 931]
>    has the following parameter:
>      CHAR-NUMERIC?{1469} global
>  [inside top level 930]
>    has the following parameter:
>      CHAR{1468} local
>  [inside top level 929]
>    has the following parameter:
>      CHAR-ALPHABETIC?{1467} global
>  LOOP?[902]
>    has the following parameters:
>      CHAR1{1427} local
>      CHAR2{1428} local
>  CHAR-CI=?[899]
>    has the following parameters:
>      CHAR1{1422} local
>      CHAR2{1423} local
>  LOOP?[896]
>    has the following parameters:
>      CHAR1{1418} local
>      CHAR2{1419} local
>  CHAR>=?[893]
>    has the following parameters:
>      CHAR1{1413} local
>      CHAR2{1414} local
>  LOOP?[890]
>    has the following parameters:
>      CHAR1{1409} local
>      CHAR2{1410} local
>  CHAR<=?[887]
>    has the following parameters:
>      CHAR1{1404} local
>      CHAR2{1405} local
>  LOOP?[884]
>    has the following parameters:
>      CHAR1{1400} local
>      CHAR2{1401} local
>  CHAR>?[881]
>    has the following parameters:
>      CHAR1{1395} local
>      CHAR2{1396} local
>  LOOP?[878]
>    has the following parameters:
>      CHAR1{1391} local
>      CHAR2{1392} local
>  CHAR<?[875]
>    has the following parameters:
>      CHAR1{1386} local
>      CHAR2{1387} local
>  LOOP?[872]
>    has the following parameters:
>      CHAR1{1382} local
>      CHAR2{1383} local
>  CHAR=?[869]
>    has the following parameters:
>      CHAR1{1377} local
>      CHAR2{1378} local
>  ABS[797]
>    has the following parameter:
>      X{1309} local
>  LOOP[725]
>    has the following parameter:
>      PACKAGE{1224} local
>  [inside top level 719]
>    has the following parameter:
>      FOUND{1220} local
>  [inside top level 698]
>    has the following parameter:
>      PACKAGE{1218} global
>  LOOP[633]
>    has the following parameters:
>      LIST{1170} local
>      R{1171} local
>  LIST-REVERSE[630]
>    has the following parameter:
>      LIST{1167} local
>  LOOP[526]
>    has the following parameter:
>      K{1096} local
>  LIST[522]
>    has the following parameter:
>      OBJS{1092} local
>  [inside EQV? 465]
>    has the following parameter:
>      v{1031} local
>  EQV?[464]
>    has the following parameter:
>      OBJ1{1029} local
>  LOOP[424]
>    has the following parameter:
>      I{1022} local
>  [inside NORMAL-FLOW-MAGNITUDE 420]
>    has the following parameter:
>      V{1018} local
>  [inside loop 416]
>    has the following parameter:
>      L{1017} local
>  [inside loop 415]
>    has the following parameter:
>      ET{1016} local
>  [inside loop 414]
>    has the following parameter:
>      EY{1015} local
>  [inside loop 413]
>    has the following parameter:
>      EX{1014} local
>  loop[409]
>    has the following parameter:
>      J{1012} local
>  loop[403]
>    has the following parameter:
>      I{1008} local
>  [inside NORMAL-FLOW-MAGNITUDE 398]
>    has the following parameter:
>      M{1004} local
>  [inside NORMAL-FLOW-MAGNITUDE 397]
>    has region
>    has the following parameter:
>      E2{1003} local
>  [inside NORMAL-FLOW-MAGNITUDE 396]
>    has the following parameter:
>      E1{1002} local
>  [inside NORMAL-FLOW-MAGNITUDE 395]
>    has the following parameter:
>      HEIGHT{1001} local
>  [inside NORMAL-FLOW-MAGNITUDE 394]
>    has the following parameter:
>      WIDTH{1000} local
>  NORMAL-FLOW-MAGNITUDE[392]
>    has the following parameters:
>      PGM1{994} local
>      PGM2{995} local
>      EPSILON{996} local
>      SIGMA{997} local
>      SENSITIVITY{998} local
>  LOOP[386]
>    has the following parameter:
>      I{992} local
>  [inside PGM-SMOOTH 382]
>    has the following parameter:
>      V{988} local
>  loop[374]
>    has the following parameter:
>      J{986} local
>  loop[368]
>    has the following parameter:
>      I{982} local
>  loop[362]
>    has the following parameter:
>      X{977} local
>  loop[356]
>    has the following parameter:
>      Y{973} local
>  [inside PGM-SMOOTH 351]
>    has the following parameter:
>      GREY2{969} local
>  [inside PGM-SMOOTH 350]
>    has the following parameter:
>      GREY1{968} local
>  [inside PGM-SMOOTH 349]
>    has the following parameter:
>      WIDTH{967} local
>  [inside PGM-SMOOTH 348]
>    has the following parameter:
>      HEIGHT{966} local
>  loop[285]
>    has the following parameter:
>      X{913} local
>  loop[279]
>    has the following parameter:
>      Y{909} local
>  loop[271]
>    has region
>    has the following parameter:
>      X{904} local
>  loop[265]
>    has the following parameter:
>      Y{900} local
>  loop[257]
>    has region
>    has the following parameter:
>      X{896} local
>  loop[251]
>    has the following parameter:
>      Y{892} local
>  [inside WRITE-PGM 247]
>    has the following parameters:
>      GREY{878} local
>      HEIGHT{879} local
>      WIDTH{880} local
>  WRITE-PGM[246]
>    has the following parameter:
>      PGM{877} local
>  [inside WRITE-PNM 217]
>    has region
>  WRITE-PNM[215]
>    has the following parameters:
>      PNM{847} global
>      PATHNAME{848} local
>  LOOP[206]
>    has the following parameter:
>      I{845} local
>  [inside READ-PPM 202]
>    has the following parameter:
>      V{841} local
>  LOOP[197]
>    has the following parameter:
>      I{839} local
>  [inside READ-PPM 193]
>    has the following parameter:
>      V{835} local
>  LOOP[188]
>    has the following parameter:
>      I{833} local
>  [inside READ-PPM 184]
>    has the following parameter:
>      V{829} local
>  [inside loop 178]
>    has the following parameter:
>      V3{825} local
>  [inside loop 177]
>    has region
>    has the following parameter:
>      V2{824} local
>  [inside loop 176]
>    has region
>    has the following parameter:
>      V1{823} local
>  loop[172]
>    has region
>    has the following parameter:
>      X{821} local
>  loop[166]
>    has the following parameter:
>      Y{817} local
>  [inside loop 157]
>    has the following parameter:
>      C3{811} local
>  [inside loop 156]
>    has region
>    has the following parameter:
>      C2{810} local
>  [inside loop 155]
>    has region
>    has the following parameter:
>      C1{809} local
>  loop[151]
>    has region
>    has the following parameter:
>      X{807} local
>  loop[145]
>    has the following parameter:
>      Y{803} local
>  [inside READ-PPM 137]
>    has the following parameter:
>      BLUE{797} local
>  [inside READ-PPM 136]
>    has the following parameter:
>      GREEN{796} local
>  [inside READ-PPM 135]
>    has the following parameter:
>      RED{795} local
>  [inside READ-PPM 133]
>    has the following parameter:
>      MAXVAL{793} local
>  [inside READ-PPM 132]
>    has the following parameter:
>      HEIGHT{792} local
>  [inside READ-PPM 131]
>    has the following parameter:
>      WIDTH{791} local
>  LOOP[125]
>    has the following parameter:
>      I{788} local
>  [inside READ-PGM 121]
>    has the following parameter:
>      V{784} local
>  [inside loop 116]
>    has the following parameter:
>      V{782} local
>  loop[112]
>    has region
>    has the following parameter:
>      X{780} local
>  loop[106]
>    has the following parameter:
>      Y{776} local
>  [inside loop 98]
>    has the following parameter:
>      C{772} local
>  loop[94]
>    has region
>    has the following parameter:
>      X{770} local
>  loop[88]
>    has the following parameter:
>      Y{766} local
>  [inside READ-PGM 80]
>    has the following parameter:
>      GREY{760} local
>  [inside READ-PGM 78]
>    has the following parameter:
>      MAXVAL{758} local
>  [inside READ-PGM 77]
>    has the following parameter:
>      HEIGHT{757} local
>  [inside READ-PGM 76]
>    has the following parameter:
>      WIDTH{756} local
>  LOOP[70]
>    has the following parameter:
>      I{753} local
>  [inside READ-PBM 66]
>    has the following parameter:
>      V{749} local
>  [inside loop 61]
>    has the following parameter:
>      V{747} local
>  loop[57]
>    has region
>    has the following parameter:
>      X{745} local
>  loop[51]
>    has the following parameter:
>      Y{741} local
>  [inside READ-PBM 43]
>    has the following parameter:
>      BITMAP{736} local
>  [inside READ-PBM 42]
>    has the following parameter:
>      HEIGHT{735} local
>  [inside READ-PBM 41]
>    has the following parameter:
>      WIDTH{734} local
>  [inside READ-PNM 32]
>    has the following parameter:
>      v{732} local
>  [inside READ-PNM 31]
>    has the following parameter:
>      FORMAT{731} local
>  [inside READ-PNM 30]
>    has region
>  PNM-HEIGHT[20]
>    has the following parameter:
>      PNM{720} local
>  PNM-WIDTH[15]
>    has the following parameter:
>      PNM{719} local
>  loop[9]
>    has the following parameter:
>      I{716} local
>  [inside top level 6]
>    has the following parameters:
>      PGM2{712} local
>      PGM1{713} local
>  [inside top level 4]
>    has the following parameter:
>      *MAX-GREY*{659} global
>The following expression allocates on [inside READ-SYMBOL 1697]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside READ-SYMBOL 1694]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside READ-PNM 30]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on LOOP[1506]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1710]:
>(READ-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1710]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1692]:
>(READ-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1692]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CHAR-UPCASE C) S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1654]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1655]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1664]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1659]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1643]:
>(READ-CHAR PORT)
>The following expression allocates on READ-NUMBER[1638]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1620]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1621]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1630]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1625]:
>(READ-CHAR PORT)
>The following expression allocates on READ-INEXACT-NUMBER[1606]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1596]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1596]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1596]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-DECIMAL-INTEGER[1590]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-OCTAL-INTEGER[1584]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1576]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1576]:
>(READ-CHAR PORT)
>The following expression allocates on READ[1342]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1574]:
>(LIST (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1563]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1568]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1569]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1566]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1546]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1560]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1561]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1551]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1552]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1557]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1558]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1555]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1549]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1529]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1543]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1544]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1534]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1535]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1540]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1541]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1538]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1532]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1518]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on LOOP[1518]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1518]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C1 S)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1509]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1511]:
>(LIST C3)
>The following expression allocates on LOOP[1506]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on [inside READ 1479]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1493]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1485]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1445]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1470]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1459]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1463]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1448]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1452]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1426]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1436]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1430]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1404]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1416]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1409]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1381]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on [inside READ-PNM 30]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) E1)
>The following expression allocates on [inside READ-PNM 30]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) C)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-PNM 30]:
>(LIST (QUOTE UNQUOTE) (READ (QUOTE UNQUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-PNM 30]:
>(LIST (QUOTE UNQUOTE-SPLICING) (READ (QUOTE UNQUOTE-SPLICING)))
>The following expression allocates on [inside READ-PNM 30]:
>(LIST (QUOTE QUASIQUOTE) (READ (QUOTE QUASIQUOTE)))
>The following expression allocates on [inside READ-PNM 30]:
>(LIST (QUOTE QUOTE) (READ (QUOTE QUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-PNM 30]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) N)
>The following expression allocates on [inside READ-PNM 30]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST))
>The following expression allocates on [inside WRITE-PNM 217]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) (((LAMBDA (LOOP) (SET! LOOP (LAMBDA (K STRINGS) (IF ((PRIMITIVE-PROCEDURE NULL?) STRINGS) K (LOOP ((PRIMITIVE-PROCEDURE +) K ((PRIMITIVE-PROCEDURE STRING-LENGTH) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) STRINGS))) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) STRINGS))))) LOOP) ((LAMBDA ()))) 0 STRINGS))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (STRING-COPY STRING) PACKAGE)
>The following expression allocates on [inside LOOP 1525]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, nfm-stalin.sc:283:9921, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:286:10017, allocates on [inside NORMAL-FLOW-MAGNITUDE 397]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH 0)
>The following expression, nfm-stalin.sc:326:11509, allocates on the stack:
>(MAKE-PGM (PGM-RAW? PGM1) *MAX-GREY* M)
>The following expression, nfm-stalin.sc:252:8680, allocates on TEST[430]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:255:8774, allocates on TEST[430]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH 0)
>The following expression, nfm-stalin.sc:269:9341, allocates on TEST[430]:
>(MAKE-PGM (PGM-RAW? PGM) *MAX-GREY* GREY2)
>The following expression, nfm-stalin.sc:187:6453, allocates on the stack:
>(NEWLINE PORT)
>The following expression, nfm-stalin.sc:186:6419, allocates on the stack:
>(WRITE (PGM-MAXVAL PGM) PORT)
>The following expression, nfm-stalin.sc:185:6400, allocates on the stack:
>(NEWLINE PORT)
>The following expression, nfm-stalin.sc:184:6376, allocates on the stack:
>(WRITE HEIGHT PORT)
>The following expression, nfm-stalin.sc:183:6346, allocates on the stack:
>(WRITE-CHAR #\Space PORT)
>The following expression, nfm-stalin.sc:182:6323, allocates on the stack:
>(WRITE WIDTH PORT)
>The following expression, nfm-stalin.sc:181:6304, allocates on the stack:
>(NEWLINE PORT)
>The following expression, nfm-stalin.sc:180:6259, allocates on the stack:
>(WRITE (IF (PGM-RAW? PGM) (QUOTE P5) (QUOTE P2)) PORT)
>The following expression, nfm-stalin.sc:196:6767, allocates on loop[271]:
>(NEWLINE PORT)
>The following expression, nfm-stalin.sc:195:6716, allocates on loop[271]:
>(WRITE ((PRIMITIVE-PROCEDURE VECTOR-REF) ((PRIMITIVE-PROCEDURE VECTOR-REF) GREY Y) X) PORT)
>The following expression, nfm-stalin.sc:191:6566, allocates on loop[257]:
>(WRITE-CHAR ((PRIMITIVE-PROCEDURE INTEGER->CHAR) ((PRIMITIVE-PROCEDURE VECTOR-REF) ((PRIMITIVE-PROCEDURE VECTOR-REF) GREY Y) X)) PORT)
>The following expression, nfm-stalin.sc:239:8315, allocates on the stack:
>(STRING-APPEND PATHNAME (IF (PBM? PNM) ((LAMBDA () ".pbm")) (IF (PGM? PNM) ((LAMBDA () ".pgm")) (IF (PPM? PNM) ((LAMBDA () ".ppm")) ((LAMBDA () (FUCK-UP)))))))
>The following expression, nfm-stalin.sc:95:3448, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:96:3489, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:97:3530, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:99:3588, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:102:3682, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH)
>The following expression, nfm-stalin.sc:105:3753, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:108:3853, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH)
>The following expression, nfm-stalin.sc:111:3927, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:114:4024, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH)
>The following expression, nfm-stalin.sc:132:4678, allocates on loop[172]:
>(READ PORT)
>The following expression, nfm-stalin.sc:133:4703, allocates on [inside loop 176]:
>(READ PORT)
>The following expression, nfm-stalin.sc:134:4728, allocates on [inside loop 177]:
>(READ PORT)
>The following expression, nfm-stalin.sc:120:4162, allocates on the stack:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:123:4280, allocates on loop[151]:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:124:4310, allocates on [inside loop 155]:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:125:4340, allocates on [inside loop 156]:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:139:4963, allocates on the heap:
>(MAKE-PPM RAW? MAXVAL RED GREEN BLUE)
>The following expression, nfm-stalin.sc:69:2530, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:70:2571, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:71:2612, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:73:2671, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:76:2768, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH)
>The following expression, nfm-stalin.sc:90:3242, allocates on loop[112]:
>(READ PORT)
>The following expression, nfm-stalin.sc:82:2906, allocates on the stack:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:85:3022, allocates on loop[94]:
>(READ-CHAR PORT)
>The following expression, nfm-stalin.sc:93:3359, allocates on the heap:
>(MAKE-PGM RAW? MAXVAL GREY)
>The following expression, nfm-stalin.sc:49:1871, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:50:1912, allocates on the stack:
>(READ PORT)
>The following expression, nfm-stalin.sc:51:1946, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT)
>The following expression, nfm-stalin.sc:54:2042, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH)
>The following expression, nfm-stalin.sc:64:2326, allocates on loop[57]:
>(READ PORT)
>The following expression, nfm-stalin.sc:67:2446, allocates on the heap:
>(MAKE-PBM RAW? BITMAP)
>The following expression, nfm-stalin.sc:140:5019, allocates on the stack:
>(READ PORT)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W28505 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W16107 is general case for the following reasons:
>  flonum
>W16106 is general case for the following reasons:
>  flonum
>W16089 is general case for the following reasons:
>  flonum
>W15678 is general case for the following reasons:
>  flonum
>W15645 is general case for the following reasons:
>  flonum
>W15644 is general case for the following reasons:
>  flonum
>W15643 is general case for the following reasons:
>  flonum
>W14888 is general case for the following reasons:
>  flonum
>W14876 is general case for the following reasons:
>  flonum
>W310 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>nfm-stalin.c: In function âf1692â:
>nfm-stalin.c:2350:30: warning: value computed is not used
>nfm-stalin.c: In function âf1638â:
>nfm-stalin.c:3704:30: warning: value computed is not used
>nfm-stalin.c:3827:30: warning: value computed is not used
>nfm-stalin.c:4351:30: warning: value computed is not used
>nfm-stalin.c: In function âf1606â:
>nfm-stalin.c:5202:30: warning: value computed is not used
>nfm-stalin.c:5748:30: warning: value computed is not used
>nfm-stalin.c: In function âf1596â:
>nfm-stalin.c:6433:30: warning: value computed is not used
>nfm-stalin.c:6592:30: warning: value computed is not used
>nfm-stalin.c:6753:30: warning: value computed is not used
>nfm-stalin.c: In function âf1590â:
>nfm-stalin.c:6928:30: warning: value computed is not used
>nfm-stalin.c: In function âf1584â:
>nfm-stalin.c:7192:30: warning: value computed is not used
>nfm-stalin.c: In function âf1576â:
>nfm-stalin.c:7417:30: warning: value computed is not used
>nfm-stalin.c:7516:30: warning: value computed is not used
>nfm-stalin.c: In function âf1342â:
>nfm-stalin.c:10373:31: warning: value computed is not used
>nfm-stalin.c:15598:31: warning: value computed is not used
>nfm-stalin.c:16277:31: warning: value computed is not used
>nfm-stalin.c:16397:31: warning: value computed is not used
>nfm-stalin.c:16533:31: warning: value computed is not used
>nfm-stalin.c:16783:31: warning: value computed is not used
>nfm-stalin.c:17137:31: warning: value computed is not used
>nfm-stalin.c:17425:31: warning: value computed is not used
>nfm-stalin.c:17560:31: warning: value computed is not used
>nfm-stalin.c:17696:31: warning: value computed is not used
>nfm-stalin.c:17948:31: warning: value computed is not used
>nfm-stalin.c:18302:31: warning: value computed is not used
>nfm-stalin.c:18589:31: warning: value computed is not used
>nfm-stalin.c:18838:31: warning: value computed is not used
>nfm-stalin.c: In function âf130â:
>nfm-stalin.c:24035:19: warning: value computed is not used
>nfm-stalin.c: In function âf75â:
>nfm-stalin.c:24860:19: warning: value computed is not used
>Compilation time summary (in CPU seconds)
>     0 -  0% - Reading source
>     0 -  1% - Expanding macros
>     1 -  8% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  2% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 -  8% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     1 -  7% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     1 -  4% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     2 -  9% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     1 -  6% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     2 - 13% - Performing lightweight closure conversion
>     0 -  2% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  2% - Determining which environments have external continuation calls
>     1 -  3% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     2 - 13% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     1 -  7% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m23.874s
>user	0m23.122s
>sys	0m0.680s
>run nfm
>
>real	0m0.580s
>user	0m0.541s
>sys	0m0.016s
>compile integ
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16757 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   266 called noop native procedure types
>   115 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18891 type sets
>   603 hunoz variables
>  1522 non-hunoz variables
>   479 noop environments
>  1584 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 16757 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   266 called noop native procedure types
>   115 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 18891 type sets
>   603 hunoz variables
>  1522 non-hunoz variables
>   479 noop environments
>  1584 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  3862 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   266 called noop native procedure types
>   115 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4677 type sets
>   274 hunoz variables
>   532 non-hunoz variables
>     0 noop environments
>   115 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY-MANTISSA-EXPONENT2[1357]
>    has the following parameters:
>      MANTISSA{1829} local
>      EXPONENT{1830} local
>      PORT{1831} local
>    has the following in-lined locals:
>      NUMBER{1808}
>      PORT{1809}
>      I{1812}
>      NUMBER{1813}
>      I{1816}
>      I{1822}
>      NUMBER{1823}
>      I{1826}
>      FLOAT-DIGIT{1832}
>      DIGIT{1833}
>      MANTISSA{1840}
>      FLOAT-DIGIT{1841}
>      DIGIT{1842}
>      MANTISSA{1844}
>  DISPLAY-STRING2[1319]
>    has the following parameters:
>      STRING{1801} local
>      PORT{1802} local
>    has the following in-lined locals:
>      N{1803}
>      I{1806}
>  [inside INTEGRATE-2D 12]
>    has parent parameter [inside INTEGRATE-2D 11]
>    has the following parameter:
>      X{677} local
>    has the following in-lined locals:
>      X{680}
>      Y{681}
>  [inside INTEGRATE-2D 11] reentrant
>    has closure
>    has the following parameter:
>      Y{676} slotted
>  INTEGRATE-1D[8] reentrant
>    has the following parameters:
>      L{667} local
>      U{668} local
>      F{669} local
>    has the following in-lined local:
>      D{670}
>  [inside top level 0]
>    has the following in-lined locals:
>      L2{673}
>      U2{674}
>      U{678}
>      V{679}
>      N{682}
>      I{685}
>      SUM{686}
>      N{687}
>      I{690}
>      SUM{691}
>      I2{692}
>      N{693}
>      I{696}
>      SUM{697}
>      E{698}
>      NUMBER{1845}
>      PORT{1846}
>      MANTISSA{1850}
>      EXPONENT{1851}
>      MANTISSA{1854}
>      EXPONENT{1855}
>      OBJ{1890}
>      PORT{1891}
>      OBJ{2112}
>The following non-trivial in-line native procedures will be generated:
>  DISPLAY[1816]
>    has the following parameter:
>      OBJ{2112} local
>  DISPLAY2[1455]
>    has the following parameters:
>      OBJ{1890} local
>      PORT{1891} local
>  LOOP[1392]
>    has the following parameters:
>      MANTISSA{1854} local
>      EXPONENT{1855} local
>  LOOP[1387]
>    has the following parameters:
>      MANTISSA{1850} local
>      EXPONENT{1851} local
>  DISPLAY-INEXACT-REAL2[1378]
>    has the following parameters:
>      NUMBER{1845} local
>      PORT{1846} local
>  [inside LOOP 1375]
>    has the following parameter:
>      MANTISSA{1844} local
>  [inside LOOP 1372]
>    has the following parameter:
>      DIGIT{1842} local
>  [inside LOOP 1371]
>    has the following parameter:
>      FLOAT-DIGIT{1841} local
>  LOOP[1370]
>    has the following parameter:
>      MANTISSA{1840} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1359]
>    has the following parameter:
>      DIGIT{1833} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1358]
>    has the following parameter:
>      FLOAT-DIGIT{1832} local
>  LOOP[1349]
>    has the following parameter:
>      I{1826} local
>  LOOP[1346]
>    has the following parameters:
>      I{1822} local
>      NUMBER{1823} local
>  LOOP[1335]
>    has the following parameter:
>      I{1816} local
>  LOOP[1332]
>    has the following parameters:
>      I{1812} local
>      NUMBER{1813} local
>  DISPLAY-EXACT-INTEGER2[1328]
>    has the following parameters:
>      NUMBER{1808} local
>      PORT{1809} local
>  LOOP[1323]
>    has the following parameter:
>      I{1806} local
>  [inside DISPLAY-STRING2 1320]
>    has the following parameter:
>      N{1803} local
>  [inside top level 1315]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1762} global
>      BUFFER{1764} global
>  [inside loop 36]
>    has the following parameter:
>      E{698} local
>  loop[33]
>    has the following parameters:
>      I{696} local
>      SUM{697} local
>  ERROR-SUM-OF-SQUARES[30]
>    has the following parameter:
>      N{693} local
>  [inside loop 28]
>    has the following parameter:
>      I2{692} local
>  loop[25]
>    has the following parameters:
>      I{690} local
>      SUM{691} local
>  I-TOTAL[22]
>    has the following parameter:
>      N{687} local
>  loop[18]
>    has the following parameters:
>      I{685} local
>      SUM{686} local
>  R-TOTAL[15]
>    has the following parameter:
>      N{682} local
>  [inside ZARK 14]
>    has the following parameters:
>      X{680} local
>      Y{681} local
>  ZARK[13]
>    has the following parameters:
>      U{678} local
>      V{679} local
>  INTEGRATE-2D[10]
>    has the following parameters:
>      L1{671} global
>      U1{672} global
>      L2{673} local
>      U2{674} local
>  [inside INTEGRATE-1D 9] reentrant
>    has the following parameter:
>      D{670} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The closure for [inside INTEGRATE-2D 11] is allocated on the stack
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W16758 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W2437 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  3% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 23% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  7% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  2% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.230s
>user	0m5.058s
>sys	0m0.159s
>run integ
>
>real	0m0.140s
>user	0m0.136s
>sys	0m0.004s
>compile integ2
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18380 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   275 called noop native procedure types
>   301 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20976 type sets
>   612 hunoz variables
>  1975 non-hunoz variables
>   488 noop environments
>  1770 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18380 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   275 called noop native procedure types
>   301 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20976 type sets
>   612 hunoz variables
>  1975 non-hunoz variables
>   488 noop environments
>  1770 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  5485 expressions
>     0 internal symbol types
>     0 external symbol types
>    35 primitive procedure types
>   211 non-called native procedure types
>   275 called noop native procedure types
>   301 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  6762 type sets
>   283 hunoz variables
>   985 non-hunoz variables
>     0 noop environments
>   301 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY-MANTISSA-EXPONENT2[1552]
>    has the following parameters:
>      MANTISSA{2291} local
>      EXPONENT{2292} local
>      PORT{2293} local
>    has the following in-lined locals:
>      NUMBER{2270}
>      PORT{2271}
>      I{2274}
>      NUMBER{2275}
>      I{2278}
>      I{2284}
>      NUMBER{2285}
>      I{2288}
>      FLOAT-DIGIT{2294}
>      DIGIT{2295}
>      MANTISSA{2302}
>      FLOAT-DIGIT{2303}
>      DIGIT{2304}
>      MANTISSA{2306}
>  DISPLAY-STRING2[1514]
>    has the following parameters:
>      STRING{2263} local
>      PORT{2264} local
>    has the following in-lined locals:
>      N{2265}
>      I{2268}
>  [inside top level 0]
>    has the following in-lined locals:
>      L{685}
>      U{686}
>      D{696}
>      L{697}
>      U{698}
>      D{708}
>      L{709}
>      U{710}
>      D{720}
>      L{721}
>      U{722}
>      D{732}
>      L{733}
>      U{734}
>      D{744}
>      L{745}
>      U{746}
>      D{756}
>      L{757}
>      U{758}
>      D{768}
>      L{769}
>      U{770}
>      D{780}
>      L{781}
>      U{782}
>      D{792}
>      L{793}
>      U{794}
>      D{804}
>      L1{805}
>      U1{806}
>      L2{807}
>      U2{808}
>      Y{890}
>      X{891}
>      X{892}
>      X{893}
>      X{894}
>      X{895}
>      X{896}
>      X{897}
>      X{898}
>      X{899}
>      Y{900}
>      X{901}
>      X{902}
>      X{903}
>      X{904}
>      X{905}
>      X{906}
>      X{907}
>      X{908}
>      X{909}
>      Y{910}
>      X{911}
>      X{912}
>      X{913}
>      X{914}
>      X{915}
>      X{916}
>      X{917}
>      X{918}
>      X{919}
>      Y{920}
>      X{921}
>      X{922}
>      X{923}
>      X{924}
>      X{925}
>      X{926}
>      X{927}
>      X{928}
>      X{929}
>      Y{930}
>      X{931}
>      X{932}
>      X{933}
>      X{934}
>      X{935}
>      X{936}
>      X{937}
>      X{938}
>      X{939}
>      Y{940}
>      X{941}
>      X{942}
>      X{943}
>      X{944}
>      X{945}
>      X{946}
>      X{947}
>      X{948}
>      X{949}
>      Y{950}
>      X{951}
>      X{952}
>      X{953}
>      X{954}
>      X{955}
>      X{956}
>      X{957}
>      X{958}
>      X{959}
>      Y{960}
>      X{961}
>      X{962}
>      X{963}
>      X{964}
>      X{965}
>      X{966}
>      X{967}
>      X{968}
>      X{969}
>      Y{970}
>      X{971}
>      X{972}
>      X{973}
>      X{974}
>      X{975}
>      X{976}
>      X{977}
>      X{978}
>      X{979}
>      U{980}
>      V{981}
>      X{982}
>      Y{983}
>      X{984}
>      Y{985}
>      X{986}
>      Y{987}
>      X{988}
>      Y{989}
>      X{990}
>      Y{991}
>      X{992}
>      Y{993}
>      X{994}
>      Y{995}
>      X{996}
>      Y{997}
>      X{998}
>      Y{999}
>      X{1000}
>      Y{1001}
>      X{1002}
>      Y{1003}
>      X{1004}
>      Y{1005}
>      X{1006}
>      Y{1007}
>      X{1008}
>      Y{1009}
>      X{1010}
>      Y{1011}
>      X{1012}
>      Y{1013}
>      X{1014}
>      Y{1015}
>      X{1016}
>      Y{1017}
>      X{1018}
>      Y{1019}
>      X{1020}
>      Y{1021}
>      X{1022}
>      Y{1023}
>      X{1024}
>      Y{1025}
>      X{1026}
>      Y{1027}
>      X{1028}
>      Y{1029}
>      X{1030}
>      Y{1031}
>      X{1032}
>      Y{1033}
>      X{1034}
>      Y{1035}
>      X{1036}
>      Y{1037}
>      X{1038}
>      Y{1039}
>      X{1040}
>      Y{1041}
>      X{1042}
>      Y{1043}
>      X{1044}
>      Y{1045}
>      X{1046}
>      Y{1047}
>      X{1048}
>      Y{1049}
>      X{1050}
>      Y{1051}
>      X{1052}
>      Y{1053}
>      X{1054}
>      Y{1055}
>      X{1056}
>      Y{1057}
>      X{1058}
>      Y{1059}
>      X{1060}
>      Y{1061}
>      X{1062}
>      Y{1063}
>      X{1064}
>      Y{1065}
>      X{1066}
>      Y{1067}
>      X{1068}
>      Y{1069}
>      X{1070}
>      Y{1071}
>      X{1072}
>      Y{1073}
>      X{1074}
>      Y{1075}
>      X{1076}
>      Y{1077}
>      X{1078}
>      Y{1079}
>      X{1080}
>      Y{1081}
>      X{1082}
>      Y{1083}
>      X{1084}
>      Y{1085}
>      X{1086}
>      Y{1087}
>      X{1088}
>      Y{1089}
>      X{1090}
>      Y{1091}
>      X{1092}
>      Y{1093}
>      X{1094}
>      Y{1095}
>      X{1096}
>      Y{1097}
>      X{1098}
>      Y{1099}
>      X{1100}
>      Y{1101}
>      X{1102}
>      Y{1103}
>      X{1104}
>      Y{1105}
>      X{1106}
>      Y{1107}
>      X{1108}
>      Y{1109}
>      X{1110}
>      Y{1111}
>      X{1112}
>      Y{1113}
>      X{1114}
>      Y{1115}
>      X{1116}
>      Y{1117}
>      X{1118}
>      Y{1119}
>      X{1120}
>      Y{1121}
>      X{1122}
>      Y{1123}
>      X{1124}
>      Y{1125}
>      X{1126}
>      Y{1127}
>      X{1128}
>      Y{1129}
>      X{1130}
>      Y{1131}
>      X{1132}
>      Y{1133}
>      X{1134}
>      Y{1135}
>      X{1136}
>      Y{1137}
>      X{1138}
>      Y{1139}
>      X{1140}
>      Y{1141}
>      X{1142}
>      Y{1143}
>      N{1144}
>      I{1147}
>      SUM{1148}
>      N{1149}
>      I{1152}
>      SUM{1153}
>      I2{1154}
>      N{1155}
>      I{1158}
>      SUM{1159}
>      E{1160}
>      NUMBER{2307}
>      PORT{2308}
>      MANTISSA{2312}
>      EXPONENT{2313}
>      MANTISSA{2316}
>      EXPONENT{2317}
>      OBJ{2352}
>      PORT{2353}
>      OBJ{2574}
>The following non-trivial in-line native procedures will be generated:
>  DISPLAY[2011]
>    has the following parameter:
>      OBJ{2574} local
>  DISPLAY2[1650]
>    has the following parameters:
>      OBJ{2352} local
>      PORT{2353} local
>  LOOP[1587]
>    has the following parameters:
>      MANTISSA{2316} local
>      EXPONENT{2317} local
>  LOOP[1582]
>    has the following parameters:
>      MANTISSA{2312} local
>      EXPONENT{2313} local
>  DISPLAY-INEXACT-REAL2[1573]
>    has the following parameters:
>      NUMBER{2307} local
>      PORT{2308} local
>  [inside LOOP 1570]
>    has the following parameter:
>      MANTISSA{2306} local
>  [inside LOOP 1567]
>    has the following parameter:
>      DIGIT{2304} local
>  [inside LOOP 1566]
>    has the following parameter:
>      FLOAT-DIGIT{2303} local
>  LOOP[1565]
>    has the following parameter:
>      MANTISSA{2302} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1554]
>    has the following parameter:
>      DIGIT{2295} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1553]
>    has the following parameter:
>      FLOAT-DIGIT{2294} local
>  LOOP[1544]
>    has the following parameter:
>      I{2288} local
>  LOOP[1541]
>    has the following parameters:
>      I{2284} local
>      NUMBER{2285} local
>  LOOP[1530]
>    has the following parameter:
>      I{2278} local
>  LOOP[1527]
>    has the following parameters:
>      I{2274} local
>      NUMBER{2275} local
>  DISPLAY-EXACT-INTEGER2[1523]
>    has the following parameters:
>      NUMBER{2270} local
>      PORT{2271} local
>  LOOP[1518]
>    has the following parameter:
>      I{2268} local
>  [inside DISPLAY-STRING2 1515]
>    has the following parameter:
>      N{2265} local
>  [inside top level 1510]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2224} global
>      BUFFER{2226} global
>  [inside loop 222]
>    has the following parameter:
>      E{1160} local
>  loop[219]
>    has the following parameters:
>      I{1158} local
>      SUM{1159} local
>  ERROR-SUM-OF-SQUARES[216]
>    has the following parameter:
>      N{1155} local
>  [inside loop 214]
>    has the following parameter:
>      I2{1154} local
>  loop[211]
>    has the following parameters:
>      I{1152} local
>      SUM{1153} local
>  I-TOTAL[208]
>    has the following parameter:
>      N{1149} local
>  loop[204]
>    has the following parameters:
>      I{1147} local
>      SUM{1148} local
>  R-TOTAL[201]
>    has the following parameter:
>      N{1144} local
>  [inside ZARK 200]
>    has the following parameters:
>      X{1142} local
>      Y{1143} local
>  [inside ZARK 199]
>    has the following parameters:
>      X{1140} local
>      Y{1141} local
>  [inside ZARK 198]
>    has the following parameters:
>      X{1138} local
>      Y{1139} local
>  [inside ZARK 197]
>    has the following parameters:
>      X{1136} local
>      Y{1137} local
>  [inside ZARK 196]
>    has the following parameters:
>      X{1134} local
>      Y{1135} local
>  [inside ZARK 195]
>    has the following parameters:
>      X{1132} local
>      Y{1133} local
>  [inside ZARK 194]
>    has the following parameters:
>      X{1130} local
>      Y{1131} local
>  [inside ZARK 193]
>    has the following parameters:
>      X{1128} local
>      Y{1129} local
>  [inside ZARK 192]
>    has the following parameters:
>      X{1126} local
>      Y{1127} local
>  [inside ZARK 191]
>    has the following parameters:
>      X{1124} local
>      Y{1125} local
>  [inside ZARK 190]
>    has the following parameters:
>      X{1122} local
>      Y{1123} local
>  [inside ZARK 189]
>    has the following parameters:
>      X{1120} local
>      Y{1121} local
>  [inside ZARK 188]
>    has the following parameters:
>      X{1118} local
>      Y{1119} local
>  [inside ZARK 187]
>    has the following parameters:
>      X{1116} local
>      Y{1117} local
>  [inside ZARK 186]
>    has the following parameters:
>      X{1114} local
>      Y{1115} local
>  [inside ZARK 185]
>    has the following parameters:
>      X{1112} local
>      Y{1113} local
>  [inside ZARK 184]
>    has the following parameters:
>      X{1110} local
>      Y{1111} local
>  [inside ZARK 183]
>    has the following parameters:
>      X{1108} local
>      Y{1109} local
>  [inside ZARK 182]
>    has the following parameters:
>      X{1106} local
>      Y{1107} local
>  [inside ZARK 181]
>    has the following parameters:
>      X{1104} local
>      Y{1105} local
>  [inside ZARK 180]
>    has the following parameters:
>      X{1102} local
>      Y{1103} local
>  [inside ZARK 179]
>    has the following parameters:
>      X{1100} local
>      Y{1101} local
>  [inside ZARK 178]
>    has the following parameters:
>      X{1098} local
>      Y{1099} local
>  [inside ZARK 177]
>    has the following parameters:
>      X{1096} local
>      Y{1097} local
>  [inside ZARK 176]
>    has the following parameters:
>      X{1094} local
>      Y{1095} local
>  [inside ZARK 175]
>    has the following parameters:
>      X{1092} local
>      Y{1093} local
>  [inside ZARK 174]
>    has the following parameters:
>      X{1090} local
>      Y{1091} local
>  [inside ZARK 173]
>    has the following parameters:
>      X{1088} local
>      Y{1089} local
>  [inside ZARK 172]
>    has the following parameters:
>      X{1086} local
>      Y{1087} local
>  [inside ZARK 171]
>    has the following parameters:
>      X{1084} local
>      Y{1085} local
>  [inside ZARK 170]
>    has the following parameters:
>      X{1082} local
>      Y{1083} local
>  [inside ZARK 169]
>    has the following parameters:
>      X{1080} local
>      Y{1081} local
>  [inside ZARK 168]
>    has the following parameters:
>      X{1078} local
>      Y{1079} local
>  [inside ZARK 167]
>    has the following parameters:
>      X{1076} local
>      Y{1077} local
>  [inside ZARK 166]
>    has the following parameters:
>      X{1074} local
>      Y{1075} local
>  [inside ZARK 165]
>    has the following parameters:
>      X{1072} local
>      Y{1073} local
>  [inside ZARK 164]
>    has the following parameters:
>      X{1070} local
>      Y{1071} local
>  [inside ZARK 163]
>    has the following parameters:
>      X{1068} local
>      Y{1069} local
>  [inside ZARK 162]
>    has the following parameters:
>      X{1066} local
>      Y{1067} local
>  [inside ZARK 161]
>    has the following parameters:
>      X{1064} local
>      Y{1065} local
>  [inside ZARK 160]
>    has the following parameters:
>      X{1062} local
>      Y{1063} local
>  [inside ZARK 159]
>    has the following parameters:
>      X{1060} local
>      Y{1061} local
>  [inside ZARK 158]
>    has the following parameters:
>      X{1058} local
>      Y{1059} local
>  [inside ZARK 157]
>    has the following parameters:
>      X{1056} local
>      Y{1057} local
>  [inside ZARK 156]
>    has the following parameters:
>      X{1054} local
>      Y{1055} local
>  [inside ZARK 155]
>    has the following parameters:
>      X{1052} local
>      Y{1053} local
>  [inside ZARK 154]
>    has the following parameters:
>      X{1050} local
>      Y{1051} local
>  [inside ZARK 153]
>    has the following parameters:
>      X{1048} local
>      Y{1049} local
>  [inside ZARK 152]
>    has the following parameters:
>      X{1046} local
>      Y{1047} local
>  [inside ZARK 151]
>    has the following parameters:
>      X{1044} local
>      Y{1045} local
>  [inside ZARK 150]
>    has the following parameters:
>      X{1042} local
>      Y{1043} local
>  [inside ZARK 149]
>    has the following parameters:
>      X{1040} local
>      Y{1041} local
>  [inside ZARK 148]
>    has the following parameters:
>      X{1038} local
>      Y{1039} local
>  [inside ZARK 147]
>    has the following parameters:
>      X{1036} local
>      Y{1037} local
>  [inside ZARK 146]
>    has the following parameters:
>      X{1034} local
>      Y{1035} local
>  [inside ZARK 145]
>    has the following parameters:
>      X{1032} local
>      Y{1033} local
>  [inside ZARK 144]
>    has the following parameters:
>      X{1030} local
>      Y{1031} local
>  [inside ZARK 143]
>    has the following parameters:
>      X{1028} local
>      Y{1029} local
>  [inside ZARK 142]
>    has the following parameters:
>      X{1026} local
>      Y{1027} local
>  [inside ZARK 141]
>    has the following parameters:
>      X{1024} local
>      Y{1025} local
>  [inside ZARK 140]
>    has the following parameters:
>      X{1022} local
>      Y{1023} local
>  [inside ZARK 139]
>    has the following parameters:
>      X{1020} local
>      Y{1021} local
>  [inside ZARK 138]
>    has the following parameters:
>      X{1018} local
>      Y{1019} local
>  [inside ZARK 137]
>    has the following parameters:
>      X{1016} local
>      Y{1017} local
>  [inside ZARK 136]
>    has the following parameters:
>      X{1014} local
>      Y{1015} local
>  [inside ZARK 135]
>    has the following parameters:
>      X{1012} local
>      Y{1013} local
>  [inside ZARK 134]
>    has the following parameters:
>      X{1010} local
>      Y{1011} local
>  [inside ZARK 133]
>    has the following parameters:
>      X{1008} local
>      Y{1009} local
>  [inside ZARK 132]
>    has the following parameters:
>      X{1006} local
>      Y{1007} local
>  [inside ZARK 131]
>    has the following parameters:
>      X{1004} local
>      Y{1005} local
>  [inside ZARK 130]
>    has the following parameters:
>      X{1002} local
>      Y{1003} local
>  [inside ZARK 129]
>    has the following parameters:
>      X{1000} local
>      Y{1001} local
>  [inside ZARK 128]
>    has the following parameters:
>      X{998} local
>      Y{999} local
>  [inside ZARK 127]
>    has the following parameters:
>      X{996} local
>      Y{997} local
>  [inside ZARK 126]
>    has the following parameters:
>      X{994} local
>      Y{995} local
>  [inside ZARK 125]
>    has the following parameters:
>      X{992} local
>      Y{993} local
>  [inside ZARK 124]
>    has the following parameters:
>      X{990} local
>      Y{991} local
>  [inside ZARK 123]
>    has the following parameters:
>      X{988} local
>      Y{989} local
>  [inside ZARK 122]
>    has the following parameters:
>      X{986} local
>      Y{987} local
>  [inside ZARK 121]
>    has the following parameters:
>      X{984} local
>      Y{985} local
>  [inside ZARK 120]
>    has the following parameters:
>      X{982} local
>      Y{983} local
>  ZARK[119]
>    has the following parameters:
>      U{980} local
>      V{981} local
>  [inside INTEGRATE-2D 118]
>    has the following parameter:
>      X{979} local
>  [inside INTEGRATE-2D 117]
>    has the following parameter:
>      X{978} local
>  [inside INTEGRATE-2D 116]
>    has the following parameter:
>      X{977} local
>  [inside INTEGRATE-2D 115]
>    has the following parameter:
>      X{976} local
>  [inside INTEGRATE-2D 114]
>    has the following parameter:
>      X{975} local
>  [inside INTEGRATE-2D 113]
>    has the following parameter:
>      X{974} local
>  [inside INTEGRATE-2D 112]
>    has the following parameter:
>      X{973} local
>  [inside INTEGRATE-2D 111]
>    has the following parameter:
>      X{972} local
>  [inside INTEGRATE-2D 110]
>    has the following parameter:
>      X{971} local
>  [inside INTEGRATE-2D 109]
>    has the following parameter:
>      Y{970} local
>  [inside INTEGRATE-2D 108]
>    has the following parameter:
>      X{969} local
>  [inside INTEGRATE-2D 107]
>    has the following parameter:
>      X{968} local
>  [inside INTEGRATE-2D 106]
>    has the following parameter:
>      X{967} local
>  [inside INTEGRATE-2D 105]
>    has the following parameter:
>      X{966} local
>  [inside INTEGRATE-2D 104]
>    has the following parameter:
>      X{965} local
>  [inside INTEGRATE-2D 103]
>    has the following parameter:
>      X{964} local
>  [inside INTEGRATE-2D 102]
>    has the following parameter:
>      X{963} local
>  [inside INTEGRATE-2D 101]
>    has the following parameter:
>      X{962} local
>  [inside INTEGRATE-2D 100]
>    has the following parameter:
>      X{961} local
>  [inside INTEGRATE-2D 99]
>    has the following parameter:
>      Y{960} local
>  [inside INTEGRATE-2D 98]
>    has the following parameter:
>      X{959} local
>  [inside INTEGRATE-2D 97]
>    has the following parameter:
>      X{958} local
>  [inside INTEGRATE-2D 96]
>    has the following parameter:
>      X{957} local
>  [inside INTEGRATE-2D 95]
>    has the following parameter:
>      X{956} local
>  [inside INTEGRATE-2D 94]
>    has the following parameter:
>      X{955} local
>  [inside INTEGRATE-2D 93]
>    has the following parameter:
>      X{954} local
>  [inside INTEGRATE-2D 92]
>    has the following parameter:
>      X{953} local
>  [inside INTEGRATE-2D 91]
>    has the following parameter:
>      X{952} local
>  [inside INTEGRATE-2D 90]
>    has the following parameter:
>      X{951} local
>  [inside INTEGRATE-2D 89]
>    has the following parameter:
>      Y{950} local
>  [inside INTEGRATE-2D 88]
>    has the following parameter:
>      X{949} local
>  [inside INTEGRATE-2D 87]
>    has the following parameter:
>      X{948} local
>  [inside INTEGRATE-2D 86]
>    has the following parameter:
>      X{947} local
>  [inside INTEGRATE-2D 85]
>    has the following parameter:
>      X{946} local
>  [inside INTEGRATE-2D 84]
>    has the following parameter:
>      X{945} local
>  [inside INTEGRATE-2D 83]
>    has the following parameter:
>      X{944} local
>  [inside INTEGRATE-2D 82]
>    has the following parameter:
>      X{943} local
>  [inside INTEGRATE-2D 81]
>    has the following parameter:
>      X{942} local
>  [inside INTEGRATE-2D 80]
>    has the following parameter:
>      X{941} local
>  [inside INTEGRATE-2D 79]
>    has the following parameter:
>      Y{940} local
>  [inside INTEGRATE-2D 78]
>    has the following parameter:
>      X{939} local
>  [inside INTEGRATE-2D 77]
>    has the following parameter:
>      X{938} local
>  [inside INTEGRATE-2D 76]
>    has the following parameter:
>      X{937} local
>  [inside INTEGRATE-2D 75]
>    has the following parameter:
>      X{936} local
>  [inside INTEGRATE-2D 74]
>    has the following parameter:
>      X{935} local
>  [inside INTEGRATE-2D 73]
>    has the following parameter:
>      X{934} local
>  [inside INTEGRATE-2D 72]
>    has the following parameter:
>      X{933} local
>  [inside INTEGRATE-2D 71]
>    has the following parameter:
>      X{932} local
>  [inside INTEGRATE-2D 70]
>    has the following parameter:
>      X{931} local
>  [inside INTEGRATE-2D 69]
>    has the following parameter:
>      Y{930} local
>  [inside INTEGRATE-2D 68]
>    has the following parameter:
>      X{929} local
>  [inside INTEGRATE-2D 67]
>    has the following parameter:
>      X{928} local
>  [inside INTEGRATE-2D 66]
>    has the following parameter:
>      X{927} local
>  [inside INTEGRATE-2D 65]
>    has the following parameter:
>      X{926} local
>  [inside INTEGRATE-2D 64]
>    has the following parameter:
>      X{925} local
>  [inside INTEGRATE-2D 63]
>    has the following parameter:
>      X{924} local
>  [inside INTEGRATE-2D 62]
>    has the following parameter:
>      X{923} local
>  [inside INTEGRATE-2D 61]
>    has the following parameter:
>      X{922} local
>  [inside INTEGRATE-2D 60]
>    has the following parameter:
>      X{921} local
>  [inside INTEGRATE-2D 59]
>    has the following parameter:
>      Y{920} local
>  [inside INTEGRATE-2D 58]
>    has the following parameter:
>      X{919} local
>  [inside INTEGRATE-2D 57]
>    has the following parameter:
>      X{918} local
>  [inside INTEGRATE-2D 56]
>    has the following parameter:
>      X{917} local
>  [inside INTEGRATE-2D 55]
>    has the following parameter:
>      X{916} local
>  [inside INTEGRATE-2D 54]
>    has the following parameter:
>      X{915} local
>  [inside INTEGRATE-2D 53]
>    has the following parameter:
>      X{914} local
>  [inside INTEGRATE-2D 52]
>    has the following parameter:
>      X{913} local
>  [inside INTEGRATE-2D 51]
>    has the following parameter:
>      X{912} local
>  [inside INTEGRATE-2D 50]
>    has the following parameter:
>      X{911} local
>  [inside INTEGRATE-2D 49]
>    has the following parameter:
>      Y{910} local
>  [inside INTEGRATE-2D 48]
>    has the following parameter:
>      X{909} local
>  [inside INTEGRATE-2D 47]
>    has the following parameter:
>      X{908} local
>  [inside INTEGRATE-2D 46]
>    has the following parameter:
>      X{907} local
>  [inside INTEGRATE-2D 45]
>    has the following parameter:
>      X{906} local
>  [inside INTEGRATE-2D 44]
>    has the following parameter:
>      X{905} local
>  [inside INTEGRATE-2D 43]
>    has the following parameter:
>      X{904} local
>  [inside INTEGRATE-2D 42]
>    has the following parameter:
>      X{903} local
>  [inside INTEGRATE-2D 41]
>    has the following parameter:
>      X{902} local
>  [inside INTEGRATE-2D 40]
>    has the following parameter:
>      X{901} local
>  [inside INTEGRATE-2D 39]
>    has the following parameter:
>      Y{900} local
>  [inside INTEGRATE-2D 38]
>    has the following parameter:
>      X{899} local
>  [inside INTEGRATE-2D 37]
>    has the following parameter:
>      X{898} local
>  [inside INTEGRATE-2D 36]
>    has the following parameter:
>      X{897} local
>  [inside INTEGRATE-2D 35]
>    has the following parameter:
>      X{896} local
>  [inside INTEGRATE-2D 34]
>    has the following parameter:
>      X{895} local
>  [inside INTEGRATE-2D 33]
>    has the following parameter:
>      X{894} local
>  [inside INTEGRATE-2D 32]
>    has the following parameter:
>      X{893} local
>  [inside INTEGRATE-2D 31]
>    has the following parameter:
>      X{892} local
>  [inside INTEGRATE-2D 30]
>    has the following parameter:
>      X{891} local
>  [inside INTEGRATE-2D 29]
>    has the following parameter:
>      Y{890} local
>  INTEGRATE-2D[28]
>    has the following parameters:
>      L1{805} local
>      U1{806} local
>      L2{807} local
>      U2{808} local
>  [inside INTEGRATE-1DB9 27]
>    has the following parameter:
>      D{804} local
>  INTEGRATE-1DB9[26]
>    has the following parameters:
>      L{793} local
>      U{794} local
>  [inside INTEGRATE-1DB8 25]
>    has the following parameter:
>      D{792} local
>  INTEGRATE-1DB8[24]
>    has the following parameters:
>      L{781} local
>      U{782} local
>  [inside INTEGRATE-1DB7 23]
>    has the following parameter:
>      D{780} local
>  INTEGRATE-1DB7[22]
>    has the following parameters:
>      L{769} local
>      U{770} local
>  [inside INTEGRATE-1DB6 21]
>    has the following parameter:
>      D{768} local
>  INTEGRATE-1DB6[20]
>    has the following parameters:
>      L{757} local
>      U{758} local
>  [inside INTEGRATE-1DB5 19]
>    has the following parameter:
>      D{756} local
>  INTEGRATE-1DB5[18]
>    has the following parameters:
>      L{745} local
>      U{746} local
>  [inside INTEGRATE-1DB4 17]
>    has the following parameter:
>      D{744} local
>  INTEGRATE-1DB4[16]
>    has the following parameters:
>      L{733} local
>      U{734} local
>  [inside INTEGRATE-1DB3 15]
>    has the following parameter:
>      D{732} local
>  INTEGRATE-1DB3[14]
>    has the following parameters:
>      L{721} local
>      U{722} local
>  [inside INTEGRATE-1DB2 13]
>    has the following parameter:
>      D{720} local
>  INTEGRATE-1DB2[12]
>    has the following parameters:
>      L{709} local
>      U{710} local
>  [inside INTEGRATE-1DB1 11]
>    has the following parameter:
>      D{708} local
>  INTEGRATE-1DB1[10]
>    has the following parameters:
>      L{697} local
>      U{698} local
>  [inside INTEGRATE-1DA 9]
>    has the following parameter:
>      D{696} local
>  INTEGRATE-1DA[8]
>    has the following parameters:
>      L{685} local
>      U{686} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W18381 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W2679 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 33% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 19% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  4% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  2% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  2% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m6.055s
>user	0m5.886s
>sys	0m0.157s
>run integ2
>
>real	0m0.058s
>user	0m0.053s
>sys	0m0.005s
>compile gold
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17301 expressions
>     0 internal symbol types
>     0 external symbol types
>    37 primitive procedure types
>   211 non-called native procedure types
>   280 called noop native procedure types
>   156 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19517 type sets
>   620 hunoz variables
>  1586 non-hunoz variables
>   493 noop environments
>  1625 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17301 expressions
>     0 internal symbol types
>     0 external symbol types
>    37 primitive procedure types
>   211 non-called native procedure types
>   280 called noop native procedure types
>   156 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19517 type sets
>   620 hunoz variables
>  1586 non-hunoz variables
>   493 noop environments
>  1625 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4406 expressions
>     0 internal symbol types
>     0 external symbol types
>    37 primitive procedure types
>   211 non-called native procedure types
>   280 called noop native procedure types
>   156 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     0 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5303 type sets
>   291 hunoz variables
>   596 non-hunoz variables
>     0 noop environments
>   156 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY-MANTISSA-EXPONENT2[1414]
>    has the following parameters:
>      MANTISSA{1913} local
>      EXPONENT{1914} local
>      PORT{1915} local
>    has the following in-lined locals:
>      NUMBER{1892}
>      PORT{1893}
>      I{1896}
>      NUMBER{1897}
>      I{1900}
>      I{1906}
>      NUMBER{1907}
>      I{1910}
>      FLOAT-DIGIT{1916}
>      DIGIT{1917}
>      MANTISSA{1924}
>      FLOAT-DIGIT{1925}
>      DIGIT{1926}
>      MANTISSA{1928}
>  DISPLAY-STRING2[1376]
>    has the following parameters:
>      STRING{1885} local
>      PORT{1886} local
>    has the following in-lined locals:
>      N{1887}
>      I{1890}
>  [inside G 57]
>    has the following parameter:
>      FM{765} local
>  [inside G 56]
>    has the following parameters:
>      AX{758} local
>      BX{760} local
>      CX{762} local
>    has the following in-lined locals:
>      X{688}
>      X{689}
>      X{690}
>      X{691}
>      X{692}
>      TOL{725}
>      AX{726}
>      BX{727}
>      CX{728}
>      GOLD{730}
>      R{731}
>      C{732}
>      X1{733}
>      X2{734}
>      X0{738}
>      X1{739}
>      F1{740}
>      X2{741}
>      F2{742}
>      X3{743}
>      XN{744}
>      XN{745}
>  FUNC[53]
>    has the following parameter:
>      X{751} local
>    has the following in-lined locals:
>      X{747}
>      X{748}
>      X{749}
>      X{750}
>      A4{752}
>      A3{753}
>      A2{754}
>      A1{755}
>  LOOP[21]
>    has the following parameters:
>      AX{707} local
>      FA{708} local
>      BX{709} local
>      FB{710} local
>      CX{711} local
>      FC{712} local
>    has the following in-lined locals:
>      X{687}
>      R{713}
>      Q{714}
>      UX{715}
>      UL{716}
>      FU{717}
>      VX{718}
>      FU{719}
>      VX{720}
>      VX{721}
>      X{722}
>      Y{723}
>  [inside top level 0]
>    has the following in-lined locals:
>      AX{694}
>      BX{695}
>      FB{703}
>      FA{704}
>      VX{705}
>      VX{706}
>      L{756}
>      U{757}
>      N{766}
>      EPS{767}
>      SUM{768}
>      I{773}
>      I{777}
>      J{781}
>      NUMBER{1929}
>      PORT{1930}
>      MANTISSA{1934}
>      EXPONENT{1935}
>      MANTISSA{1938}
>      EXPONENT{1939}
>      OBJ{1974}
>      PORT{1975}
>      OBJ{2196}
>The following non-trivial in-line native procedures will be generated:
>  DISPLAY[1873]
>    has the following parameter:
>      OBJ{2196} local
>  DISPLAY2[1512]
>    has the following parameters:
>      OBJ{1974} local
>      PORT{1975} local
>  LOOP[1449]
>    has the following parameters:
>      MANTISSA{1938} local
>      EXPONENT{1939} local
>  LOOP[1444]
>    has the following parameters:
>      MANTISSA{1934} local
>      EXPONENT{1935} local
>  DISPLAY-INEXACT-REAL2[1435]
>    has the following parameters:
>      NUMBER{1929} local
>      PORT{1930} local
>  [inside LOOP 1432]
>    has the following parameter:
>      MANTISSA{1928} local
>  [inside LOOP 1429]
>    has the following parameter:
>      DIGIT{1926} local
>  [inside LOOP 1428]
>    has the following parameter:
>      FLOAT-DIGIT{1925} local
>  LOOP[1427]
>    has the following parameter:
>      MANTISSA{1924} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1416]
>    has the following parameter:
>      DIGIT{1917} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1415]
>    has the following parameter:
>      FLOAT-DIGIT{1916} local
>  LOOP[1406]
>    has the following parameter:
>      I{1910} local
>  LOOP[1403]
>    has the following parameters:
>      I{1906} local
>      NUMBER{1907} local
>  LOOP[1392]
>    has the following parameter:
>      I{1900} local
>  LOOP[1389]
>    has the following parameters:
>      I{1896} local
>      NUMBER{1897} local
>  DISPLAY-EXACT-INTEGER2[1385]
>    has the following parameters:
>      NUMBER{1892} local
>      PORT{1893} local
>  LOOP[1380]
>    has the following parameter:
>      I{1890} local
>  [inside DISPLAY-STRING2 1377]
>    has the following parameter:
>      N{1887} local
>  [inside top level 1372]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1846} global
>      BUFFER{1848} global
>  loop[79]
>    has the following parameter:
>      J{781} local
>  loop[73]
>    has the following parameter:
>      I{777} local
>  loop[66]
>    has the following parameter:
>      I{773} local
>  [inside TEST 61]
>    has the following parameter:
>      SUM{768} local
>  [inside TEST 60]
>    has the following parameter:
>      EPS{767} local
>  [inside TEST 59]
>    has the following parameter:
>      N{766} local
>  G[55]
>    has the following parameters:
>      L{756} local
>      U{757} local
>  [inside FUNC 54]
>    has the following parameters:
>      A4{752} local
>      A3{753} local
>      A2{754} local
>      A1{755} local
>  SQR4[52]
>    has the following parameter:
>      X{750} local
>  SQR3[51]
>    has the following parameter:
>      X{749} local
>  SQR2[50]
>    has the following parameter:
>      X{748} local
>  SQR1[49]
>    has the following parameter:
>      X{747} local
>  [inside LOOP 46]
>    has the following parameter:
>      XN{745} local
>  [inside LOOP 45]
>    has the following parameter:
>      XN{744} local
>  LOOP[44]
>    has the following parameters:
>      X0{738} local
>      X1{739} local
>      F1{740} local
>      X2{741} local
>      F2{742} local
>      X3{743} local
>  [inside GOLDEN 39]
>    has the following parameter:
>      X2{734} local
>  [inside GOLDEN 38]
>    has the following parameter:
>      X1{733} local
>  [inside GOLDEN 37]
>    has the following parameter:
>      C{732} local
>  [inside GOLDEN 36]
>    has the following parameter:
>      R{731} local
>  [inside GOLDEN 35]
>    has the following parameter:
>      GOLD{730} local
>  GOLDEN[34]
>    has the following parameters:
>      TOL{725} local
>      AX{726} local
>      BX{727} local
>      CX{728} local
>  [inside MNBRAK 33]
>    has the following parameters:
>      X{722} local
>      Y{723} local
>  [inside LOOP 31]
>    has the following parameter:
>      VX{721} local
>  [inside LOOP 30]
>    has the following parameter:
>      VX{720} local
>  [inside LOOP 29]
>    has the following parameter:
>      FU{719} local
>  [inside LOOP 28]
>    has the following parameter:
>      VX{718} local
>  [inside LOOP 27]
>    has the following parameter:
>      FU{717} local
>  [inside LOOP 25]
>    has the following parameter:
>      UL{716} local
>  [inside LOOP 24]
>    has the following parameter:
>      UX{715} local
>  [inside LOOP 23]
>    has the following parameter:
>      Q{714} local
>  [inside LOOP 22]
>    has the following parameter:
>      R{713} local
>  [inside MNBRAK 20]
>    has the following parameter:
>      VX{706} local
>  [inside MNBRAK 19]
>    has the following parameter:
>      VX{705} local
>  [inside MNBRAK 18]
>    has the following parameters:
>      FB{703} local
>      FA{704} local
>  [inside MNBRAK 15]
>    has the following parameters:
>      TINY{698} global
>      GLIMIT{699} global
>      GOLD{700} global
>  MNBRAK[14]
>    has the following parameters:
>      AX{694} local
>      BX{695} local
>  ABS6[13]
>    has the following parameter:
>      X{692} local
>  ABS5[12]
>    has the following parameter:
>      X{691} local
>  ABS4[11]
>    has the following parameter:
>      X{690} local
>  ABS3[10]
>    has the following parameter:
>      X{689} local
>  ABS2[9]
>    has the following parameter:
>      X{688} local
>  ABS1[8]
>    has the following parameter:
>      X{687} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression, gold-stalin.sc:88:2704, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17302 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W2515 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 33% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 20% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  9% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  3% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.555s
>user	0m5.436s
>sys	0m0.110s
>run gold
>
>real	0m0.382s
>user	0m0.378s
>sys	0m0.004s
>compile gold2
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17355 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   210 non-called native procedure types
>   284 called noop native procedure types
>   162 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     5 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19585 type sets
>   624 hunoz variables
>  1586 non-hunoz variables
>   497 noop environments
>  1630 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17363 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   210 non-called native procedure types
>   284 called noop native procedure types
>   162 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     5 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19593 type sets
>   624 hunoz variables
>  1590 non-hunoz variables
>   497 noop environments
>  1634 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 5
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4469 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   210 non-called native procedure types
>   284 called noop native procedure types
>   162 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     5 structure types
>     9 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5381 type sets
>   295 hunoz variables
>   601 non-hunoz variables
>     0 noop environments
>   166 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 5
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY-MANTISSA-EXPONENT2[1425]
>    has the following parameters:
>      MANTISSA{1920} local
>      EXPONENT{1921} local
>      PORT{1922} local
>    has the following in-lined locals:
>      NUMBER{1899}
>      PORT{1900}
>      I{1903}
>      NUMBER{1904}
>      I{1907}
>      I{1913}
>      NUMBER{1914}
>      I{1917}
>      FLOAT-DIGIT{1923}
>      DIGIT{1924}
>      MANTISSA{1931}
>      FLOAT-DIGIT{1932}
>      DIGIT{1933}
>      MANTISSA{1935}
>  DISPLAY-STRING2[1387]
>    has the following parameters:
>      STRING{1892} local
>      PORT{1893} local
>    has the following in-lined locals:
>      N{1894}
>      I{1897}
>  FUNC[58]
>    has the following parameter:
>      X{764} local
>    has the following in-lined locals:
>      X{760}
>      X{761}
>      X{762}
>      X{763}
>      A4{765}
>      A3{766}
>      A2{767}
>      A1{768}
>  LOOP[26]
>    has the following parameters:
>      AX{721} local
>      FA{722} local
>      BX{723} local
>      FB{724} local
>      CX{725} local
>      FC{726} local
>    has the following in-lined locals:
>      X{697}
>      R{727}
>      Q{728}
>      UX{729}
>      UL{730}
>      FU{731}
>      VX{732}
>      FU{733}
>      VX{734}
>      VX{735}
>      X{736}
>      Y{737}
>      OBJS{2217}
>      OBJS{2218}
>      OBJS{2219}
>  [inside top level 0]
>    has the following in-lined locals:
>      X{698}
>      X{699}
>      X{700}
>      X{701}
>      X{702}
>      L{703}
>      L{704}
>      L{705}
>      L{707}
>      AX{709}
>      BX{710}
>      FB{717}
>      FA{718}
>      VX{719}
>      VX{720}
>      TOL{739}
>      AX{740}
>      BX{741}
>      CX{742}
>      GOLD{743}
>      R{744}
>      C{745}
>      X1{746}
>      X2{747}
>      X0{751}
>      X1{752}
>      F1{753}
>      X2{754}
>      F2{755}
>      X3{756}
>      XN{757}
>      XN{758}
>      L{769}
>      U{770}
>      BRACKET{771}
>      BEST{772}
>      N{773}
>      EPS{774}
>      SUM{775}
>      I{780}
>      I{784}
>      J{788}
>      OBJS{855}
>      NUMBER{1936}
>      PORT{1937}
>      MANTISSA{1941}
>      EXPONENT{1942}
>      MANTISSA{1945}
>      EXPONENT{1946}
>      OBJ{1981}
>      PORT{1982}
>      OBJ{2203}
>      OBJS{2216}
>The following non-trivial in-line native procedures will be generated:
>  [clone LIST[173] 2134]
>    has the following parameter:
>      OBJS{2219} local
>  [clone LIST[173] 2133]
>    has the following parameter:
>      OBJS{2218} local
>  [clone LIST[173] 2132]
>    has the following parameter:
>      OBJS{2217} local
>  [clone LIST[173] 2131]
>    has the following parameter:
>      OBJS{2216} local
>  DISPLAY[1884]
>    has the following parameter:
>      OBJ{2203} local
>  DISPLAY2[1523]
>    has the following parameters:
>      OBJ{1981} local
>      PORT{1982} local
>  LOOP[1460]
>    has the following parameters:
>      MANTISSA{1945} local
>      EXPONENT{1946} local
>  LOOP[1455]
>    has the following parameters:
>      MANTISSA{1941} local
>      EXPONENT{1942} local
>  DISPLAY-INEXACT-REAL2[1446]
>    has the following parameters:
>      NUMBER{1936} local
>      PORT{1937} local
>  [inside LOOP 1443]
>    has the following parameter:
>      MANTISSA{1935} local
>  [inside LOOP 1440]
>    has the following parameter:
>      DIGIT{1933} local
>  [inside LOOP 1439]
>    has the following parameter:
>      FLOAT-DIGIT{1932} local
>  LOOP[1438]
>    has the following parameter:
>      MANTISSA{1931} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1427]
>    has the following parameter:
>      DIGIT{1924} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1426]
>    has the following parameter:
>      FLOAT-DIGIT{1923} local
>  LOOP[1417]
>    has the following parameter:
>      I{1917} local
>  LOOP[1414]
>    has the following parameters:
>      I{1913} local
>      NUMBER{1914} local
>  LOOP[1403]
>    has the following parameter:
>      I{1907} local
>  LOOP[1400]
>    has the following parameters:
>      I{1903} local
>      NUMBER{1904} local
>  DISPLAY-EXACT-INTEGER2[1396]
>    has the following parameters:
>      NUMBER{1899} local
>      PORT{1900} local
>  LOOP[1391]
>    has the following parameter:
>      I{1897} local
>  [inside DISPLAY-STRING2 1388]
>    has the following parameter:
>      N{1894} local
>  [inside top level 1383]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{1853} global
>      BUFFER{1855} global
>  LIST[173]
>    has the following parameter:
>      OBJS{855} local
>  loop[85]
>    has the following parameter:
>      J{788} local
>  loop[79]
>    has the following parameter:
>      I{784} local
>  loop[72]
>    has the following parameter:
>      I{780} local
>  [inside TEST 67]
>    has the following parameter:
>      SUM{775} local
>  [inside TEST 66]
>    has the following parameter:
>      EPS{774} local
>  [inside TEST 65]
>    has the following parameter:
>      N{773} local
>  [inside G 62]
>    has the following parameter:
>      BEST{772} local
>  [inside G 61]
>    has region
>    has the following parameter:
>      BRACKET{771} local
>  G[60]
>    has region
>    has the following parameters:
>      L{769} local
>      U{770} local
>  [inside FUNC 59]
>    has the following parameters:
>      A4{765} local
>      A3{766} local
>      A2{767} local
>      A1{768} local
>  SQR4[57]
>    has the following parameter:
>      X{763} local
>  SQR3[56]
>    has the following parameter:
>      X{762} local
>  SQR2[55]
>    has the following parameter:
>      X{761} local
>  SQR1[54]
>    has the following parameter:
>      X{760} local
>  [inside LOOP 51]
>    has the following parameter:
>      XN{758} local
>  [inside LOOP 50]
>    has the following parameter:
>      XN{757} local
>  LOOP[49]
>    has the following parameters:
>      X0{751} local
>      X1{752} local
>      F1{753} local
>      X2{754} local
>      F2{755} local
>      X3{756} local
>  [inside GOLDEN 44]
>    has the following parameter:
>      X2{747} local
>  [inside GOLDEN 43]
>    has the following parameter:
>      X1{746} local
>  [inside GOLDEN 42]
>    has the following parameter:
>      C{745} local
>  [inside GOLDEN 41]
>    has the following parameter:
>      R{744} local
>  [inside GOLDEN 40]
>    has the following parameter:
>      GOLD{743} local
>  GOLDEN[39]
>    has the following parameters:
>      TOL{739} local
>      AX{740} local
>      BX{741} local
>      CX{742} local
>  [inside MNBRAK 38]
>    has the following parameters:
>      X{736} local
>      Y{737} local
>  [inside LOOP 36]
>    has the following parameter:
>      VX{735} local
>  [inside LOOP 35]
>    has the following parameter:
>      VX{734} local
>  [inside LOOP 34]
>    has the following parameter:
>      FU{733} local
>  [inside LOOP 33]
>    has the following parameter:
>      VX{732} local
>  [inside LOOP 32]
>    has the following parameter:
>      FU{731} local
>  [inside LOOP 30]
>    has the following parameter:
>      UL{730} local
>  [inside LOOP 29]
>    has the following parameter:
>      UX{729} local
>  [inside LOOP 28]
>    has the following parameter:
>      Q{728} local
>  [inside LOOP 27]
>    has the following parameter:
>      R{727} local
>  [inside MNBRAK 25]
>    has the following parameter:
>      VX{720} local
>  [inside MNBRAK 24]
>    has the following parameter:
>      VX{719} local
>  [inside MNBRAK 23]
>    has the following parameters:
>      FB{717} local
>      FA{718} local
>  [inside MNBRAK 20]
>    has the following parameters:
>      TINY{712} global
>      GLIMIT{713} global
>      GOLD{714} global
>  MNBRAK[19]
>    has the following parameters:
>      AX{709} local
>      BX{710} local
>  E5[18]
>    has the following parameter:
>      L{707} local
>  E3[16]
>    has the following parameter:
>      L{705} local
>  E2[15]
>    has the following parameter:
>      L{704} local
>  E1[14]
>    has the following parameter:
>      L{703} local
>  ABS6[13]
>    has the following parameter:
>      X{702} local
>  ABS5[12]
>    has the following parameter:
>      X{701} local
>  ABS4[11]
>    has the following parameter:
>      X{700} local
>  ABS3[10]
>    has the following parameter:
>      X{699} local
>  ABS2[9]
>    has the following parameter:
>      X{698} local
>  ABS1[8]
>    has the following parameter:
>      X{697} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression, gold2-stalin.sc:95:2911, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.0)
>The following expression, gold2-stalin.sc:68:2265, allocates on [inside G 61]:
>(LIST X2 F2)
>The following expression, gold2-stalin.sc:67:2248, allocates on [inside G 61]:
>(LIST X1 F1)
>The following expression, gold2-stalin.sc:33:1109, allocates on G[60]:
>(LIST AX FA BX FB UX FU)
>The following expression, gold2-stalin.sc:31:1060, allocates on G[60]:
>(LIST BX FB UX FU CX FC)
>The following expression, gold2-stalin.sc:22:719, allocates on G[60]:
>(LIST AX FA BX FB CX FC)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17364 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W2530 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 32% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 10% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 19% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 - 11% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  3% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.830s
>user	0m5.689s
>sys	0m0.131s
>run gold2
>
>real	0m0.401s
>user	0m0.399s
>sys	0m0.001s
>compile sort
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17093 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   269 called noop native procedure types
>   136 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19275 type sets
>   624 hunoz variables
>  1543 non-hunoz variables
>   487 noop environments
>  1635 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17366 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   274 called noop native procedure types
>   160 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19588 type sets
>   631 hunoz variables
>  1582 non-hunoz variables
>   492 noop environments
>  1665 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 5
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4124 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   274 called noop native procedure types
>   160 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5012 type sets
>   291 hunoz variables
>   588 non-hunoz variables
>     0 noop environments
>   166 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 5
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  LOOP[222] reentrant
>    has the following parameters:
>      LIST1{848} local
>      LIST2{849} local
>      LISTS{850} local
>  STEP[58] reentrant
>    has the following parameter:
>      N{715} local
>    has the following in-lined locals:
>      A{691}
>      B{692}
>      R{698}
>      A{699}
>      B{700}
>      J{716}
>      A{717}
>      K{718}
>      B{719}
>      P{720}
>      Y{721}
>      X{722}
>      P{727}
>      PAIR{780}
>      PAIR{782}
>      X1{2187}
>      X2{2188}
>      X1{2195}
>      X2{2196}
>      X1{2203}
>      X2{2204}
>      R{2211}
>      A{2212}
>      B{2213}
>      X1{2216}
>      X2{2217}
>  [inside top level 0]
>    has the following in-lined locals:
>      SEQ{670}
>      LAST{679}
>      NEXT{680}
>      v{681}
>      SEQ{730}
>      L{732}
>      U{733}
>      R{734}
>      I{737}
>      N{741}
>      J{742}
>      L{744}
>      N{746}
>      L{747}
>      I{750}
>      LIST{818}
>      K{821}
>      S{823}
>      SS{840}
>      SS{843}
>      v{844}
>      v{845}
>      SS{853}
>      SS{874}
>      X1{963}
>      X2{964}
>      CHAR1{1102}
>      CHAR2{1103}
>      CHAR1{1107}
>      CHAR2{1108}
>      OBJ{1909}
>      PORT{1910}
>      N{1914}
>      I{1917}
>      C{1918}
>      v{1921}
>      OBJ{2163}
>      CHAR1{2178}
>      CHAR2{2179}
>      CHAR1{2183}
>      CHAR2{2184}
>The following non-trivial in-line native procedures will be generated:
>  [clone <[383] 2160]
>    has the following parameters:
>      X1{2216} local
>      X2{2217} local
>  [clone LOOP[40] 2155]
>    has the following parameters:
>      R{2211} local
>      A{2212} local
>      B{2213} local
>  [clone <[383] 2149]
>    has the following parameters:
>      X1{2203} local
>      X2{2204} local
>  [clone <[383] 2143]
>    has the following parameters:
>      X1{2195} local
>      X2{2196} local
>  [clone <[383] 2137]
>    has the following parameters:
>      X1{2187} local
>      X2{2188} local
>  [clone LOOP?[517] 2134]
>    has the following parameters:
>      CHAR1{2183} local
>      CHAR2{2184} local
>  [clone CHAR=?[514] 2131]
>    has the following parameters:
>      CHAR1{2178} local
>      CHAR2{2179} local
>  WRITE[1880]
>    has the following parameter:
>      OBJ{2163} local
>  [inside LOOP 1487]
>    has the following parameter:
>      v{1921} local
>  [inside LOOP 1485]
>    has the following parameter:
>      C{1918} local
>  LOOP[1484]
>    has the following parameter:
>      I{1917} local
>  [inside WRITE2 1481]
>    has the following parameter:
>      N{1914} local
>  WRITE2[1463]
>    has the following parameters:
>      OBJ{1909} local
>      PORT{1910} local
>  [inside top level 1383]
>    has the following parameter:
>      THE-CURRENT-OUTPUT-PORT{1815} global
>  LOOP?[517]
>    has the following parameters:
>      CHAR1{1107} local
>      CHAR2{1108} local
>  CHAR=?[514]
>    has the following parameters:
>      CHAR1{1102} local
>      CHAR2{1103} local
>  <[383]
>    has the following parameters:
>      X1{963} local
>      X2{964} local
>  LOOP[254]
>    has the following parameter:
>      SS{874} local
>  LOOP[226]
>    has the following parameter:
>      SS{853} local
>  [inside LOOP 215]
>    has the following parameter:
>      v{845} local
>  [inside LOOP 214]
>    has the following parameter:
>      v{844} local
>  LOOP[213]
>    has the following parameter:
>      SS{843} local
>  APPEND[209]
>    has the following parameter:
>      SS{840} local
>  LENGTH[182]
>    has the following parameter:
>      S{823} local
>  LOOP[177]
>    has the following parameter:
>      K{821} local
>  LIST-LENGTH[174]
>    has the following parameter:
>      LIST{818} local
>  CDDR[138]
>    has the following parameter:
>      PAIR{782} local
>  CADR[136]
>    has the following parameter:
>      PAIR{780} local
>  loop[99]
>    has the following parameter:
>      I{750} local
>  RUN-N-TIMES[96]
>    has the following parameters:
>      N{746} local
>      L{747} local
>  RUN-ONCE[93]
>    has the following parameter:
>      L{744} local
>  loop[87]
>    has the following parameters:
>      N{741} local
>      J{742} local
>  loop[81]
>    has the following parameter:
>      I{737} local
>  [inside MAKE-TEST-LIST 78]
>    has the following parameter:
>      R{734} local
>  MAKE-TEST-LIST[77]
>    has the following parameters:
>      L{732} local
>      U{733} local
>  OK:SORT[76]
>    has region
>    has the following parameter:
>      SEQ{730} local
>  [inside STEP 72]
>    has the following parameter:
>      P{727} local
>  [inside STEP 66]
>    has the following parameters:
>      P{720} local
>      Y{721} local
>      X{722} local
>  [inside STEP 63]
>    has the following parameter:
>      B{719} local
>  [inside STEP 62] reentrant
>    has the following parameter:
>      K{718} local
>  [inside STEP 61] reentrant
>    has the following parameter:
>      A{717} local
>  [inside STEP 60] reentrant
>    has the following parameter:
>      J{716} local
>  [inside STEP 59] reentrant
>  OK:SORT![46]
>    has the following parameter:
>      SEQ{703} global
>  LOOP[40]
>    has the following parameters:
>      R{698} local
>      A{699} local
>      B{700} local
>  OK:MERGE![31]
>    has the following parameters:
>      A{691} local
>      B{692} local
>  [inside LOOP 21]
>    has the following parameter:
>      v{681} local
>  LOOP[20]
>    has the following parameters:
>      LAST{679} local
>      NEXT{680} local
>  SORTED?[6]
>    has the following parameter:
>      SEQ{670} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, sort-stalin.sc:258:10138, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE /) N ((PRIMITIVE-PROCEDURE EXACT->INEXACT) J)) R)
>The following expression, sort-stalin.sc:245:9747, allocates on OK:SORT[76]:
>(APPEND SEQ (QUOTE ()))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17357 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W53 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  3% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  1% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  5% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  2% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.418s
>user	0m5.241s
>sys	0m0.170s
>run sort
>
>real	0m1.091s
>user	0m1.083s
>sys	0m0.008s
>compile sort2
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17097 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   269 called noop native procedure types
>   141 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19283 type sets
>   624 hunoz variables
>  1547 non-hunoz variables
>   487 noop environments
>  1640 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17267 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   273 called noop native procedure types
>   157 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19482 type sets
>   628 hunoz variables
>  1576 non-hunoz variables
>   491 noop environments
>  1660 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 4
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4041 expressions
>     0 internal symbol types
>     0 external symbol types
>    39 primitive procedure types
>   209 non-called native procedure types
>   273 called noop native procedure types
>   157 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>     3 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  4922 type sets
>   288 hunoz variables
>   582 non-hunoz variables
>     0 noop environments
>   161 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 4
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  LOOP[227] reentrant
>    has the following parameters:
>      LIST1{852} local
>      LIST2{853} local
>      LISTS{854} local
>  STEP[61] reentrant
>    has the following parameter:
>      N{718} local
>    has the following in-lined locals:
>      A{690}
>      B{691}
>      X{696}
>      X{698}
>      J{719}
>      A{720}
>      K{721}
>      B{722}
>      P{723}
>      Y{724}
>      X{725}
>      Z{728}
>      P{731}
>      PAIR{784}
>      PAIR{786}
>      X1{2199}
>      X2{2200}
>      X1{2207}
>      X2{2208}
>  LOOP[41]
>    has the following parameters:
>      R{699} local
>      A{700} local
>      B{701} local
>    has the following in-lined locals:
>      X{703}
>      X{705}
>      X1{2191}
>      X2{2192}
>  [inside top level 0]
>    has the following in-lined locals:
>      SEQ{670}
>      LAST{679}
>      NEXT{680}
>      SEQ{734}
>      L{736}
>      U{737}
>      R{738}
>      I{741}
>      N{745}
>      J{746}
>      L{748}
>      N{750}
>      L{751}
>      I{754}
>      LIST{822}
>      K{825}
>      S{827}
>      SS{844}
>      SS{847}
>      v{848}
>      v{849}
>      SS{857}
>      SS{878}
>      X1{967}
>      X2{968}
>      CHAR1{1106}
>      CHAR2{1107}
>      CHAR1{1111}
>      CHAR2{1112}
>      OBJ{1913}
>      PORT{1914}
>      N{1918}
>      I{1921}
>      C{1922}
>      v{1925}
>      OBJ{2167}
>      CHAR1{2182}
>      CHAR2{2183}
>      CHAR1{2187}
>      CHAR2{2188}
>The following non-trivial in-line native procedures will be generated:
>  [clone <[388] 2154]
>    has the following parameters:
>      X1{2207} local
>      X2{2208} local
>  [clone <[388] 2148]
>    has the following parameters:
>      X1{2199} local
>      X2{2200} local
>  [clone <[388] 2142]
>    has the following parameters:
>      X1{2191} local
>      X2{2192} local
>  [clone LOOP?[522] 2139]
>    has the following parameters:
>      CHAR1{2187} local
>      CHAR2{2188} local
>  [clone CHAR=?[519] 2136]
>    has the following parameters:
>      CHAR1{2182} local
>      CHAR2{2183} local
>  WRITE[1885]
>    has the following parameter:
>      OBJ{2167} local
>  [inside LOOP 1492]
>    has the following parameter:
>      v{1925} local
>  [inside LOOP 1490]
>    has the following parameter:
>      C{1922} local
>  LOOP[1489]
>    has the following parameter:
>      I{1921} local
>  [inside WRITE2 1486]
>    has the following parameter:
>      N{1918} local
>  WRITE2[1468]
>    has the following parameters:
>      OBJ{1913} local
>      PORT{1914} local
>  [inside top level 1388]
>    has the following parameter:
>      THE-CURRENT-OUTPUT-PORT{1819} global
>  LOOP?[522]
>    has the following parameters:
>      CHAR1{1111} local
>      CHAR2{1112} local
>  CHAR=?[519]
>    has the following parameters:
>      CHAR1{1106} local
>      CHAR2{1107} local
>  <[388]
>    has the following parameters:
>      X1{967} local
>      X2{968} local
>  LOOP[259]
>    has the following parameter:
>      SS{878} local
>  LOOP[231]
>    has the following parameter:
>      SS{857} local
>  [inside LOOP 220]
>    has the following parameter:
>      v{849} local
>  [inside LOOP 219]
>    has the following parameter:
>      v{848} local
>  LOOP[218]
>    has the following parameter:
>      SS{847} local
>  APPEND[214]
>    has the following parameter:
>      SS{844} local
>  LENGTH[187]
>    has the following parameter:
>      S{827} local
>  LOOP[182]
>    has the following parameter:
>      K{825} local
>  LIST-LENGTH[179]
>    has the following parameter:
>      LIST{822} local
>  CDDR[143]
>    has the following parameter:
>      PAIR{786} local
>  CADR[141]
>    has the following parameter:
>      PAIR{784} local
>  loop[104]
>    has the following parameter:
>      I{754} local
>  RUN-N-TIMES[101]
>    has the following parameters:
>      N{750} local
>      L{751} local
>  RUN-ONCE[98]
>    has the following parameter:
>      L{748} local
>  loop[92]
>    has the following parameters:
>      N{745} local
>      J{746} local
>  loop[86]
>    has the following parameter:
>      I{741} local
>  [inside MAKE-TEST-LIST 83]
>    has the following parameter:
>      R{738} local
>  MAKE-TEST-LIST[82]
>    has the following parameters:
>      L{736} local
>      U{737} local
>  OK:SORT[81]
>    has region
>    has the following parameter:
>      SEQ{734} local
>  [inside STEP 77]
>    has the following parameter:
>      P{731} local
>  [inside STEP 71]
>    has the following parameter:
>      Z{728} local
>  [inside STEP 69]
>    has the following parameters:
>      P{723} local
>      Y{724} local
>      X{725} local
>  [inside STEP 66]
>    has the following parameter:
>      B{722} local
>  [inside STEP 65] reentrant
>    has the following parameter:
>      K{721} local
>  [inside STEP 64] reentrant
>    has the following parameter:
>      A{720} local
>  [inside STEP 63] reentrant
>    has the following parameter:
>      J{719} local
>  [inside STEP 62] reentrant
>  OK:SORT![49]
>    has the following parameter:
>      SEQ{706} global
>  [inside LOOP 47]
>    has the following parameter:
>      X{705} local
>  [inside LOOP 44]
>    has the following parameter:
>      X{703} local
>  [inside OK:MERGE! 40]
>    has the following parameter:
>      X{698} local
>  [inside OK:MERGE! 37]
>    has the following parameter:
>      X{696} local
>  OK:MERGE![30]
>    has the following parameters:
>      A{690} local
>      B{691} local
>  LOOP[20]
>    has the following parameters:
>      LAST{679} local
>      NEXT{680} local
>  SORTED?[6]
>    has the following parameter:
>      SEQ{670} local
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, sort2-stalin.sc:264:10522, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE /) N ((PRIMITIVE-PROCEDURE EXACT->INEXACT) J)) R)
>The following expression, sort2-stalin.sc:251:10131, allocates on OK:SORT[81]:
>(APPEND SEQ (QUOTE ()))
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W17297 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W5 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 34% - Fast tree shake
>     0 -  3% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 11% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 21% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  1% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  5% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  4% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  2% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.390s
>user	0m5.187s
>sys	0m0.196s
>run sort2
>
>real	0m1.083s
>user	0m1.076s
>sys	0m0.006s
>compile dfa
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18528 expressions
>    15 internal symbol types
>     1 external symbol type
>    61 primitive procedure types
>   185 non-called native procedure types
>   450 called noop native procedure types
>   838 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   127 structure types
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 21299 type sets
>   735 hunoz variables
>  1767 non-hunoz variables
>   578 noop environments
>  1804 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 27300 expressions
>    15 internal symbol types
>     1 external symbol type
>    61 primitive procedure types
>   186 non-called native procedure types
>   596 called noop native procedure types
>  1507 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   151 structure types
>    15 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 31285 type sets
>   889 hunoz variables
>  3099 non-hunoz variables
>   724 noop environments
>  2929 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 17059 expressions
>    15 internal symbol types
>     1 external symbol type
>    61 primitive procedure types
>   185 non-called native procedure types
>   596 called noop native procedure types
>  1507 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   151 structure types
>    15 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20111 type sets
>   690 hunoz variables
>  2365 non-hunoz variables
>     0 noop environments
>  1828 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY[2356]
>    has the following parameter:
>      OBJ{2706} local
>  DISPLAY2[1995] reentrant
>    has the following parameters:
>      OBJ{2484} local
>      PORT{2485} local
>    has the following in-lined locals:
>      NUMBER{2439}
>      PORT{2440}
>      MANTISSA{2444}
>      EXPONENT{2445}
>      MANTISSA{2448}
>      EXPONENT{2449}
>      OBJ{2489}
>      I{2501}
>  DISPLAY-MANTISSA-EXPONENT2[1897]
>    has the following parameters:
>      MANTISSA{2423} local
>      EXPONENT{2424} local
>      PORT{2425} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2426}
>      DIGIT{2427}
>      MANTISSA{2434}
>      FLOAT-DIGIT{2435}
>      DIGIT{2436}
>      MANTISSA{2438}
>  DISPLAY-EXACT-INTEGER2[1868]
>    has the following parameters:
>      NUMBER{2402} local
>      PORT{2403} local
>    has the following in-lined locals:
>      I{2406}
>      NUMBER{2407}
>      I{2410}
>      I{2416}
>      NUMBER{2417}
>      I{2420}
>  DISPLAY-STRING2[1859]
>    has the following parameters:
>      STRING{2395} local
>      PORT{2396} local
>    has the following in-lined locals:
>      N{2397}
>      I{2400}
>  LOOKUP-CHARACTER-NAME[1815]
>    has the following parameter:
>      S{2340} local
>    has the following in-lined locals:
>      CHAR1{1688}
>      CHAR2{1689}
>      CHAR1{1693}
>      CHAR2{1694}
>      NAMES{2343}
>      S{2347}
>      NAME{2348}
>      v{2349}
>      CHAR{2730}
>      CHAR{2731}
>  READ-SYMBOL[1809]
>    has region
>    has the following parameter:
>      S{2337} local
>    has the following in-lined locals:
>      C{2338}
>      CHAR{2732}
>      &REST{2847}
>      &REST{2899}
>      LIST{3933}
>      LIST{3936}
>      R{3937}
>      LIST{3938}
>      LIST{3941}
>      R{3942}
>      C{3964}
>      v{3965}
>      v{3966}
>      v{3967}
>      v{3968}
>      CHAR{4033}
>      CHAR1{4034}
>      CHAR2{4035}
>      CHAR1{4039}
>      CHAR2{4040}
>      CHAR1{4043}
>      CHAR2{4044}
>      CHAR1{4048}
>      CHAR2{4049}
>      CHAR1{4052}
>      CHAR2{4053}
>      CHAR1{4057}
>      CHAR2{4058}
>  CHAR-INITIAL?[1789]
>    has the following parameter:
>      C{2317} local
>    has the following in-lined locals:
>      v{2318}
>      v{2319}
>      v{2320}
>      v{2321}
>      v{2322}
>      v{2323}
>      v{2324}
>      v{2325}
>      v{2326}
>      v{2327}
>      v{2328}
>      v{2329}
>      v{2330}
>      v{2331}
>      CHAR{2760}
>      CHAR1{3693}
>      CHAR2{3694}
>      CHAR1{3698}
>      CHAR2{3699}
>      CHAR1{3702}
>      CHAR2{3703}
>      CHAR1{3707}
>      CHAR2{3708}
>      CHAR1{3711}
>      CHAR2{3712}
>      CHAR1{3716}
>      CHAR2{3717}
>      CHAR1{3720}
>      CHAR2{3721}
>      CHAR1{3725}
>      CHAR2{3726}
>      CHAR1{3729}
>      CHAR2{3730}
>      CHAR1{3734}
>      CHAR2{3735}
>      CHAR1{3738}
>      CHAR2{3739}
>      CHAR1{3743}
>      CHAR2{3744}
>      CHAR1{3747}
>      CHAR2{3748}
>      CHAR1{3752}
>      CHAR2{3753}
>      CHAR1{3756}
>      CHAR2{3757}
>      CHAR1{3761}
>      CHAR2{3762}
>      CHAR1{3765}
>      CHAR2{3766}
>      CHAR1{3770}
>      CHAR2{3771}
>      CHAR1{3774}
>      CHAR2{3775}
>      CHAR1{3779}
>      CHAR2{3780}
>      CHAR1{3783}
>      CHAR2{3784}
>      CHAR1{3788}
>      CHAR2{3789}
>      CHAR1{3792}
>      CHAR2{3793}
>      CHAR1{3797}
>      CHAR2{3798}
>      CHAR1{3801}
>      CHAR2{3802}
>      CHAR1{3806}
>      CHAR2{3807}
>      CHAR1{3810}
>      CHAR2{3811}
>      CHAR1{3815}
>      CHAR2{3816}
>  READ-NUMBER[1755]
>    has region
>    has the following parameter:
>      N{2295} local
>    has the following in-lined locals:
>      CHAR1{1643}
>      CHAR2{1644}
>      CHAR1{1648}
>      CHAR2{1649}
>      CHAR{1736}
>      C1{2296}
>      v{2299}
>      v{2300}
>      v{2301}
>      v{2302}
>      v{2303}
>      v{2304}
>      v{2305}
>      v{2306}
>      v{2307}
>      C2{2309}
>      C3{2311}
>      C3{2314}
>      &REST{2701}
>      CHAR{2734}
>      CHAR{2735}
>      CHAR{2756}
>      &REST{2846}
>      &REST{2848}
>      &REST{2849}
>      &REST{2850}
>      &REST{2851}
>      &REST{2898}
>      CHAR1{3090}
>      CHAR2{3091}
>      CHAR1{3095}
>      CHAR2{3096}
>      CHAR1{3558}
>      CHAR2{3559}
>      CHAR1{3563}
>      CHAR2{3564}
>      CHAR1{3567}
>      CHAR2{3568}
>      CHAR1{3572}
>      CHAR2{3573}
>      CHAR1{3576}
>      CHAR2{3577}
>      CHAR1{3581}
>      CHAR2{3582}
>      CHAR1{3585}
>      CHAR2{3586}
>      CHAR1{3590}
>      CHAR2{3591}
>      CHAR1{3594}
>      CHAR2{3595}
>      CHAR1{3599}
>      CHAR2{3600}
>      CHAR1{3603}
>      CHAR2{3604}
>      CHAR1{3608}
>      CHAR2{3609}
>      CHAR1{3612}
>      CHAR2{3613}
>      CHAR1{3617}
>      CHAR2{3618}
>      CHAR1{3621}
>      CHAR2{3622}
>      CHAR1{3626}
>      CHAR2{3627}
>      CHAR1{3630}
>      CHAR2{3631}
>      CHAR1{3635}
>      CHAR2{3636}
>      CHAR1{3639}
>      CHAR2{3640}
>      CHAR1{3644}
>      CHAR2{3645}
>      CHAR1{3648}
>      CHAR2{3649}
>      CHAR1{3653}
>      CHAR2{3654}
>  READ-INEXACT-NUMBER[1723]
>    has region
>    has the following parameters:
>      N{2273} local
>      M{2274} local
>    has the following in-lined locals:
>      C1{2275}
>      v{2277}
>      v{2278}
>      v{2279}
>      v{2280}
>      v{2281}
>      v{2282}
>      v{2283}
>      v{2284}
>      v{2285}
>      C2{2287}
>      C3{2289}
>      C3{2292}
>      CHAR{2745}
>      CHAR{2747}
>      CHAR{2748}
>      CHAR{2749}
>      &REST{2842}
>      &REST{2879}
>      &REST{2880}
>      &REST{2882}
>      &REST{2883}
>      &REST{2884}
>      CHAR1{3261}
>      CHAR2{3262}
>      CHAR1{3266}
>      CHAR2{3267}
>      CHAR1{3270}
>      CHAR2{3271}
>      CHAR1{3275}
>      CHAR2{3276}
>      CHAR1{3279}
>      CHAR2{3280}
>      CHAR1{3284}
>      CHAR2{3285}
>      CHAR1{3288}
>      CHAR2{3289}
>      CHAR1{3293}
>      CHAR2{3294}
>      CHAR1{3297}
>      CHAR2{3298}
>      CHAR1{3302}
>      CHAR2{3303}
>      CHAR1{3306}
>      CHAR2{3307}
>      CHAR1{3311}
>      CHAR2{3312}
>      CHAR1{3315}
>      CHAR2{3316}
>      CHAR1{3320}
>      CHAR2{3321}
>      CHAR1{3324}
>      CHAR2{3325}
>      CHAR1{3329}
>      CHAR2{3330}
>      CHAR1{3333}
>      CHAR2{3334}
>      CHAR1{3338}
>      CHAR2{3339}
>      CHAR1{3342}
>      CHAR2{3343}
>      CHAR1{3347}
>      CHAR2{3348}
>      CHAR1{3351}
>      CHAR2{3352}
>      CHAR1{3356}
>      CHAR2{3357}
>      CHAR1{3360}
>      CHAR2{3361}
>      CHAR1{3365}
>      CHAR2{3366}
>  READ-EXACT-HEXADECIMAL-INTEGER[1713]
>    has region
>    has the following parameter:
>      N{2268} local
>    has the following in-lined locals:
>      C{2269}
>      CHAR{2753}
>      &REST{2843}
>      &REST{2887}
>      &REST{2888}
>      &REST{2890}
>      CHAR1{2937}
>      CHAR2{2938}
>      CHAR1{2942}
>      CHAR2{2943}
>      CHAR1{2946}
>      CHAR2{2947}
>      CHAR1{2951}
>      CHAR2{2952}
>      CHAR1{3018}
>      CHAR2{3019}
>      CHAR1{3023}
>      CHAR2{3024}
>      CHAR1{3027}
>      CHAR2{3028}
>      CHAR1{3032}
>      CHAR2{3033}
>  READ-EXACT-DECIMAL-INTEGER[1707]
>    has region
>    has the following parameter:
>      N{2265} local
>    has the following in-lined locals:
>      C{2266}
>      CHAR{2746}
>      &REST{2841}
>      &REST{2881}
>  READ-EXACT-OCTAL-INTEGER[1701]
>    has region
>    has the following parameter:
>      N{2262} local
>    has the following in-lined locals:
>      CHAR1{1679}
>      CHAR2{1680}
>      CHAR1{1684}
>      CHAR2{1685}
>      C{2263}
>      &REST{2840}
>      &REST{2872}
>      CHAR1{2991}
>      CHAR2{2992}
>      CHAR1{2996}
>      CHAR2{2997}
>  READ-EXACT-BINARY-INTEGER[1693]
>    has region
>    has the following parameter:
>      N{2258} local
>    has the following in-lined locals:
>      C{2259}
>      &REST{2839}
>      &REST{2867}
>      &REST{2868}
>      CHAR1{3153}
>      CHAR2{3154}
>      CHAR1{3158}
>      CHAR2{3159}
>      CHAR1{3162}
>      CHAR2{3163}
>      CHAR1{3167}
>      CHAR2{3168}
>  READ[1459] reentrant
>    has region
>    has the following parameter:
>      STATE{2139} local
>    has the following in-lined locals:
>      CHAR1{1652}
>      CHAR2{1653}
>      CHAR1{1657}
>      CHAR2{1658}
>      CHAR1{1661}
>      CHAR2{1662}
>      CHAR1{1666}
>      CHAR2{1667}
>      CHAR1{1670}
>      CHAR2{1671}
>      CHAR1{1675}
>      CHAR2{1676}
>      CHAR{1734}
>      CHAR{1738}
>      CHAR{1746}
>      LIST{1999}
>      R{2000}
>      K{2004}
>      C1{2162}
>      C{2166}
>      C2{2168}
>      S{2173}
>      E{2174}
>      E1{2176}
>      S{2180}
>      C{2181}
>      C2{2182}
>      v{2184}
>      v{2185}
>      v{2186}
>      C3{2187}
>      C4{2189}
>      C4{2191}
>      v{2193}
>      C3{2194}
>      C4{2196}
>      v{2199}
>      C4{2200}
>      v{2203}
>      v{2204}
>      C3{2205}
>      C4{2207}
>      C5{2209}
>      C4{2212}
>      C5{2214}
>      C4{2217}
>      v{2220}
>      C3{2221}
>      C4{2223}
>      C4{2225}
>      S{2229}
>      E{2230}
>      C3{2231}
>      S{2235}
>      C{2236}
>      C1{2238}
>      C2{2240}
>      C3{2243}
>      C2{2247}
>      C3{2250}
>      C2{2254}
>      C{2332}
>      v{2333}
>      v{2334}
>      v{2335}
>      v{2336}
>      S{2350}
>      C{2351}
>      &REST{2702}
>      CHAR{2719}
>      CHAR{2720}
>      CHAR{2721}
>      CHAR{2722}
>      CHAR{2723}
>      CHAR{2724}
>      CHAR{2725}
>      CHAR{2726}
>      CHAR{2727}
>      CHAR{2728}
>      CHAR{2729}
>      CHAR{2733}
>      CHAR{2736}
>      CHAR{2737}
>      CHAR{2738}
>      CHAR{2739}
>      CHAR{2740}
>      CHAR{2741}
>      CHAR{2742}
>      CHAR{2743}
>      CHAR{2744}
>      CHAR{2750}
>      CHAR{2751}
>      CHAR{2752}
>      CHAR{2754}
>      CHAR{2755}
>      CHAR{2757}
>      CHAR{2758}
>      CHAR{2759}
>      OBJS{2761}
>      OBJS{2762}
>      OBJS{2763}
>      OBJS{2764}
>      OBJS{2765}
>      OBJS{2766}
>      OBJS{2767}
>      OBJS{2768}
>      OBJS{2769}
>      OBJS{2770}
>      OBJS{2771}
>      &REST{2835}
>      &REST{2836}
>      &REST{2837}
>      &REST{2838}
>      &REST{2844}
>      &REST{2845}
>      &REST{2852}
>      &REST{2853}
>      &REST{2854}
>      &REST{2855}
>      &REST{2856}
>      &REST{2857}
>      &REST{2858}
>      &REST{2859}
>      &REST{2860}
>      &REST{2861}
>      &REST{2862}
>      &REST{2863}
>      &REST{2864}
>      &REST{2865}
>      &REST{2866}
>      &REST{2869}
>      &REST{2870}
>      &REST{2871}
>      &REST{2873}
>      &REST{2874}
>      &REST{2875}
>      &REST{2876}
>      &REST{2877}
>      &REST{2878}
>      &REST{2885}
>      &REST{2886}
>      &REST{2889}
>      &REST{2891}
>      &REST{2892}
>      &REST{2893}
>      &REST{2894}
>      &REST{2895}
>      &REST{2896}
>      &REST{2897}
>      &REST{2900}
>      CHAR1{2910}
>      CHAR2{2911}
>      CHAR1{2915}
>      CHAR2{2916}
>      CHAR1{2919}
>      CHAR2{2920}
>      CHAR1{2924}
>      CHAR2{2925}
>      CHAR1{2928}
>      CHAR2{2929}
>      CHAR1{2933}
>      CHAR2{2934}
>      CHAR1{2955}
>      CHAR2{2956}
>      CHAR1{2960}
>      CHAR2{2961}
>      CHAR1{2964}
>      CHAR2{2965}
>      CHAR1{2969}
>      CHAR2{2970}
>      CHAR1{2973}
>      CHAR2{2974}
>      CHAR1{2978}
>      CHAR2{2979}
>      CHAR1{2982}
>      CHAR2{2983}
>      CHAR1{2987}
>      CHAR2{2988}
>      CHAR1{3000}
>      CHAR2{3001}
>      CHAR1{3005}
>      CHAR2{3006}
>      CHAR1{3009}
>      CHAR2{3010}
>      CHAR1{3014}
>      CHAR2{3015}
>      CHAR1{3036}
>      CHAR2{3037}
>      CHAR1{3041}
>      CHAR2{3042}
>      CHAR1{3045}
>      CHAR2{3046}
>      CHAR1{3050}
>      CHAR2{3051}
>      CHAR1{3054}
>      CHAR2{3055}
>      CHAR1{3059}
>      CHAR2{3060}
>      CHAR1{3063}
>      CHAR2{3064}
>      CHAR1{3068}
>      CHAR2{3069}
>      CHAR1{3072}
>      CHAR2{3073}
>      CHAR1{3077}
>      CHAR2{3078}
>      CHAR1{3081}
>      CHAR2{3082}
>      CHAR1{3086}
>      CHAR2{3087}
>      CHAR1{3099}
>      CHAR2{3100}
>      CHAR1{3104}
>      CHAR2{3105}
>      CHAR1{3108}
>      CHAR2{3109}
>      CHAR1{3113}
>      CHAR2{3114}
>      CHAR1{3117}
>      CHAR2{3118}
>      CHAR1{3122}
>      CHAR2{3123}
>      CHAR1{3126}
>      CHAR2{3127}
>      CHAR1{3131}
>      CHAR2{3132}
>      CHAR1{3135}
>      CHAR2{3136}
>      CHAR1{3140}
>      CHAR2{3141}
>      CHAR1{3144}
>      CHAR2{3145}
>      CHAR1{3149}
>      CHAR2{3150}
>      CHAR1{3171}
>      CHAR2{3172}
>      CHAR1{3176}
>      CHAR2{3177}
>      CHAR1{3180}
>      CHAR2{3181}
>      CHAR1{3185}
>      CHAR2{3186}
>      CHAR1{3189}
>      CHAR2{3190}
>      CHAR1{3194}
>      CHAR2{3195}
>      CHAR1{3198}
>      CHAR2{3199}
>      CHAR1{3203}
>      CHAR2{3204}
>      CHAR1{3207}
>      CHAR2{3208}
>      CHAR1{3212}
>      CHAR2{3213}
>      CHAR1{3216}
>      CHAR2{3217}
>      CHAR1{3221}
>      CHAR2{3222}
>      CHAR1{3225}
>      CHAR2{3226}
>      CHAR1{3230}
>      CHAR2{3231}
>      CHAR1{3234}
>      CHAR2{3235}
>      CHAR1{3239}
>      CHAR2{3240}
>      CHAR1{3243}
>      CHAR2{3244}
>      CHAR1{3248}
>      CHAR2{3249}
>      CHAR1{3252}
>      CHAR2{3253}
>      CHAR1{3257}
>      CHAR2{3258}
>      CHAR1{3369}
>      CHAR2{3370}
>      CHAR1{3374}
>      CHAR2{3375}
>      CHAR1{3378}
>      CHAR2{3379}
>      CHAR1{3383}
>      CHAR2{3384}
>      CHAR1{3387}
>      CHAR2{3388}
>      CHAR1{3392}
>      CHAR2{3393}
>      CHAR1{3396}
>      CHAR2{3397}
>      CHAR1{3401}
>      CHAR2{3402}
>      CHAR1{3405}
>      CHAR2{3406}
>      CHAR1{3410}
>      CHAR2{3411}
>      CHAR1{3414}
>      CHAR2{3415}
>      CHAR1{3419}
>      CHAR2{3420}
>      CHAR1{3423}
>      CHAR2{3424}
>      CHAR1{3428}
>      CHAR2{3429}
>      CHAR1{3432}
>      CHAR2{3433}
>      CHAR1{3437}
>      CHAR2{3438}
>      CHAR1{3441}
>      CHAR2{3442}
>      CHAR1{3446}
>      CHAR2{3447}
>      CHAR1{3450}
>      CHAR2{3451}
>      CHAR1{3455}
>      CHAR2{3456}
>      CHAR1{3459}
>      CHAR2{3460}
>      CHAR1{3464}
>      CHAR2{3465}
>      CHAR1{3468}
>      CHAR2{3469}
>      CHAR1{3473}
>      CHAR2{3474}
>      CHAR1{3477}
>      CHAR2{3478}
>      CHAR1{3482}
>      CHAR2{3483}
>      CHAR1{3486}
>      CHAR2{3487}
>      CHAR1{3491}
>      CHAR2{3492}
>      CHAR1{3495}
>      CHAR2{3496}
>      CHAR1{3500}
>      CHAR2{3501}
>      CHAR1{3504}
>      CHAR2{3505}
>      CHAR1{3509}
>      CHAR2{3510}
>      CHAR1{3513}
>      CHAR2{3514}
>      CHAR1{3518}
>      CHAR2{3519}
>      CHAR1{3522}
>      CHAR2{3523}
>      CHAR1{3527}
>      CHAR2{3528}
>      CHAR1{3531}
>      CHAR2{3532}
>      CHAR1{3536}
>      CHAR2{3537}
>      CHAR1{3540}
>      CHAR2{3541}
>      CHAR1{3545}
>      CHAR2{3546}
>      CHAR1{3549}
>      CHAR2{3550}
>      CHAR1{3554}
>      CHAR2{3555}
>      CHAR1{3666}
>      CHAR2{3667}
>      CHAR1{3671}
>      CHAR2{3672}
>      CHAR1{3675}
>      CHAR2{3676}
>      CHAR1{3680}
>      CHAR2{3681}
>      CHAR1{3684}
>      CHAR2{3685}
>      CHAR1{3689}
>      CHAR2{3690}
>      CHAR1{3819}
>      CHAR2{3820}
>      CHAR1{3824}
>      CHAR2{3825}
>      CHAR1{3828}
>      CHAR2{3829}
>      CHAR1{3833}
>      CHAR2{3834}
>      CHAR1{3837}
>      CHAR2{3838}
>      CHAR1{3842}
>      CHAR2{3843}
>      CHAR1{3846}
>      CHAR2{3847}
>      CHAR1{3851}
>      CHAR2{3852}
>      CHAR1{3855}
>      CHAR2{3856}
>      CHAR1{3860}
>      CHAR2{3861}
>      CHAR1{3864}
>      CHAR2{3865}
>      CHAR1{3869}
>      CHAR2{3870}
>      CHAR1{3873}
>      CHAR2{3874}
>      CHAR1{3878}
>      CHAR2{3879}
>      CHAR1{3882}
>      CHAR2{3883}
>      CHAR1{3887}
>      CHAR2{3888}
>      CHAR1{3891}
>      CHAR2{3892}
>      CHAR1{3896}
>      CHAR2{3897}
>      CHAR1{3900}
>      CHAR2{3901}
>      CHAR1{3905}
>      CHAR2{3906}
>      CHAR1{3909}
>      CHAR2{3910}
>      CHAR1{3914}
>      CHAR2{3915}
>      LIST{3918}
>      LIST{3921}
>      R{3922}
>      LIST{3923}
>      LIST{3926}
>      R{3927}
>      LIST{3928}
>      LIST{3931}
>      R{3932}
>      C{3944}
>      v{3945}
>      v{3946}
>      v{3947}
>      v{3948}
>      C{3949}
>      v{3950}
>      v{3951}
>      v{3952}
>      v{3953}
>      C{3954}
>      v{3955}
>      v{3956}
>      v{3957}
>      v{3958}
>      C{3959}
>      v{3960}
>      v{3961}
>      v{3962}
>      v{3963}
>      CHAR{4061}
>      CHAR1{4062}
>      CHAR2{4063}
>      CHAR1{4067}
>      CHAR2{4068}
>      CHAR1{4071}
>      CHAR2{4072}
>      CHAR1{4076}
>      CHAR2{4077}
>      CHAR1{4080}
>      CHAR2{4081}
>      CHAR1{4085}
>      CHAR2{4086}
>      CHAR{4089}
>      CHAR1{4090}
>      CHAR2{4091}
>      CHAR1{4095}
>      CHAR2{4096}
>      CHAR1{4099}
>      CHAR2{4100}
>      CHAR1{4104}
>      CHAR2{4105}
>      CHAR1{4108}
>      CHAR2{4109}
>      CHAR1{4113}
>      CHAR2{4114}
>      CHAR{4117}
>      CHAR1{4118}
>      CHAR2{4119}
>      CHAR1{4123}
>      CHAR2{4124}
>      CHAR1{4127}
>      CHAR2{4128}
>      CHAR1{4132}
>      CHAR2{4133}
>      CHAR1{4136}
>      CHAR2{4137}
>      CHAR1{4141}
>      CHAR2{4142}
>      CHAR{4145}
>      CHAR1{4146}
>      CHAR2{4147}
>      CHAR1{4151}
>      CHAR2{4152}
>      CHAR1{4155}
>      CHAR2{4156}
>      CHAR1{4160}
>      CHAR2{4161}
>      CHAR1{4164}
>      CHAR2{4165}
>      CHAR1{4169}
>      CHAR2{4170}
>  STRING-COPY[1239]
>    has the following parameter:
>      STRING{1953} local
>    has the following in-lined locals:
>      N{1954}
>      R{1955}
>      K{1959}
>  LIST->STRING[1229]
>    has the following parameter:
>      LIST{1945} local
>    has the following in-lined locals:
>      R{1946}
>      K{1950}
>  STRING=?[1078]
>    has the following parameters:
>      STRING1{1765} local
>      STRING2{1766} local
>    has the following in-lined locals:
>      STRING1{1770}
>      STRING2{1771}
>      N{1773}
>      K{1776}
>      v{1777}
>      CHAR1{3657}
>      CHAR2{3658}
>      CHAR1{3662}
>      CHAR2{3663}
>  [inside top level 819]
>    has the following parameter:
>      STRING{1485} local
>    has the following in-lined locals:
>      FOUND{1486}
>      PACKAGE{1490}
>  ASSQ[778]
>    has the following parameters:
>      OBJ{1455} local
>      ALIST{1456} local
>  LOOP[691] reentrant
>    has the following parameters:
>      LIST1{1389} local
>      LIST2{1390} local
>      LISTS{1391} local
>  LIST-LENGTH[643]
>    has the following parameter:
>      LIST{1359} local
>    has the following in-lined local:
>      K{1362}
>  EQV?[584]
>    has the following parameters:
>      OBJ1{1295} local
>      OBJ2{1296} local
>    has the following in-lined local:
>      v{1297}
>  BACKUP[408]
>    has the following parameters:
>      GUY{1220} local
>      BACKUP-TABLE{1221} local
>    has the following in-lined locals:
>      FROM{867}
>      LEN{868}
>      TO{869}
>      I{873}
>      TABLE{1021}
>      KEY{1022}
>      VALUE{1023}
>      N-ALISTS{1024}
>      ALISTS{1025}
>      HASH{1026}
>      PROBE{1027}
>      X{1091}
>      BACKUP{1222}
>      X{2812}
>      N1{2907}
>      N2{2908}
>      v{2909}
>  LABEL-DEFINED[360]
>    has the following parameter:
>      LAB{1159} local
>  STATE-LABEL[274]
>    has the following parameter:
>      NODE{1069} local
>  GLOID[273]
>    has the following parameter:
>      NODE{1068} local
>  NONDEF?[272]
>    has the following parameter:
>      X{1067} local
>  NONDEF[271]
>  WALK-VECTOR-WITH-OFFSET[260]
>    has the following parameters:
>      OFFSET{1055} local
>      FUN{1056} local
>      VEC{1057} local
>    has the following in-lined locals:
>      X{842}
>      VECLEN{1058}
>      I{1061}
>      X{1151}
>      X{1158}
>      X{1196}
>      Q{2800}
>      OBJ{2801}
>      Q{2802}
>      OBJ{2803}
>      Q{2804}
>      OBJ{2805}
>  TABLE-EXPAND[197]
>    has the following parameter:
>      TABLE{1004} local
>    has the following in-lined locals:
>      TABLE{988}
>      NEW{989}
>      TABLE{990}
>      NEW{991}
>      OLD-N-ALISTS{1005}
>      OLD-ALISTS{1006}
>      NEW-N-ALISTS{1007}
>      NEW-ALISTS{1008}
>      I{1013}
>      A{1017}
>      A{1019}
>      NEW-HASH{1020}
>      N1{1580}
>      N2{1581}
>      v{1582}
>  TABLE-LOOKUP[191]
>    has the following parameters:
>      TABLE{998} local
>      KEY{999} local
>    has the following in-lined locals:
>      N-ALISTS{1000}
>      ALISTS{1001}
>      HASH{1002}
>      PROBE{1003}
>      N1{2901}
>      N2{2902}
>      v{2903}
>  TABLE-TEST[185]
>    has the following parameters:
>      TABLE{992} local
>      KEY{993} local
>    has the following in-lined locals:
>      N-ALISTS{994}
>      ALISTS{995}
>      HASH{996}
>      PROBE{997}
>      N1{2904}
>      N2{2905}
>      v{2906}
>  TABLE-SET-COUNT[182]
>    has the following parameters:
>      TABLE{986} local
>      NEW{987} local
>  TABLE-GET-ALISTS[181]
>    has the following parameter:
>      TABLE{985} local
>  TABLE-GET-N-ALISTS[180]
>    has the following parameter:
>      TABLE{984} local
>  TABLE-GET-COUNT[179]
>    has the following parameter:
>      TABLE{983} local
>  MAKE-TABLE[178]
>  [inside MAKE-COUNTER 175]
>    has the following in-lined locals:
>      OLD-COUNT{981}
>      X{2815}
>      Y{2816}
>  QUEUE-POP[163]
>    has the following parameter:
>      Q{972} local
>    has the following in-lined locals:
>      HEAD{974}
>      Q{976}
>      LIST{1433}
>      LIST{1436}
>      R{1437}
>      S{1438}
>  QUEUE-EMPTY?[161]
>    has the following parameter:
>      Q{969} local
>  MAKE-QUEUE[160]
>  STACK-PUSH[156]
>    has the following parameters:
>      S{964} local
>      OBJ{965} local
>    has the following in-lined locals:
>      X{2819}
>      Y{2820}
>  READ-INT[138]
>    has region
>    has the following parameter:
>      FILE{948} local
>    has the following in-lined local:
>      VAL{949}
>  PORMAT-FUNCTION[25]
>    has the following parameters:
>      CONTROL-STRING{853} local
>      VALUES{854} local
>    has the following in-lined locals:
>      I{857}
>      VALUES{858}
>      C{859}
>      C2{860}
>  UNBOX[7]
>    has the following parameter:
>      X{837} local
>  [inside top level 0]
>    has the following in-lined locals:
>      GLOBAL-NODE-COUNTER{677}
>      ALPHABET-SIZE{688}
>      X{836}
>      X{838}
>      Y{839}
>      L{929}
>      L{933}
>      N{935}
>      I{939}
>      S{963}
>      S{966}
>      L{967}
>      Q{970}
>      OBJ{971}
>      TABLE{1030}
>      TABLE{1032}
>      ALISTS{1033}
>      N-ALISTS{1034}
>      I{1037}
>      P{1041}
>      P{1043}
>      TABLE{1044}
>      KEY{1045}
>      PROBE{1046}
>      TO{1063}
>      FROM{1064}
>      LEN{1065}
>      I{1066}
>      NODE{1070}
>      NODE{1071}
>      I{1072}
>      NODE{1073}
>      VAL{1074}
>      NODE{1075}
>      VAL{1076}
>      NODE{1077}
>      I{1078}
>      VAL{1079}
>      NODE{1081}
>      FATHER{1082}
>      NODE{1083}
>      OLD-COUNTER-VAL{1084}
>      I{1090}
>      TO{1092}
>      FROM{1093}
>      CURNODE{1094}
>      STRING{1095}
>      LABEL{1096}
>      CURSYM{1097}
>      NAME{1103}
>      THE-FILE{1104}
>      N-STRINGS{1105}
>      ROOT{1107}
>      LABEL{1110}
>      STRING-LEN{1111}
>      RB2{1112}
>      NODE{1116}
>      FATHER{1117}
>      I{1120}
>      N-MATCHES{1121}
>      MATCHING-I{1122}
>      START-NODE{1136}
>      SEEN{1140}
>      CURNODE{1148}
>      CURNODE{1155}
>      TR-NODE{1160}
>      GRAPH-NODE{1161}
>      BACKUP-TABLE{1162}
>      TR-NODE{1165}
>      GRAPH-NODE{1166}
>      SEARCH-STACK{1167}
>      BACKUP-TABLE{1168}
>      SPLICES{1169}
>      I{1170}
>      TREE-CHILD{1171}
>      GRAPH-CHILD{1172}
>      CURNODE{1177}
>      POTENTIAL-MATCH{1178}
>      BACKUP-TABLE{1179}
>      SPLICES{1180}
>      SEARCH-STACK{1181}
>      P{1185}
>      T{1186}
>      G{1187}
>      RESULT{1188}
>      CURNODE{1190}
>      UNIQUE-TABLE{1192}
>      UNIQUE-NODES{1193}
>      TODO{1197}
>      UNIQUE-TABLE{1198}
>      UNIQUE-NODES{1199}
>      CURNODE{1200}
>      CURDAD{1201}
>      INCHAR{1202}
>      POTENTIAL-MATCHES{1206}
>      SPLICES{1207}
>      BACKUP-TABLE{1208}
>      POTENTIAL-MATCH{1209}
>      X{1211}
>      ROOT{1214}
>      UNIQUE-NODES{1215}
>      UNIQUE-TABLE{1216}
>      TODO{1217}
>      BACKUP-TABLE{1223}
>      GUY-DOT-BACKUP{1225}
>      BACKUP{1226}
>      GUY{1227}
>      RB{1228}
>      NEW{1229}
>      RB{1230}
>      FILE-NAME{1292}
>      OBJS{1358}
>      SS{1381}
>      SS{1384}
>      v{1385}
>      v{1386}
>      SS{1394}
>      SS{1415}
>      NODE{2772}
>      I{2773}
>      VAL{2774}
>      NODE{2775}
>      I{2776}
>      VAL{2777}
>      NODE{2778}
>      I{2779}
>      VAL{2780}
>      NODE{2781}
>      I{2782}
>      NODE{2784}
>      VAL{2785}
>      NODE{2786}
>      VAL{2787}
>      NODE{2788}
>      VAL{2789}
>      NODE{2790}
>      I{2791}
>      NODE{2792}
>      I{2793}
>      NODE{2794}
>      I{2795}
>      NODE{2796}
>      I{2797}
>      NODE{2798}
>      I{2799}
>      Q{2806}
>      OBJ{2807}
>      Q{2808}
>      OBJ{2809}
>      Q{2810}
>      OBJ{2811}
>      X{2813}
>      X{2814}
>      X{2817}
>      Y{2818}
>      X{2821}
>      Y{2822}
>      X{2823}
>      Y{2824}
>      X{2825}
>      Y{2826}
>      X{2827}
>      Y{2828}
>      X{2833}
>      X{2834}
>      S{3943}
>      N{3969}
>      I{3973}
>      N{3975}
>      I{3979}
>      N{3981}
>      I{3985}
>      N{3987}
>      I{3991}
>      NODE{3994}
>      OLD-COUNTER-VAL{3995}
>      I{4001}
>      TABLE{4002}
>      KEY{4003}
>      N-ALISTS{4005}
>      ALISTS{4006}
>      HASH{4007}
>      PROBE{4008}
>      TABLE{4011}
>      KEY{4012}
>      VALUE{4013}
>      N-ALISTS{4014}
>      ALISTS{4015}
>      HASH{4016}
>      PROBE{4017}
>      TABLE{4020}
>      KEY{4021}
>      N-ALISTS{4023}
>      ALISTS{4024}
>      HASH{4025}
>      PROBE{4026}
>      NODE{4030}
>      NODE{4032}
>      N{4173}
>      I{4177}
>      NODE{4179}
>      I{4180}
>      NODE{4182}
>      NODE{4184}
>      VAL{4185}
>      X{4186}
>      Y{4187}
>      LIST{4188}
>      LIST{4191}
>      R{4192}
>      N1{4193}
>      N2{4194}
>      v{4195}
>      X{4196}
>      N1{4197}
>      N2{4198}
>      v{4199}
>      X{4200}
>      N1{4201}
>      N2{4202}
>      v{4203}
>      X{4204}
>The following non-trivial in-line native procedures will be generated:
>  [clone ADD-ONE[10] 3873]
>    has the following parameter:
>      X{4204} local
>  [clone [inside MODULO 918] 3872]
>    has the following parameter:
>      v{4203} local
>  [clone MODULO[917] 3871]
>    has the following parameters:
>      N1{4201} local
>      N2{4202} local
>  [clone ADD-ONE[10] 3870]
>    has the following parameter:
>      X{4200} local
>  [clone [inside MODULO 918] 3869]
>    has the following parameter:
>      v{4199} local
>  [clone MODULO[917] 3868]
>    has the following parameters:
>      N1{4197} local
>      N2{4198} local
>  [clone ADD-ONE[10] 3867]
>    has the following parameter:
>      X{4196} local
>  [clone [inside MODULO 918] 3866]
>    has the following parameter:
>      v{4195} local
>  [clone MODULO[917] 3865]
>    has the following parameters:
>      N1{4193} local
>      N2{4194} local
>  [clone LOOP[753] 3863]
>    has the following parameters:
>      LIST{4191} local
>      R{4192} local
>  [clone LIST-REVERSE[750] 3860]
>    has the following parameter:
>      LIST{4188} local
>  [clone SET-BOX![8] 3859]
>    has the following parameters:
>      X{4186} local
>      Y{4187} local
>  [clone SET-STATE-LABEL[277] 3858]
>    has the following parameters:
>      NODE{4184} local
>      VAL{4185} local
>  [clone SET-FATHER[278] 3857]
>    has the following parameter:
>      NODE{4182} local
>  [clone SET-CHILD[279] 3856]
>    has the following parameters:
>      NODE{4179} local
>      I{4180} local
>  [clone LOOP[125] 3851]
>    has the following parameter:
>      I{4177} local
>  [clone DO-TIMES-UP[122] 3848]
>    has the following parameter:
>      N{4173} local
>  [clone LOOP?[989] 3845]
>    has the following parameters:
>      CHAR1{4169} local
>      CHAR2{4170} local
>  [clone CHAR=?[986] 3842]
>    has the following parameters:
>      CHAR1{4164} local
>      CHAR2{4165} local
>  [clone LOOP?[989] 3839]
>    has the following parameters:
>      CHAR1{4160} local
>      CHAR2{4161} local
>  [clone CHAR=?[986] 3836]
>    has the following parameters:
>      CHAR1{4155} local
>      CHAR2{4156} local
>  [clone LOOP?[989] 3833]
>    has the following parameters:
>      CHAR1{4151} local
>      CHAR2{4152} local
>  [clone CHAR=?[986] 3830]
>    has the following parameters:
>      CHAR1{4146} local
>      CHAR2{4147} local
>  [clone [inside top level 1049] 3829]
>    has the following parameter:
>      CHAR{4145} local
>  [clone LOOP?[989] 3826]
>    has the following parameters:
>      CHAR1{4141} local
>      CHAR2{4142} local
>  [clone CHAR=?[986] 3823]
>    has the following parameters:
>      CHAR1{4136} local
>      CHAR2{4137} local
>  [clone LOOP?[989] 3820]
>    has the following parameters:
>      CHAR1{4132} local
>      CHAR2{4133} local
>  [clone CHAR=?[986] 3817]
>    has the following parameters:
>      CHAR1{4127} local
>      CHAR2{4128} local
>  [clone LOOP?[989] 3814]
>    has the following parameters:
>      CHAR1{4123} local
>      CHAR2{4124} local
>  [clone CHAR=?[986] 3811]
>    has the following parameters:
>      CHAR1{4118} local
>      CHAR2{4119} local
>  [clone [inside top level 1049] 3810]
>    has the following parameter:
>      CHAR{4117} local
>  [clone LOOP?[989] 3807]
>    has the following parameters:
>      CHAR1{4113} local
>      CHAR2{4114} local
>  [clone CHAR=?[986] 3804]
>    has the following parameters:
>      CHAR1{4108} local
>      CHAR2{4109} local
>  [clone LOOP?[989] 3801]
>    has the following parameters:
>      CHAR1{4104} local
>      CHAR2{4105} local
>  [clone CHAR=?[986] 3798]
>    has the following parameters:
>      CHAR1{4099} local
>      CHAR2{4100} local
>  [clone LOOP?[989] 3795]
>    has the following parameters:
>      CHAR1{4095} local
>      CHAR2{4096} local
>  [clone CHAR=?[986] 3792]
>    has the following parameters:
>      CHAR1{4090} local
>      CHAR2{4091} local
>  [clone [inside top level 1049] 3791]
>    has the following parameter:
>      CHAR{4089} local
>  [clone LOOP?[989] 3788]
>    has the following parameters:
>      CHAR1{4085} local
>      CHAR2{4086} local
>  [clone CHAR=?[986] 3785]
>    has the following parameters:
>      CHAR1{4080} local
>      CHAR2{4081} local
>  [clone LOOP?[989] 3782]
>    has the following parameters:
>      CHAR1{4076} local
>      CHAR2{4077} local
>  [clone CHAR=?[986] 3779]
>    has the following parameters:
>      CHAR1{4071} local
>      CHAR2{4072} local
>  [clone LOOP?[989] 3776]
>    has the following parameters:
>      CHAR1{4067} local
>      CHAR2{4068} local
>  [clone CHAR=?[986] 3773]
>    has the following parameters:
>      CHAR1{4062} local
>      CHAR2{4063} local
>  [clone [inside top level 1049] 3772]
>    has the following parameter:
>      CHAR{4061} local
>  [clone LOOP?[989] 3769]
>    has the following parameters:
>      CHAR1{4057} local
>      CHAR2{4058} local
>  [clone CHAR=?[986] 3766]
>    has the following parameters:
>      CHAR1{4052} local
>      CHAR2{4053} local
>  [clone LOOP?[989] 3763]
>    has the following parameters:
>      CHAR1{4048} local
>      CHAR2{4049} local
>  [clone CHAR=?[986] 3760]
>    has the following parameters:
>      CHAR1{4043} local
>      CHAR2{4044} local
>  [clone LOOP?[989] 3757]
>    has the following parameters:
>      CHAR1{4039} local
>      CHAR2{4040} local
>  [clone CHAR=?[986] 3754]
>    has the following parameters:
>      CHAR1{4034} local
>      CHAR2{4035} local
>  [clone [inside top level 1049] 3753]
>    has the following parameter:
>      CHAR{4033} local
>  [clone WALK-CHILDREN[280] 3752]
>    has the following parameter:
>      NODE{4032} local
>  [clone WALK-CHILDREN[280] 3751]
>    has the following parameter:
>      NODE{4030} local
>  [clone [inside TABLE-SET! 224] 3746]
>    has the following parameter:
>      PROBE{4026} local
>  [clone [inside TABLE-SET! 223] 3745]
>    has the following parameter:
>      HASH{4025} local
>  [clone [inside TABLE-SET! 222] 3744]
>    has the following parameter:
>      ALISTS{4024} local
>  [clone [inside TABLE-SET! 221] 3743]
>    has the following parameter:
>      N-ALISTS{4023} local
>  [clone TABLE-SET![220] 3742]
>    has the following parameters:
>      TABLE{4020} local
>      KEY{4021} local
>  [clone [inside TABLE-SET! 224] 3737]
>    has the following parameter:
>      PROBE{4017} local
>  [clone [inside TABLE-SET! 223] 3736]
>    has the following parameter:
>      HASH{4016} local
>  [clone [inside TABLE-SET! 222] 3735]
>    has the following parameter:
>      ALISTS{4015} local
>  [clone [inside TABLE-SET! 221] 3734]
>    has the following parameter:
>      N-ALISTS{4014} local
>  [clone TABLE-SET![220] 3733]
>    has the following parameters:
>      TABLE{4011} local
>      KEY{4012} local
>      VALUE{4013} local
>  [clone [inside TABLE-SET! 224] 3728]
>    has the following parameter:
>      PROBE{4008} local
>  [clone [inside TABLE-SET! 223] 3727]
>    has the following parameter:
>      HASH{4007} local
>  [clone [inside TABLE-SET! 222] 3726]
>    has the following parameter:
>      ALISTS{4006} local
>  [clone [inside TABLE-SET! 221] 3725]
>    has the following parameter:
>      N-ALISTS{4005} local
>  [clone TABLE-SET![220] 3724]
>    has the following parameters:
>      TABLE{4002} local
>      KEY{4003} local
>  [clone [inside MAKE-NODE 284] 3723]
>    has the following parameter:
>      I{4001} local
>  [clone [inside MAKE-NODE 282] 3721]
>    has the following parameters:
>      NODE{3994} local
>      OLD-COUNTER-VAL{3995} local
>  [clone LOOP[125] 3715]
>    has the following parameter:
>      I{3991} local
>  [clone DO-TIMES-UP[122] 3712]
>    has the following parameter:
>      N{3987} local
>  [clone LOOP[125] 3707]
>    has the following parameter:
>      I{3985} local
>  [clone DO-TIMES-UP[122] 3704]
>    has the following parameter:
>      N{3981} local
>  [clone LOOP[125] 3699]
>    has the following parameter:
>      I{3979} local
>  [clone DO-TIMES-UP[122] 3696]
>    has the following parameter:
>      N{3975} local
>  [clone LOOP[125] 3691]
>    has the following parameter:
>      I{3973} local
>  [clone DO-TIMES-UP[122] 3688]
>    has the following parameter:
>      N{3969} local
>  [clone [inside CHAR-SUBSEQUENT? 1808] 3687]
>    has the following parameter:
>      v{3968} local
>  [clone [inside CHAR-SUBSEQUENT? 1807] 3686]
>    has the following parameter:
>      v{3967} local
>  [clone [inside CHAR-SUBSEQUENT? 1806] 3685]
>    has the following parameter:
>      v{3966} local
>  [clone [inside CHAR-SUBSEQUENT? 1805] 3684]
>    has the following parameter:
>      v{3965} local
>  [clone CHAR-SUBSEQUENT?[1804] 3683]
>    has the following parameter:
>      C{3964} local
>  [clone [inside CHAR-SUBSEQUENT? 1808] 3682]
>    has the following parameter:
>      v{3963} local
>  [clone [inside CHAR-SUBSEQUENT? 1807] 3681]
>    has the following parameter:
>      v{3962} local
>  [clone [inside CHAR-SUBSEQUENT? 1806] 3680]
>    has the following parameter:
>      v{3961} local
>  [clone [inside CHAR-SUBSEQUENT? 1805] 3679]
>    has the following parameter:
>      v{3960} local
>  [clone CHAR-SUBSEQUENT?[1804] 3678]
>    has the following parameter:
>      C{3959} local
>  [clone [inside CHAR-SUBSEQUENT? 1808] 3677]
>    has the following parameter:
>      v{3958} local
>  [clone [inside CHAR-SUBSEQUENT? 1807] 3676]
>    has the following parameter:
>      v{3957} local
>  [clone [inside CHAR-SUBSEQUENT? 1806] 3675]
>    has the following parameter:
>      v{3956} local
>  [clone [inside CHAR-SUBSEQUENT? 1805] 3674]
>    has the following parameter:
>      v{3955} local
>  [clone CHAR-SUBSEQUENT?[1804] 3673]
>    has the following parameter:
>      C{3954} local
>  [clone [inside CHAR-SUBSEQUENT? 1808] 3672]
>    has the following parameter:
>      v{3953} local
>  [clone [inside CHAR-SUBSEQUENT? 1807] 3671]
>    has the following parameter:
>      v{3952} local
>  [clone [inside CHAR-SUBSEQUENT? 1806] 3670]
>    has the following parameter:
>      v{3951} local
>  [clone [inside CHAR-SUBSEQUENT? 1805] 3669]
>    has the following parameter:
>      v{3950} local
>  [clone CHAR-SUBSEQUENT?[1804] 3668]
>    has the following parameter:
>      C{3949} local
>  [clone [inside CHAR-SUBSEQUENT? 1808] 3667]
>    has the following parameter:
>      v{3948} local
>  [clone [inside CHAR-SUBSEQUENT? 1807] 3666]
>    has the following parameter:
>      v{3947} local
>  [clone [inside CHAR-SUBSEQUENT? 1806] 3665]
>    has the following parameter:
>      v{3946} local
>  [clone [inside CHAR-SUBSEQUENT? 1805] 3664]
>    has the following parameter:
>      v{3945} local
>  [clone CHAR-SUBSEQUENT?[1804] 3663]
>    has the following parameter:
>      C{3944} local
>  [clone REVERSE[755] 3657]
>    has the following parameter:
>      S{3943} local
>  [clone LOOP[753] 3655]
>    has the following parameters:
>      LIST{3941} local
>      R{3942} local
>  [clone LIST-REVERSE[750] 3652]
>    has the following parameter:
>      LIST{3938} local
>  [clone LOOP[753] 3650]
>    has the following parameters:
>      LIST{3936} local
>      R{3937} local
>  [clone LIST-REVERSE[750] 3647]
>    has the following parameter:
>      LIST{3933} local
>  [clone LOOP[753] 3645]
>    has the following parameters:
>      LIST{3931} local
>      R{3932} local
>  [clone LIST-REVERSE[750] 3642]
>    has the following parameter:
>      LIST{3928} local
>  [clone LOOP[753] 3640]
>    has the following parameters:
>      LIST{3926} local
>      R{3927} local
>  [clone LIST-REVERSE[750] 3637]
>    has the following parameter:
>      LIST{3923} local
>  [clone LOOP[753] 3635]
>    has the following parameters:
>      LIST{3921} local
>      R{3922} local
>  [clone LIST-REVERSE[750] 3632]
>    has the following parameter:
>      LIST{3918} local
>  [clone LOOP?[989] 3629]
>    has the following parameters:
>      CHAR1{3914} local
>      CHAR2{3915} local
>  [clone CHAR=?[986] 3626]
>    has the following parameters:
>      CHAR1{3909} local
>      CHAR2{3910} local
>  [clone LOOP?[989] 3623]
>    has the following parameters:
>      CHAR1{3905} local
>      CHAR2{3906} local
>  [clone CHAR=?[986] 3620]
>    has the following parameters:
>      CHAR1{3900} local
>      CHAR2{3901} local
>  [clone LOOP?[989] 3617]
>    has the following parameters:
>      CHAR1{3896} local
>      CHAR2{3897} local
>  [clone CHAR=?[986] 3614]
>    has the following parameters:
>      CHAR1{3891} local
>      CHAR2{3892} local
>  [clone LOOP?[989] 3611]
>    has the following parameters:
>      CHAR1{3887} local
>      CHAR2{3888} local
>  [clone CHAR=?[986] 3608]
>    has the following parameters:
>      CHAR1{3882} local
>      CHAR2{3883} local
>  [clone LOOP?[989] 3605]
>    has the following parameters:
>      CHAR1{3878} local
>      CHAR2{3879} local
>  [clone CHAR=?[986] 3602]
>    has the following parameters:
>      CHAR1{3873} local
>      CHAR2{3874} local
>  [clone LOOP?[989] 3599]
>    has the following parameters:
>      CHAR1{3869} local
>      CHAR2{3870} local
>  [clone CHAR=?[986] 3596]
>    has the following parameters:
>      CHAR1{3864} local
>      CHAR2{3865} local
>  [clone LOOP?[989] 3593]
>    has the following parameters:
>      CHAR1{3860} local
>      CHAR2{3861} local
>  [clone CHAR=?[986] 3590]
>    has the following parameters:
>      CHAR1{3855} local
>      CHAR2{3856} local
>  [clone LOOP?[989] 3587]
>    has the following parameters:
>      CHAR1{3851} local
>      CHAR2{3852} local
>  [clone CHAR=?[986] 3584]
>    has the following parameters:
>      CHAR1{3846} local
>      CHAR2{3847} local
>  [clone LOOP?[989] 3581]
>    has the following parameters:
>      CHAR1{3842} local
>      CHAR2{3843} local
>  [clone CHAR=?[986] 3578]
>    has the following parameters:
>      CHAR1{3837} local
>      CHAR2{3838} local
>  [clone LOOP?[989] 3575]
>    has the following parameters:
>      CHAR1{3833} local
>      CHAR2{3834} local
>  [clone CHAR=?[986] 3572]
>    has the following parameters:
>      CHAR1{3828} local
>      CHAR2{3829} local
>  [clone LOOP?[989] 3569]
>    has the following parameters:
>      CHAR1{3824} local
>      CHAR2{3825} local
>  [clone CHAR=?[986] 3566]
>    has the following parameters:
>      CHAR1{3819} local
>      CHAR2{3820} local
>  [clone LOOP?[989] 3563]
>    has the following parameters:
>      CHAR1{3815} local
>      CHAR2{3816} local
>  [clone CHAR=?[986] 3560]
>    has the following parameters:
>      CHAR1{3810} local
>      CHAR2{3811} local
>  [clone LOOP?[989] 3557]
>    has the following parameters:
>      CHAR1{3806} local
>      CHAR2{3807} local
>  [clone CHAR=?[986] 3554]
>    has the following parameters:
>      CHAR1{3801} local
>      CHAR2{3802} local
>  [clone LOOP?[989] 3551]
>    has the following parameters:
>      CHAR1{3797} local
>      CHAR2{3798} local
>  [clone CHAR=?[986] 3548]
>    has the following parameters:
>      CHAR1{3792} local
>      CHAR2{3793} local
>  [clone LOOP?[989] 3545]
>    has the following parameters:
>      CHAR1{3788} local
>      CHAR2{3789} local
>  [clone CHAR=?[986] 3542]
>    has the following parameters:
>      CHAR1{3783} local
>      CHAR2{3784} local
>  [clone LOOP?[989] 3539]
>    has the following parameters:
>      CHAR1{3779} local
>      CHAR2{3780} local
>  [clone CHAR=?[986] 3536]
>    has the following parameters:
>      CHAR1{3774} local
>      CHAR2{3775} local
>  [clone LOOP?[989] 3533]
>    has the following parameters:
>      CHAR1{3770} local
>      CHAR2{3771} local
>  [clone CHAR=?[986] 3530]
>    has the following parameters:
>      CHAR1{3765} local
>      CHAR2{3766} local
>  [clone LOOP?[989] 3527]
>    has the following parameters:
>      CHAR1{3761} local
>      CHAR2{3762} local
>  [clone CHAR=?[986] 3524]
>    has the following parameters:
>      CHAR1{3756} local
>      CHAR2{3757} local
>  [clone LOOP?[989] 3521]
>    has the following parameters:
>      CHAR1{3752} local
>      CHAR2{3753} local
>  [clone CHAR=?[986] 3518]
>    has the following parameters:
>      CHAR1{3747} local
>      CHAR2{3748} local
>  [clone LOOP?[989] 3515]
>    has the following parameters:
>      CHAR1{3743} local
>      CHAR2{3744} local
>  [clone CHAR=?[986] 3512]
>    has the following parameters:
>      CHAR1{3738} local
>      CHAR2{3739} local
>  [clone LOOP?[989] 3509]
>    has the following parameters:
>      CHAR1{3734} local
>      CHAR2{3735} local
>  [clone CHAR=?[986] 3506]
>    has the following parameters:
>      CHAR1{3729} local
>      CHAR2{3730} local
>  [clone LOOP?[989] 3503]
>    has the following parameters:
>      CHAR1{3725} local
>      CHAR2{3726} local
>  [clone CHAR=?[986] 3500]
>    has the following parameters:
>      CHAR1{3720} local
>      CHAR2{3721} local
>  [clone LOOP?[989] 3497]
>    has the following parameters:
>      CHAR1{3716} local
>      CHAR2{3717} local
>  [clone CHAR=?[986] 3494]
>    has the following parameters:
>      CHAR1{3711} local
>      CHAR2{3712} local
>  [clone LOOP?[989] 3491]
>    has the following parameters:
>      CHAR1{3707} local
>      CHAR2{3708} local
>  [clone CHAR=?[986] 3488]
>    has the following parameters:
>      CHAR1{3702} local
>      CHAR2{3703} local
>  [clone LOOP?[989] 3485]
>    has the following parameters:
>      CHAR1{3698} local
>      CHAR2{3699} local
>  [clone CHAR=?[986] 3482]
>    has the following parameters:
>      CHAR1{3693} local
>      CHAR2{3694} local
>  [clone LOOP?[989] 3479]
>    has the following parameters:
>      CHAR1{3689} local
>      CHAR2{3690} local
>  [clone CHAR=?[986] 3476]
>    has the following parameters:
>      CHAR1{3684} local
>      CHAR2{3685} local
>  [clone LOOP?[989] 3473]
>    has the following parameters:
>      CHAR1{3680} local
>      CHAR2{3681} local
>  [clone CHAR=?[986] 3470]
>    has the following parameters:
>      CHAR1{3675} local
>      CHAR2{3676} local
>  [clone LOOP?[989] 3467]
>    has the following parameters:
>      CHAR1{3671} local
>      CHAR2{3672} local
>  [clone CHAR=?[986] 3464]
>    has the following parameters:
>      CHAR1{3666} local
>      CHAR2{3667} local
>  [clone LOOP?[989] 3461]
>    has the following parameters:
>      CHAR1{3662} local
>      CHAR2{3663} local
>  [clone CHAR=?[986] 3458]
>    has the following parameters:
>      CHAR1{3657} local
>      CHAR2{3658} local
>  [clone LOOP?[989] 3455]
>    has the following parameters:
>      CHAR1{3653} local
>      CHAR2{3654} local
>  [clone CHAR=?[986] 3452]
>    has the following parameters:
>      CHAR1{3648} local
>      CHAR2{3649} local
>  [clone LOOP?[989] 3449]
>    has the following parameters:
>      CHAR1{3644} local
>      CHAR2{3645} local
>  [clone CHAR=?[986] 3446]
>    has the following parameters:
>      CHAR1{3639} local
>      CHAR2{3640} local
>  [clone LOOP?[989] 3443]
>    has the following parameters:
>      CHAR1{3635} local
>      CHAR2{3636} local
>  [clone CHAR=?[986] 3440]
>    has the following parameters:
>      CHAR1{3630} local
>      CHAR2{3631} local
>  [clone LOOP?[989] 3437]
>    has the following parameters:
>      CHAR1{3626} local
>      CHAR2{3627} local
>  [clone CHAR=?[986] 3434]
>    has the following parameters:
>      CHAR1{3621} local
>      CHAR2{3622} local
>  [clone LOOP?[989] 3431]
>    has the following parameters:
>      CHAR1{3617} local
>      CHAR2{3618} local
>  [clone CHAR=?[986] 3428]
>    has the following parameters:
>      CHAR1{3612} local
>      CHAR2{3613} local
>  [clone LOOP?[989] 3425]
>    has the following parameters:
>      CHAR1{3608} local
>      CHAR2{3609} local
>  [clone CHAR=?[986] 3422]
>    has the following parameters:
>      CHAR1{3603} local
>      CHAR2{3604} local
>  [clone LOOP?[989] 3419]
>    has the following parameters:
>      CHAR1{3599} local
>      CHAR2{3600} local
>  [clone CHAR=?[986] 3416]
>    has the following parameters:
>      CHAR1{3594} local
>      CHAR2{3595} local
>  [clone LOOP?[989] 3413]
>    has the following parameters:
>      CHAR1{3590} local
>      CHAR2{3591} local
>  [clone CHAR=?[986] 3410]
>    has the following parameters:
>      CHAR1{3585} local
>      CHAR2{3586} local
>  [clone LOOP?[989] 3407]
>    has the following parameters:
>      CHAR1{3581} local
>      CHAR2{3582} local
>  [clone CHAR=?[986] 3404]
>    has the following parameters:
>      CHAR1{3576} local
>      CHAR2{3577} local
>  [clone LOOP?[989] 3401]
>    has the following parameters:
>      CHAR1{3572} local
>      CHAR2{3573} local
>  [clone CHAR=?[986] 3398]
>    has the following parameters:
>      CHAR1{3567} local
>      CHAR2{3568} local
>  [clone LOOP?[989] 3395]
>    has the following parameters:
>      CHAR1{3563} local
>      CHAR2{3564} local
>  [clone CHAR=?[986] 3392]
>    has the following parameters:
>      CHAR1{3558} local
>      CHAR2{3559} local
>  [clone LOOP?[989] 3389]
>    has the following parameters:
>      CHAR1{3554} local
>      CHAR2{3555} local
>  [clone CHAR=?[986] 3386]
>    has the following parameters:
>      CHAR1{3549} local
>      CHAR2{3550} local
>  [clone LOOP?[989] 3383]
>    has the following parameters:
>      CHAR1{3545} local
>      CHAR2{3546} local
>  [clone CHAR=?[986] 3380]
>    has the following parameters:
>      CHAR1{3540} local
>      CHAR2{3541} local
>  [clone LOOP?[989] 3377]
>    has the following parameters:
>      CHAR1{3536} local
>      CHAR2{3537} local
>  [clone CHAR=?[986] 3374]
>    has the following parameters:
>      CHAR1{3531} local
>      CHAR2{3532} local
>  [clone LOOP?[989] 3371]
>    has the following parameters:
>      CHAR1{3527} local
>      CHAR2{3528} local
>  [clone CHAR=?[986] 3368]
>    has the following parameters:
>      CHAR1{3522} local
>      CHAR2{3523} local
>  [clone LOOP?[989] 3365]
>    has the following parameters:
>      CHAR1{3518} local
>      CHAR2{3519} local
>  [clone CHAR=?[986] 3362]
>    has the following parameters:
>      CHAR1{3513} local
>      CHAR2{3514} local
>  [clone LOOP?[989] 3359]
>    has the following parameters:
>      CHAR1{3509} local
>      CHAR2{3510} local
>  [clone CHAR=?[986] 3356]
>    has the following parameters:
>      CHAR1{3504} local
>      CHAR2{3505} local
>  [clone LOOP?[989] 3353]
>    has the following parameters:
>      CHAR1{3500} local
>      CHAR2{3501} local
>  [clone CHAR=?[986] 3350]
>    has the following parameters:
>      CHAR1{3495} local
>      CHAR2{3496} local
>  [clone LOOP?[989] 3347]
>    has the following parameters:
>      CHAR1{3491} local
>      CHAR2{3492} local
>  [clone CHAR=?[986] 3344]
>    has the following parameters:
>      CHAR1{3486} local
>      CHAR2{3487} local
>  [clone LOOP?[989] 3341]
>    has the following parameters:
>      CHAR1{3482} local
>      CHAR2{3483} local
>  [clone CHAR=?[986] 3338]
>    has the following parameters:
>      CHAR1{3477} local
>      CHAR2{3478} local
>  [clone LOOP?[989] 3335]
>    has the following parameters:
>      CHAR1{3473} local
>      CHAR2{3474} local
>  [clone CHAR=?[986] 3332]
>    has the following parameters:
>      CHAR1{3468} local
>      CHAR2{3469} local
>  [clone LOOP?[989] 3329]
>    has the following parameters:
>      CHAR1{3464} local
>      CHAR2{3465} local
>  [clone CHAR=?[986] 3326]
>    has the following parameters:
>      CHAR1{3459} local
>      CHAR2{3460} local
>  [clone LOOP?[989] 3323]
>    has the following parameters:
>      CHAR1{3455} local
>      CHAR2{3456} local
>  [clone CHAR=?[986] 3320]
>    has the following parameters:
>      CHAR1{3450} local
>      CHAR2{3451} local
>  [clone LOOP?[989] 3317]
>    has the following parameters:
>      CHAR1{3446} local
>      CHAR2{3447} local
>  [clone CHAR=?[986] 3314]
>    has the following parameters:
>      CHAR1{3441} local
>      CHAR2{3442} local
>  [clone LOOP?[989] 3311]
>    has the following parameters:
>      CHAR1{3437} local
>      CHAR2{3438} local
>  [clone CHAR=?[986] 3308]
>    has the following parameters:
>      CHAR1{3432} local
>      CHAR2{3433} local
>  [clone LOOP?[989] 3305]
>    has the following parameters:
>      CHAR1{3428} local
>      CHAR2{3429} local
>  [clone CHAR=?[986] 3302]
>    has the following parameters:
>      CHAR1{3423} local
>      CHAR2{3424} local
>  [clone LOOP?[989] 3299]
>    has the following parameters:
>      CHAR1{3419} local
>      CHAR2{3420} local
>  [clone CHAR=?[986] 3296]
>    has the following parameters:
>      CHAR1{3414} local
>      CHAR2{3415} local
>  [clone LOOP?[989] 3293]
>    has the following parameters:
>      CHAR1{3410} local
>      CHAR2{3411} local
>  [clone CHAR=?[986] 3290]
>    has the following parameters:
>      CHAR1{3405} local
>      CHAR2{3406} local
>  [clone LOOP?[989] 3287]
>    has the following parameters:
>      CHAR1{3401} local
>      CHAR2{3402} local
>  [clone CHAR=?[986] 3284]
>    has the following parameters:
>      CHAR1{3396} local
>      CHAR2{3397} local
>  [clone LOOP?[989] 3281]
>    has the following parameters:
>      CHAR1{3392} local
>      CHAR2{3393} local
>  [clone CHAR=?[986] 3278]
>    has the following parameters:
>      CHAR1{3387} local
>      CHAR2{3388} local
>  [clone LOOP?[989] 3275]
>    has the following parameters:
>      CHAR1{3383} local
>      CHAR2{3384} local
>  [clone CHAR=?[986] 3272]
>    has the following parameters:
>      CHAR1{3378} local
>      CHAR2{3379} local
>  [clone LOOP?[989] 3269]
>    has the following parameters:
>      CHAR1{3374} local
>      CHAR2{3375} local
>  [clone CHAR=?[986] 3266]
>    has the following parameters:
>      CHAR1{3369} local
>      CHAR2{3370} local
>  [clone LOOP?[989] 3263]
>    has the following parameters:
>      CHAR1{3365} local
>      CHAR2{3366} local
>  [clone CHAR=?[986] 3260]
>    has the following parameters:
>      CHAR1{3360} local
>      CHAR2{3361} local
>  [clone LOOP?[989] 3257]
>    has the following parameters:
>      CHAR1{3356} local
>      CHAR2{3357} local
>  [clone CHAR=?[986] 3254]
>    has the following parameters:
>      CHAR1{3351} local
>      CHAR2{3352} local
>  [clone LOOP?[989] 3251]
>    has the following parameters:
>      CHAR1{3347} local
>      CHAR2{3348} local
>  [clone CHAR=?[986] 3248]
>    has the following parameters:
>      CHAR1{3342} local
>      CHAR2{3343} local
>  [clone LOOP?[989] 3245]
>    has the following parameters:
>      CHAR1{3338} local
>      CHAR2{3339} local
>  [clone CHAR=?[986] 3242]
>    has the following parameters:
>      CHAR1{3333} local
>      CHAR2{3334} local
>  [clone LOOP?[989] 3239]
>    has the following parameters:
>      CHAR1{3329} local
>      CHAR2{3330} local
>  [clone CHAR=?[986] 3236]
>    has the following parameters:
>      CHAR1{3324} local
>      CHAR2{3325} local
>  [clone LOOP?[989] 3233]
>    has the following parameters:
>      CHAR1{3320} local
>      CHAR2{3321} local
>  [clone CHAR=?[986] 3230]
>    has the following parameters:
>      CHAR1{3315} local
>      CHAR2{3316} local
>  [clone LOOP?[989] 3227]
>    has the following parameters:
>      CHAR1{3311} local
>      CHAR2{3312} local
>  [clone CHAR=?[986] 3224]
>    has the following parameters:
>      CHAR1{3306} local
>      CHAR2{3307} local
>  [clone LOOP?[989] 3221]
>    has the following parameters:
>      CHAR1{3302} local
>      CHAR2{3303} local
>  [clone CHAR=?[986] 3218]
>    has the following parameters:
>      CHAR1{3297} local
>      CHAR2{3298} local
>  [clone LOOP?[989] 3215]
>    has the following parameters:
>      CHAR1{3293} local
>      CHAR2{3294} local
>  [clone CHAR=?[986] 3212]
>    has the following parameters:
>      CHAR1{3288} local
>      CHAR2{3289} local
>  [clone LOOP?[989] 3209]
>    has the following parameters:
>      CHAR1{3284} local
>      CHAR2{3285} local
>  [clone CHAR=?[986] 3206]
>    has the following parameters:
>      CHAR1{3279} local
>      CHAR2{3280} local
>  [clone LOOP?[989] 3203]
>    has the following parameters:
>      CHAR1{3275} local
>      CHAR2{3276} local
>  [clone CHAR=?[986] 3200]
>    has the following parameters:
>      CHAR1{3270} local
>      CHAR2{3271} local
>  [clone LOOP?[989] 3197]
>    has the following parameters:
>      CHAR1{3266} local
>      CHAR2{3267} local
>  [clone CHAR=?[986] 3194]
>    has the following parameters:
>      CHAR1{3261} local
>      CHAR2{3262} local
>  [clone LOOP?[989] 3191]
>    has the following parameters:
>      CHAR1{3257} local
>      CHAR2{3258} local
>  [clone CHAR=?[986] 3188]
>    has the following parameters:
>      CHAR1{3252} local
>      CHAR2{3253} local
>  [clone LOOP?[989] 3185]
>    has the following parameters:
>      CHAR1{3248} local
>      CHAR2{3249} local
>  [clone CHAR=?[986] 3182]
>    has the following parameters:
>      CHAR1{3243} local
>      CHAR2{3244} local
>  [clone LOOP?[989] 3179]
>    has the following parameters:
>      CHAR1{3239} local
>      CHAR2{3240} local
>  [clone CHAR=?[986] 3176]
>    has the following parameters:
>      CHAR1{3234} local
>      CHAR2{3235} local
>  [clone LOOP?[989] 3173]
>    has the following parameters:
>      CHAR1{3230} local
>      CHAR2{3231} local
>  [clone CHAR=?[986] 3170]
>    has the following parameters:
>      CHAR1{3225} local
>      CHAR2{3226} local
>  [clone LOOP?[989] 3167]
>    has the following parameters:
>      CHAR1{3221} local
>      CHAR2{3222} local
>  [clone CHAR=?[986] 3164]
>    has the following parameters:
>      CHAR1{3216} local
>      CHAR2{3217} local
>  [clone LOOP?[989] 3161]
>    has the following parameters:
>      CHAR1{3212} local
>      CHAR2{3213} local
>  [clone CHAR=?[986] 3158]
>    has the following parameters:
>      CHAR1{3207} local
>      CHAR2{3208} local
>  [clone LOOP?[989] 3155]
>    has the following parameters:
>      CHAR1{3203} local
>      CHAR2{3204} local
>  [clone CHAR=?[986] 3152]
>    has the following parameters:
>      CHAR1{3198} local
>      CHAR2{3199} local
>  [clone LOOP?[989] 3149]
>    has the following parameters:
>      CHAR1{3194} local
>      CHAR2{3195} local
>  [clone CHAR=?[986] 3146]
>    has the following parameters:
>      CHAR1{3189} local
>      CHAR2{3190} local
>  [clone LOOP?[989] 3143]
>    has the following parameters:
>      CHAR1{3185} local
>      CHAR2{3186} local
>  [clone CHAR=?[986] 3140]
>    has the following parameters:
>      CHAR1{3180} local
>      CHAR2{3181} local
>  [clone LOOP?[989] 3137]
>    has the following parameters:
>      CHAR1{3176} local
>      CHAR2{3177} local
>  [clone CHAR=?[986] 3134]
>    has the following parameters:
>      CHAR1{3171} local
>      CHAR2{3172} local
>  [clone LOOP?[989] 3131]
>    has the following parameters:
>      CHAR1{3167} local
>      CHAR2{3168} local
>  [clone CHAR=?[986] 3128]
>    has the following parameters:
>      CHAR1{3162} local
>      CHAR2{3163} local
>  [clone LOOP?[989] 3125]
>    has the following parameters:
>      CHAR1{3158} local
>      CHAR2{3159} local
>  [clone CHAR=?[986] 3122]
>    has the following parameters:
>      CHAR1{3153} local
>      CHAR2{3154} local
>  [clone LOOP?[989] 3119]
>    has the following parameters:
>      CHAR1{3149} local
>      CHAR2{3150} local
>  [clone CHAR=?[986] 3116]
>    has the following parameters:
>      CHAR1{3144} local
>      CHAR2{3145} local
>  [clone LOOP?[989] 3113]
>    has the following parameters:
>      CHAR1{3140} local
>      CHAR2{3141} local
>  [clone CHAR=?[986] 3110]
>    has the following parameters:
>      CHAR1{3135} local
>      CHAR2{3136} local
>  [clone LOOP?[989] 3107]
>    has the following parameters:
>      CHAR1{3131} local
>      CHAR2{3132} local
>  [clone CHAR=?[986] 3104]
>    has the following parameters:
>      CHAR1{3126} local
>      CHAR2{3127} local
>  [clone LOOP?[989] 3101]
>    has the following parameters:
>      CHAR1{3122} local
>      CHAR2{3123} local
>  [clone CHAR=?[986] 3098]
>    has the following parameters:
>      CHAR1{3117} local
>      CHAR2{3118} local
>  [clone LOOP?[989] 3095]
>    has the following parameters:
>      CHAR1{3113} local
>      CHAR2{3114} local
>  [clone CHAR=?[986] 3092]
>    has the following parameters:
>      CHAR1{3108} local
>      CHAR2{3109} local
>  [clone LOOP?[989] 3089]
>    has the following parameters:
>      CHAR1{3104} local
>      CHAR2{3105} local
>  [clone CHAR=?[986] 3086]
>    has the following parameters:
>      CHAR1{3099} local
>      CHAR2{3100} local
>  [clone LOOP?[989] 3083]
>    has the following parameters:
>      CHAR1{3095} local
>      CHAR2{3096} local
>  [clone CHAR=?[986] 3080]
>    has the following parameters:
>      CHAR1{3090} local
>      CHAR2{3091} local
>  [clone LOOP?[995] 3077]
>    has the following parameters:
>      CHAR1{3086} local
>      CHAR2{3087} local
>  [clone CHAR<?[992] 3074]
>    has the following parameters:
>      CHAR1{3081} local
>      CHAR2{3082} local
>  [clone LOOP?[1001] 3071]
>    has the following parameters:
>      CHAR1{3077} local
>      CHAR2{3078} local
>  [clone CHAR>?[998] 3068]
>    has the following parameters:
>      CHAR1{3072} local
>      CHAR2{3073} local
>  [clone LOOP?[1007] 3065]
>    has the following parameters:
>      CHAR1{3068} local
>      CHAR2{3069} local
>  [clone CHAR<=?[1004] 3062]
>    has the following parameters:
>      CHAR1{3063} local
>      CHAR2{3064} local
>  [clone LOOP?[1007] 3059]
>    has the following parameters:
>      CHAR1{3059} local
>      CHAR2{3060} local
>  [clone CHAR<=?[1004] 3056]
>    has the following parameters:
>      CHAR1{3054} local
>      CHAR2{3055} local
>  [clone LOOP?[1007] 3053]
>    has the following parameters:
>      CHAR1{3050} local
>      CHAR2{3051} local
>  [clone CHAR<=?[1004] 3050]
>    has the following parameters:
>      CHAR1{3045} local
>      CHAR2{3046} local
>  [clone LOOP?[1007] 3047]
>    has the following parameters:
>      CHAR1{3041} local
>      CHAR2{3042} local
>  [clone CHAR<=?[1004] 3044]
>    has the following parameters:
>      CHAR1{3036} local
>      CHAR2{3037} local
>  [clone LOOP?[1007] 3041]
>    has the following parameters:
>      CHAR1{3032} local
>      CHAR2{3033} local
>  [clone CHAR<=?[1004] 3038]
>    has the following parameters:
>      CHAR1{3027} local
>      CHAR2{3028} local
>  [clone LOOP?[1007] 3035]
>    has the following parameters:
>      CHAR1{3023} local
>      CHAR2{3024} local
>  [clone CHAR<=?[1004] 3032]
>    has the following parameters:
>      CHAR1{3018} local
>      CHAR2{3019} local
>  [clone LOOP?[1007] 3029]
>    has the following parameters:
>      CHAR1{3014} local
>      CHAR2{3015} local
>  [clone CHAR<=?[1004] 3026]
>    has the following parameters:
>      CHAR1{3009} local
>      CHAR2{3010} local
>  [clone LOOP?[1007] 3023]
>    has the following parameters:
>      CHAR1{3005} local
>      CHAR2{3006} local
>  [clone CHAR<=?[1004] 3020]
>    has the following parameters:
>      CHAR1{3000} local
>      CHAR2{3001} local
>  [clone LOOP?[1007] 3017]
>    has the following parameters:
>      CHAR1{2996} local
>      CHAR2{2997} local
>  [clone CHAR<=?[1004] 3014]
>    has the following parameters:
>      CHAR1{2991} local
>      CHAR2{2992} local
>  [clone LOOP?[1013] 3011]
>    has the following parameters:
>      CHAR1{2987} local
>      CHAR2{2988} local
>  [clone CHAR>=?[1010] 3008]
>    has the following parameters:
>      CHAR1{2982} local
>      CHAR2{2983} local
>  [clone LOOP?[1013] 3005]
>    has the following parameters:
>      CHAR1{2978} local
>      CHAR2{2979} local
>  [clone CHAR>=?[1010] 3002]
>    has the following parameters:
>      CHAR1{2973} local
>      CHAR2{2974} local
>  [clone LOOP?[1013] 2999]
>    has the following parameters:
>      CHAR1{2969} local
>      CHAR2{2970} local
>  [clone CHAR>=?[1010] 2996]
>    has the following parameters:
>      CHAR1{2964} local
>      CHAR2{2965} local
>  [clone LOOP?[1013] 2993]
>    has the following parameters:
>      CHAR1{2960} local
>      CHAR2{2961} local
>  [clone CHAR>=?[1010] 2990]
>    has the following parameters:
>      CHAR1{2955} local
>      CHAR2{2956} local
>  [clone LOOP?[1013] 2987]
>    has the following parameters:
>      CHAR1{2951} local
>      CHAR2{2952} local
>  [clone CHAR>=?[1010] 2984]
>    has the following parameters:
>      CHAR1{2946} local
>      CHAR2{2947} local
>  [clone LOOP?[1013] 2981]
>    has the following parameters:
>      CHAR1{2942} local
>      CHAR2{2943} local
>  [clone CHAR>=?[1010] 2978]
>    has the following parameters:
>      CHAR1{2937} local
>      CHAR2{2938} local
>  [clone LOOP?[1013] 2975]
>    has the following parameters:
>      CHAR1{2933} local
>      CHAR2{2934} local
>  [clone CHAR>=?[1010] 2972]
>    has the following parameters:
>      CHAR1{2928} local
>      CHAR2{2929} local
>  [clone LOOP?[1013] 2969]
>    has the following parameters:
>      CHAR1{2924} local
>      CHAR2{2925} local
>  [clone CHAR>=?[1010] 2966]
>    has the following parameters:
>      CHAR1{2919} local
>      CHAR2{2920} local
>  [clone LOOP?[1013] 2963]
>    has the following parameters:
>      CHAR1{2915} local
>      CHAR2{2916} local
>  [clone CHAR>=?[1010] 2960]
>    has the following parameters:
>      CHAR1{2910} local
>      CHAR2{2911} local
>  [clone [inside MODULO 918] 2959]
>    has the following parameter:
>      v{2909} local
>  [clone MODULO[917] 2958]
>    has the following parameters:
>      N1{2907} local
>      N2{2908} local
>  [clone [inside MODULO 918] 2957]
>    has the following parameter:
>      v{2906} local
>  [clone MODULO[917] 2956]
>    has the following parameters:
>      N1{2904} local
>      N2{2905} local
>  [clone [inside MODULO 918] 2955]
>    has the following parameter:
>      v{2903} local
>  [clone MODULO[917] 2954]
>    has the following parameters:
>      N1{2901} local
>      N2{2902} local
>  [clone READ-CHAR[2340] 2950]
>    has the following parameter:
>      &REST{2900} local
>  [clone READ-CHAR[2340] 2946]
>    has the following parameter:
>      &REST{2899} local
>  [clone READ-CHAR[2340] 2942]
>    has the following parameter:
>      &REST{2898} local
>  [clone READ-CHAR[2340] 2938]
>    has the following parameter:
>      &REST{2897} local
>  [clone READ-CHAR[2340] 2934]
>    has the following parameter:
>      &REST{2896} local
>  [clone READ-CHAR[2340] 2930]
>    has the following parameter:
>      &REST{2895} local
>  [clone READ-CHAR[2340] 2926]
>    has the following parameter:
>      &REST{2894} local
>  [clone READ-CHAR[2340] 2922]
>    has the following parameter:
>      &REST{2893} local
>  [clone READ-CHAR[2340] 2918]
>    has the following parameter:
>      &REST{2892} local
>  [clone READ-CHAR[2340] 2914]
>    has the following parameter:
>      &REST{2891} local
>  [clone READ-CHAR[2340] 2910]
>    has the following parameter:
>      &REST{2890} local
>  [clone READ-CHAR[2340] 2906]
>    has the following parameter:
>      &REST{2889} local
>  [clone READ-CHAR[2340] 2902]
>    has the following parameter:
>      &REST{2888} local
>  [clone READ-CHAR[2340] 2898]
>    has the following parameter:
>      &REST{2887} local
>  [clone READ-CHAR[2340] 2894]
>    has the following parameter:
>      &REST{2886} local
>  [clone READ-CHAR[2340] 2890]
>    has the following parameter:
>      &REST{2885} local
>  [clone READ-CHAR[2340] 2886]
>    has the following parameter:
>      &REST{2884} local
>  [clone READ-CHAR[2340] 2882]
>    has the following parameter:
>      &REST{2883} local
>  [clone READ-CHAR[2340] 2878]
>    has the following parameter:
>      &REST{2882} local
>  [clone READ-CHAR[2340] 2874]
>    has the following parameter:
>      &REST{2881} local
>  [clone READ-CHAR[2340] 2870]
>    has the following parameter:
>      &REST{2880} local
>  [clone READ-CHAR[2340] 2866]
>    has the following parameter:
>      &REST{2879} local
>  [clone READ-CHAR[2340] 2862]
>    has the following parameter:
>      &REST{2878} local
>  [clone READ-CHAR[2340] 2858]
>    has the following parameter:
>      &REST{2877} local
>  [clone READ-CHAR[2340] 2854]
>    has the following parameter:
>      &REST{2876} local
>  [clone READ-CHAR[2340] 2850]
>    has the following parameter:
>      &REST{2875} local
>  [clone READ-CHAR[2340] 2846]
>    has the following parameter:
>      &REST{2874} local
>  [clone READ-CHAR[2340] 2842]
>    has the following parameter:
>      &REST{2873} local
>  [clone READ-CHAR[2340] 2838]
>    has the following parameter:
>      &REST{2872} local
>  [clone READ-CHAR[2340] 2834]
>    has the following parameter:
>      &REST{2871} local
>  [clone READ-CHAR[2340] 2830]
>    has the following parameter:
>      &REST{2870} local
>  [clone READ-CHAR[2340] 2826]
>    has the following parameter:
>      &REST{2869} local
>  [clone READ-CHAR[2340] 2822]
>    has the following parameter:
>      &REST{2868} local
>  [clone READ-CHAR[2340] 2818]
>    has the following parameter:
>      &REST{2867} local
>  [clone READ-CHAR[2340] 2814]
>    has the following parameter:
>      &REST{2866} local
>  [clone READ-CHAR[2340] 2810]
>    has the following parameter:
>      &REST{2865} local
>  [clone READ-CHAR[2340] 2806]
>    has the following parameter:
>      &REST{2864} local
>  [clone READ-CHAR[2340] 2802]
>    has the following parameter:
>      &REST{2863} local
>  [clone READ-CHAR[2340] 2798]
>    has the following parameter:
>      &REST{2862} local
>  [clone READ-CHAR[2340] 2794]
>    has the following parameter:
>      &REST{2861} local
>  [clone READ-CHAR[2340] 2790]
>    has the following parameter:
>      &REST{2860} local
>  [clone READ-CHAR[2340] 2786]
>    has the following parameter:
>      &REST{2859} local
>  [clone READ-CHAR[2340] 2782]
>    has the following parameter:
>      &REST{2858} local
>  [clone READ-CHAR[2340] 2778]
>    has the following parameter:
>      &REST{2857} local
>  [clone READ-CHAR[2340] 2774]
>    has the following parameter:
>      &REST{2856} local
>  [clone READ-CHAR[2340] 2770]
>    has the following parameter:
>      &REST{2855} local
>  [clone READ-CHAR[2340] 2766]
>    has the following parameter:
>      &REST{2854} local
>  [clone READ-CHAR[2340] 2762]
>    has the following parameter:
>      &REST{2853} local
>  [clone READ-CHAR[2340] 2758]
>    has the following parameter:
>      &REST{2852} local
>  [clone READ-CHAR[2340] 2754]
>    has the following parameter:
>      &REST{2851} local
>  [clone READ-CHAR[2340] 2750]
>    has the following parameter:
>      &REST{2850} local
>  [clone READ-CHAR[2340] 2746]
>    has the following parameter:
>      &REST{2849} local
>  [clone READ-CHAR[2340] 2742]
>    has the following parameter:
>      &REST{2848} local
>  [clone PEEK-CHAR[2344] 2738]
>    has the following parameter:
>      &REST{2847} local
>  [clone PEEK-CHAR[2344] 2734]
>    has the following parameter:
>      &REST{2846} local
>  [clone PEEK-CHAR[2344] 2730]
>    has the following parameter:
>      &REST{2845} local
>  [clone PEEK-CHAR[2344] 2726]
>    has the following parameter:
>      &REST{2844} local
>  [clone PEEK-CHAR[2344] 2722]
>    has the following parameter:
>      &REST{2843} local
>  [clone PEEK-CHAR[2344] 2718]
>    has the following parameter:
>      &REST{2842} local
>  [clone PEEK-CHAR[2344] 2714]
>    has the following parameter:
>      &REST{2841} local
>  [clone PEEK-CHAR[2344] 2710]
>    has the following parameter:
>      &REST{2840} local
>  [clone PEEK-CHAR[2344] 2706]
>    has the following parameter:
>      &REST{2839} local
>  [clone PEEK-CHAR[2344] 2702]
>    has the following parameter:
>      &REST{2838} local
>  [clone PEEK-CHAR[2344] 2698]
>    has the following parameter:
>      &REST{2837} local
>  [clone PEEK-CHAR[2344] 2694]
>    has the following parameter:
>      &REST{2836} local
>  [clone PEEK-CHAR[2344] 2690]
>    has the following parameter:
>      &REST{2835} local
>  [clone BOX[6] 2689]
>    has the following parameter:
>      X{2834} local
>  [clone BOX[6] 2688]
>    has the following parameter:
>      X{2833} local
>  [clone SET-BOX![8] 2683]
>    has the following parameters:
>      X{2827} local
>      Y{2828} local
>  [clone SET-BOX![8] 2682]
>    has the following parameters:
>      X{2825} local
>      Y{2826} local
>  [clone SET-BOX![8] 2681]
>    has the following parameters:
>      X{2823} local
>      Y{2824} local
>  [clone SET-BOX![8] 2680]
>    has the following parameters:
>      X{2821} local
>      Y{2822} local
>  [clone SET-BOX![8] 2679]
>    has the following parameters:
>      X{2819} local
>      Y{2820} local
>  [clone SET-BOX![8] 2678]
>    has the following parameters:
>      X{2817} local
>      Y{2818} local
>  [clone SET-BOX![8] 2677]
>    has the following parameters:
>      X{2815} local
>      Y{2816} local
>  [clone ADD-ONE[10] 2676]
>    has the following parameter:
>      X{2814} local
>  [clone ADD-ONE[10] 2675]
>    has the following parameter:
>      X{2813} local
>  [clone ADD-ONE[10] 2674]
>    has the following parameter:
>      X{2812} local
>  [clone QUEUE-PUSH[162] 2673]
>    has the following parameters:
>      Q{2810} local
>      OBJ{2811} local
>  [clone QUEUE-PUSH[162] 2672]
>    has the following parameters:
>      Q{2808} local
>      OBJ{2809} local
>  [clone QUEUE-PUSH[162] 2671]
>    has the following parameters:
>      Q{2806} local
>      OBJ{2807} local
>  [clone QUEUE-PUSH[162] 2670]
>    has the following parameters:
>      Q{2804} local
>      OBJ{2805} local
>  [clone QUEUE-PUSH[162] 2669]
>    has the following parameters:
>      Q{2802} local
>      OBJ{2803} local
>  [clone QUEUE-PUSH[162] 2668]
>    has the following parameters:
>      Q{2800} local
>      OBJ{2801} local
>  [clone GET-CHILD[276] 2667]
>    has the following parameters:
>      NODE{2798} local
>      I{2799} local
>  [clone GET-CHILD[276] 2666]
>    has the following parameters:
>      NODE{2796} local
>      I{2797} local
>  [clone GET-CHILD[276] 2665]
>    has the following parameters:
>      NODE{2794} local
>      I{2795} local
>  [clone GET-CHILD[276] 2664]
>    has the following parameters:
>      NODE{2792} local
>      I{2793} local
>  [clone GET-CHILD[276] 2663]
>    has the following parameters:
>      NODE{2790} local
>      I{2791} local
>  [clone SET-STATE-LABEL[277] 2662]
>    has the following parameters:
>      NODE{2788} local
>      VAL{2789} local
>  [clone SET-STATE-LABEL[277] 2661]
>    has the following parameters:
>      NODE{2786} local
>      VAL{2787} local
>  [clone SET-FATHER[278] 2660]
>    has the following parameters:
>      NODE{2784} local
>      VAL{2785} local
>  [clone SET-CHILD[279] 2659]
>    has the following parameters:
>      NODE{2781} local
>      I{2782} local
>  [clone SET-CHILD[279] 2658]
>    has the following parameters:
>      NODE{2778} local
>      I{2779} local
>      VAL{2780} local
>  [clone SET-CHILD[279] 2657]
>    has the following parameters:
>      NODE{2775} local
>      I{2776} local
>      VAL{2777} local
>  [clone SET-CHILD[279] 2656]
>    has the following parameters:
>      NODE{2772} local
>      I{2773} local
>      VAL{2774} local
>  [clone LIST[642] 2655]
>    has the following parameter:
>      OBJS{2771} local
>  [clone LIST[642] 2654]
>    has the following parameter:
>      OBJS{2770} local
>  [clone LIST[642] 2653]
>    has the following parameter:
>      OBJS{2769} local
>  [clone LIST[642] 2652]
>    has the following parameter:
>      OBJS{2768} local
>  [clone LIST[642] 2651]
>    has the following parameter:
>      OBJS{2767} local
>  [clone LIST[642] 2650]
>    has the following parameter:
>      OBJS{2766} local
>  [clone LIST[642] 2649]
>    has the following parameter:
>      OBJS{2765} local
>  [clone LIST[642] 2648]
>    has the following parameter:
>      OBJS{2764} local
>  [clone LIST[642] 2647]
>    has the following parameter:
>      OBJS{2763} local
>  [clone LIST[642] 2646]
>    has the following parameter:
>      OBJS{2762} local
>  [clone LIST[642] 2645]
>    has the following parameter:
>      OBJS{2761} local
>  [clone [inside top level 1047] 2644]
>    has the following parameter:
>      CHAR{2760} local
>  [clone [inside top level 1047] 2643]
>    has the following parameter:
>      CHAR{2759} local
>  [clone [inside top level 1049] 2642]
>    has the following parameter:
>      CHAR{2758} local
>  [clone [inside top level 1049] 2641]
>    has the following parameter:
>      CHAR{2757} local
>  [clone [inside top level 1049] 2640]
>    has the following parameter:
>      CHAR{2756} local
>  [clone [inside top level 1049] 2639]
>    has the following parameter:
>      CHAR{2755} local
>  [clone [inside top level 1049] 2638]
>    has the following parameter:
>      CHAR{2754} local
>  [clone [inside top level 1049] 2637]
>    has the following parameter:
>      CHAR{2753} local
>  [clone [inside top level 1049] 2636]
>    has the following parameter:
>      CHAR{2752} local
>  [clone [inside top level 1049] 2635]
>    has the following parameter:
>      CHAR{2751} local
>  [clone [inside top level 1049] 2634]
>    has the following parameter:
>      CHAR{2750} local
>  [clone [inside top level 1049] 2633]
>    has the following parameter:
>      CHAR{2749} local
>  [clone [inside top level 1049] 2632]
>    has the following parameter:
>      CHAR{2748} local
>  [clone [inside top level 1049] 2631]
>    has the following parameter:
>      CHAR{2747} local
>  [clone [inside top level 1049] 2630]
>    has the following parameter:
>      CHAR{2746} local
>  [clone [inside top level 1049] 2629]
>    has the following parameter:
>      CHAR{2745} local
>  [clone [inside top level 1049] 2628]
>    has the following parameter:
>      CHAR{2744} local
>  [clone [inside top level 1049] 2627]
>    has the following parameter:
>      CHAR{2743} local
>  [clone [inside top level 1049] 2626]
>    has the following parameter:
>      CHAR{2742} local
>  [clone [inside top level 1049] 2625]
>    has the following parameter:
>      CHAR{2741} local
>  [clone [inside top level 1049] 2624]
>    has the following parameter:
>      CHAR{2740} local
>  [clone [inside top level 1049] 2623]
>    has the following parameter:
>      CHAR{2739} local
>  [clone [inside top level 1049] 2622]
>    has the following parameter:
>      CHAR{2738} local
>  [clone [inside top level 1049] 2621]
>    has the following parameter:
>      CHAR{2737} local
>  [clone [inside top level 1049] 2620]
>    has the following parameter:
>      CHAR{2736} local
>  [clone [inside top level 1049] 2619]
>    has the following parameter:
>      CHAR{2735} local
>  [clone [inside top level 1049] 2618]
>    has the following parameter:
>      CHAR{2734} local
>  [clone [inside top level 1059] 2617]
>    has the following parameter:
>      CHAR{2733} local
>  [clone [inside top level 1059] 2616]
>    has the following parameter:
>      CHAR{2732} local
>  [clone [inside top level 1059] 2615]
>    has the following parameter:
>      CHAR{2731} local
>  [clone [inside top level 1059] 2614]
>    has the following parameter:
>      CHAR{2730} local
>  [clone [inside top level 1059] 2613]
>    has the following parameter:
>      CHAR{2729} local
>  [clone [inside top level 1059] 2612]
>    has the following parameter:
>      CHAR{2728} local
>  [clone [inside top level 1059] 2611]
>    has the following parameter:
>      CHAR{2727} local
>  [clone [inside top level 1059] 2610]
>    has the following parameter:
>      CHAR{2726} local
>  [clone [inside top level 1059] 2609]
>    has the following parameter:
>      CHAR{2725} local
>  [clone [inside top level 1059] 2608]
>    has the following parameter:
>      CHAR{2724} local
>  [clone [inside top level 1059] 2607]
>    has the following parameter:
>      CHAR{2723} local
>  [clone [inside top level 1059] 2606]
>    has the following parameter:
>      CHAR{2722} local
>  [clone [inside top level 1059] 2605]
>    has the following parameter:
>      CHAR{2721} local
>  [clone [inside top level 1059] 2604]
>    has the following parameter:
>      CHAR{2720} local
>  [clone [inside top level 1059] 2603]
>    has the following parameter:
>      CHAR{2719} local
>  PEEK-CHAR[2344]
>    has the following parameter:
>      &REST{2702} local
>  READ-CHAR[2340]
>    has the following parameter:
>      &REST{2701} local
>  [inside LOOP 2028] reentrant
>  [inside LOOP 2027] reentrant
>  LOOP[2026] reentrant
>    has the following parameter:
>      I{2501} local
>  [inside DISPLAY2 2023] reentrant
>  [inside DISPLAY2 2022] reentrant
>  [inside DISPLAY2 2020] reentrant
>  [inside LOOP 2017] reentrant
>  [inside LOOP 2016] reentrant
>  [inside LOOP 2015] reentrant
>  [inside LOOP 2013] reentrant
>  LOOP[2012] reentrant
>    has the following parameter:
>      OBJ{2489} local
>  [inside DISPLAY2 2009] reentrant
>  [inside DISPLAY2 2008] reentrant
>  LOOP[1932]
>    has the following parameters:
>      MANTISSA{2448} local
>      EXPONENT{2449} local
>  LOOP[1927]
>    has the following parameters:
>      MANTISSA{2444} local
>      EXPONENT{2445} local
>  DISPLAY-INEXACT-REAL2[1918]
>    has the following parameters:
>      NUMBER{2439} local
>      PORT{2440} local
>  [inside LOOP 1915]
>    has the following parameter:
>      MANTISSA{2438} local
>  [inside LOOP 1912]
>    has the following parameter:
>      DIGIT{2436} local
>  [inside LOOP 1911]
>    has the following parameter:
>      FLOAT-DIGIT{2435} local
>  LOOP[1910]
>    has the following parameter:
>      MANTISSA{2434} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1899]
>    has the following parameter:
>      DIGIT{2427} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1898]
>    has the following parameter:
>      FLOAT-DIGIT{2426} local
>  LOOP[1889]
>    has the following parameter:
>      I{2420} local
>  LOOP[1886]
>    has the following parameters:
>      I{2416} local
>      NUMBER{2417} local
>  LOOP[1875]
>    has the following parameter:
>      I{2410} local
>  LOOP[1872]
>    has the following parameters:
>      I{2406} local
>      NUMBER{2407} local
>  LOOP[1863]
>    has the following parameter:
>      I{2400} local
>  [inside DISPLAY-STRING2 1860]
>    has the following parameter:
>      N{2397} local
>  [inside top level 1855]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2356} global
>      BUFFER{2358} global
>  [inside READ-CHARACTER-NAME 1828]
>    has the following parameter:
>      C{2351} local
>  READ-CHARACTER-NAME[1827]
>    has region
>    has the following parameter:
>      S{2350} local
>  [inside LOOP? 1823]
>    has the following parameter:
>      v{2349} local
>  LOOP?[1822]
>    has the following parameters:
>      S{2347} local
>      NAME{2348} local
>  LOOP[1818]
>    has the following parameter:
>      NAMES{2343} local
>  [inside READ-SYMBOL 1814]
>    has region
>  [inside READ-SYMBOL 1811]
>    has region
>  [inside READ-SYMBOL 1810]
>    has the following parameter:
>      C{2338} local
>  [inside CHAR-SUBSEQUENT? 1808]
>    has the following parameter:
>      v{2336} local
>  [inside CHAR-SUBSEQUENT? 1807]
>    has the following parameter:
>      v{2335} local
>  [inside CHAR-SUBSEQUENT? 1806]
>    has the following parameter:
>      v{2334} local
>  [inside CHAR-SUBSEQUENT? 1805]
>    has the following parameter:
>      v{2333} local
>  CHAR-SUBSEQUENT?[1804]
>    has the following parameter:
>      C{2332} local
>  [inside CHAR-INITIAL? 1803]
>    has the following parameter:
>      v{2331} local
>  [inside CHAR-INITIAL? 1802]
>    has the following parameter:
>      v{2330} local
>  [inside CHAR-INITIAL? 1801]
>    has the following parameter:
>      v{2329} local
>  [inside CHAR-INITIAL? 1800]
>    has the following parameter:
>      v{2328} local
>  [inside CHAR-INITIAL? 1799]
>    has the following parameter:
>      v{2327} local
>  [inside CHAR-INITIAL? 1798]
>    has the following parameter:
>      v{2326} local
>  [inside CHAR-INITIAL? 1797]
>    has the following parameter:
>      v{2325} local
>  [inside CHAR-INITIAL? 1796]
>    has the following parameter:
>      v{2324} local
>  [inside CHAR-INITIAL? 1795]
>    has the following parameter:
>      v{2323} local
>  [inside CHAR-INITIAL? 1794]
>    has the following parameter:
>      v{2322} local
>  [inside CHAR-INITIAL? 1793]
>    has the following parameter:
>      v{2321} local
>  [inside CHAR-INITIAL? 1792]
>    has the following parameter:
>      v{2320} local
>  [inside CHAR-INITIAL? 1791]
>    has the following parameter:
>      v{2319} local
>  [inside CHAR-INITIAL? 1790]
>    has the following parameter:
>      v{2318} local
>  [inside READ-NUMBER 1782]
>    has the following parameter:
>      C3{2314} local
>  [inside READ-NUMBER 1781]
>    has region
>  [inside READ-NUMBER 1777]
>    has the following parameter:
>      C3{2311} local
>  [inside READ-NUMBER 1776]
>    has region
>  [inside READ-NUMBER 1773]
>    has the following parameter:
>      C2{2309} local
>  [inside READ-NUMBER 1772]
>    has region
>  [inside READ-NUMBER 1771]
>    has region
>  [inside READ-NUMBER 1770]
>    has the following parameter:
>      v{2307} local
>  [inside READ-NUMBER 1769]
>    has the following parameter:
>      v{2306} local
>  [inside READ-NUMBER 1768]
>    has the following parameter:
>      v{2305} local
>  [inside READ-NUMBER 1767]
>    has the following parameter:
>      v{2304} local
>  [inside READ-NUMBER 1766]
>    has the following parameter:
>      v{2303} local
>  [inside READ-NUMBER 1765]
>    has the following parameter:
>      v{2302} local
>  [inside READ-NUMBER 1764]
>    has the following parameter:
>      v{2301} local
>  [inside READ-NUMBER 1763]
>    has the following parameter:
>      v{2300} local
>  [inside READ-NUMBER 1762]
>    has the following parameter:
>      v{2299} local
>  [inside READ-NUMBER 1760]
>    has region
>  [inside READ-NUMBER 1756]
>    has the following parameter:
>      C1{2296} local
>  [inside READ-INEXACT-NUMBER 1748]
>    has the following parameter:
>      C3{2292} local
>  [inside READ-INEXACT-NUMBER 1747]
>    has region
>  [inside READ-INEXACT-NUMBER 1743]
>    has the following parameter:
>      C3{2289} local
>  [inside READ-INEXACT-NUMBER 1742]
>    has region
>  [inside READ-INEXACT-NUMBER 1739]
>    has the following parameter:
>      C2{2287} local
>  [inside READ-INEXACT-NUMBER 1738]
>    has region
>  [inside READ-INEXACT-NUMBER 1737]
>    has region
>  [inside READ-INEXACT-NUMBER 1736]
>    has the following parameter:
>      v{2285} local
>  [inside READ-INEXACT-NUMBER 1735]
>    has the following parameter:
>      v{2284} local
>  [inside READ-INEXACT-NUMBER 1734]
>    has the following parameter:
>      v{2283} local
>  [inside READ-INEXACT-NUMBER 1733]
>    has the following parameter:
>      v{2282} local
>  [inside READ-INEXACT-NUMBER 1732]
>    has the following parameter:
>      v{2281} local
>  [inside READ-INEXACT-NUMBER 1731]
>    has the following parameter:
>      v{2280} local
>  [inside READ-INEXACT-NUMBER 1730]
>    has the following parameter:
>      v{2279} local
>  [inside READ-INEXACT-NUMBER 1729]
>    has the following parameter:
>      v{2278} local
>  [inside READ-INEXACT-NUMBER 1728]
>    has the following parameter:
>      v{2277} local
>  [inside READ-INEXACT-NUMBER 1724]
>    has the following parameter:
>      C1{2275} local
>  [inside READ-EXACT-HEXADECIMAL-INTEGER 1714]
>    has the following parameter:
>      C{2269} local
>  [inside READ-EXACT-DECIMAL-INTEGER 1708]
>    has the following parameter:
>      C{2266} local
>  [inside READ-EXACT-OCTAL-INTEGER 1702]
>    has the following parameter:
>      C{2263} local
>  [inside READ-EXACT-BINARY-INTEGER 1694]
>    has the following parameter:
>      C{2259} local
>  [inside READ 1691]
>    has region
>  [inside READ 1686]
>    has region
>  [inside READ 1685]
>    has region
>  [inside READ 1683]
>    has region
>  [inside READ 1681]
>    has the following parameter:
>      C2{2254} local
>  [inside READ 1680]
>    has region
>  [inside READ 1678]
>    has region
>  [inside READ 1677]
>    has region
>  [inside READ 1675]
>    has region
>  [inside READ 1674]
>    has region
>  [inside READ 1672]
>    has region
>  [inside READ 1670]
>    has the following parameter:
>      C3{2250} local
>  [inside READ 1669]
>    has region
>  [inside READ 1668]
>    has region
>  [inside READ 1666]
>    has region
>  [inside READ 1664]
>    has the following parameter:
>      C2{2247} local
>  [inside READ 1663]
>    has region
>  [inside READ 1661]
>    has region
>  [inside READ 1660]
>    has region
>  [inside READ 1658]
>    has region
>  [inside READ 1657]
>    has region
>  [inside READ 1655]
>    has region
>  [inside READ 1653]
>    has the following parameter:
>      C3{2243} local
>  [inside READ 1652]
>    has region
>  [inside READ 1651]
>    has region
>  [inside READ 1649]
>    has region
>  [inside READ 1647]
>    has the following parameter:
>      C2{2240} local
>  [inside READ 1646]
>    has region
>  [inside LOOP 1642]
>    has region
>  [inside LOOP 1639]
>    has the following parameter:
>      C1{2238} local
>  [inside LOOP 1636]
>    has the following parameter:
>      C{2236} local
>  LOOP[1635]
>    has region
>    has the following parameter:
>      S{2235} local
>  [inside READ 1628]
>    has region
>  [inside READ 1627]
>    has the following parameter:
>      C3{2231} local
>  [inside READ 1626]
>    has region
>  [inside LOOP 1624] reentrant
>    has the following parameter:
>      E{2230} local
>  LOOP[1623] reentrant
>    has region
>    has the following parameter:
>      S{2229} local
>  [inside READ 1620] reentrant
>  [inside READ 1611]
>    has the following parameter:
>      C4{2225} local
>  [inside READ 1610]
>    has region
>  [inside READ 1603]
>    has the following parameter:
>      C4{2223} local
>  [inside READ 1602]
>    has region
>  [inside READ 1597]
>    has the following parameter:
>      C3{2221} local
>  [inside READ 1596]
>    has region
>  [inside READ 1595]
>    has the following parameter:
>      v{2220} local
>  [inside READ 1588]
>    has the following parameter:
>      C4{2217} local
>  [inside READ 1587]
>    has region
>  [inside READ 1581]
>    has the following parameter:
>      C5{2214} local
>  [inside READ 1580]
>    has region
>  [inside READ 1577]
>    has the following parameter:
>      C4{2212} local
>  [inside READ 1576]
>    has region
>  [inside READ 1570]
>    has the following parameter:
>      C5{2209} local
>  [inside READ 1569]
>    has region
>  [inside READ 1566]
>    has the following parameter:
>      C4{2207} local
>  [inside READ 1565]
>    has region
>  [inside READ 1563]
>    has the following parameter:
>      C3{2205} local
>  [inside READ 1562]
>    has region
>  [inside READ 1561]
>    has the following parameter:
>      v{2204} local
>  [inside READ 1557]
>    has the following parameter:
>      v{2203} local
>  [inside READ 1554]
>    has the following parameter:
>      C4{2200} local
>  [inside READ 1553]
>    has region
>  [inside READ 1551]
>    has the following parameter:
>      v{2199} local
>  [inside READ 1548]
>    has the following parameter:
>      C4{2196} local
>  [inside READ 1547]
>    has region
>  [inside READ 1544]
>    has the following parameter:
>      C3{2194} local
>  [inside READ 1543]
>    has region
>  [inside READ 1542]
>    has the following parameter:
>      v{2193} local
>  [inside READ 1534]
>    has the following parameter:
>      C4{2191} local
>  [inside READ 1533]
>    has region
>  [inside READ 1527]
>    has the following parameter:
>      C4{2189} local
>  [inside READ 1526]
>    has region
>  [inside READ 1522]
>    has the following parameter:
>      C3{2187} local
>  [inside READ 1521]
>    has region
>  [inside READ 1520]
>    has the following parameter:
>      v{2186} local
>  [inside READ 1518]
>    has the following parameter:
>      v{2185} local
>  [inside READ 1516]
>    has the following parameter:
>      v{2184} local
>  [inside READ 1515] reentrant
>  [inside READ 1514] reentrant
>    has the following parameter:
>      C2{2182} local
>  [inside READ 1513] reentrant
>  [inside LOOP 1511] reentrant
>  LOOP[1507]
>    has the following parameters:
>      S{2180} local
>      C{2181} local
>  [inside LOOP 1502] reentrant
>    has the following parameter:
>      E1{2176} local
>  [inside LOOP 1501] reentrant
>  [inside LOOP 1500] reentrant
>  [inside LOOP 1499] reentrant
>    has the following parameter:
>      E{2174} local
>  LOOP[1498] reentrant
>    has region
>    has the following parameter:
>      S{2173} local
>  [inside READ 1495] reentrant
>  [inside READ 1493] reentrant
>  [inside READ 1492] reentrant
>  [inside READ 1491] reentrant
>  [inside READ 1490] reentrant
>  [inside READ 1489] reentrant
>    has the following parameter:
>      C2{2168} local
>  [inside READ 1488] reentrant
>  [inside READ 1487] reentrant
>  [inside READ 1486] reentrant
>  [inside READ 1484] reentrant
>  [inside LOOP 1478]
>    has the following parameter:
>      C{2166} local
>  [inside READ 1474] reentrant
>  [inside READ 1473] reentrant
>  [inside READ 1462] reentrant
>    has the following parameter:
>      C1{2162} local
>  [inside READ 1461] reentrant
>  [inside READ 1460] reentrant
>  [inside READ 1456]
>    has the following parameters:
>      CLOSE{2135} global
>      DOT{2136} global
>  READ[1454]
>    has the following parameter:
>      PORT{2133} global
>  LOOP[1299]
>    has the following parameter:
>      K{2004} local
>  [inside LIST->VECTOR 1295]
>    has the following parameter:
>      R{2000} local
>  LIST->VECTOR[1294]
>    has the following parameter:
>      LIST{1999} local
>  LOOP[1246]
>    has the following parameter:
>      K{1959} local
>  [inside STRING-COPY 1241]
>    has the following parameter:
>      R{1955} local
>  [inside STRING-COPY 1240]
>    has the following parameter:
>      N{1954} local
>  LOOP[1234]
>    has the following parameter:
>      K{1950} local
>  [inside LIST->STRING 1230]
>    has the following parameter:
>      R{1946} local
>  [inside LOOP? 1086]
>    has the following parameter:
>      v{1777} local
>  LOOP?[1085]
>    has the following parameter:
>      K{1776} local
>  [inside LOOP? 1082]
>    has the following parameter:
>      N{1773} local
>  LOOP?[1081]
>    has the following parameters:
>      STRING1{1770} local
>      STRING2{1771} local
>  [inside top level 1059]
>    has the following parameter:
>      CHAR{1746} local
>  [inside top level 1058]
>    has the following parameter:
>      CHAR-UPCASE{1745} global
>  [inside top level 1051]
>    has the following parameter:
>      CHAR{1738} local
>  [inside top level 1050]
>    has the following parameter:
>      CHAR-WHITESPACE?{1737} global
>  [inside top level 1049]
>    has the following parameter:
>      CHAR{1736} local
>  [inside top level 1048]
>    has the following parameter:
>      CHAR-NUMERIC?{1735} global
>  [inside top level 1047]
>    has the following parameter:
>      CHAR{1734} local
>  [inside top level 1046]
>    has the following parameter:
>      CHAR-ALPHABETIC?{1733} global
>  LOOP?[1019]
>    has the following parameters:
>      CHAR1{1693} local
>      CHAR2{1694} local
>  CHAR-CI=?[1016]
>    has the following parameters:
>      CHAR1{1688} local
>      CHAR2{1689} local
>  LOOP?[1013]
>    has the following parameters:
>      CHAR1{1684} local
>      CHAR2{1685} local
>  CHAR>=?[1010]
>    has the following parameters:
>      CHAR1{1679} local
>      CHAR2{1680} local
>  LOOP?[1007]
>    has the following parameters:
>      CHAR1{1675} local
>      CHAR2{1676} local
>  CHAR<=?[1004]
>    has the following parameters:
>      CHAR1{1670} local
>      CHAR2{1671} local
>  LOOP?[1001]
>    has the following parameters:
>      CHAR1{1666} local
>      CHAR2{1667} local
>  CHAR>?[998]
>    has the following parameters:
>      CHAR1{1661} local
>      CHAR2{1662} local
>  LOOP?[995]
>    has the following parameters:
>      CHAR1{1657} local
>      CHAR2{1658} local
>  CHAR<?[992]
>    has the following parameters:
>      CHAR1{1652} local
>      CHAR2{1653} local
>  LOOP?[989]
>    has the following parameters:
>      CHAR1{1648} local
>      CHAR2{1649} local
>  CHAR=?[986]
>    has the following parameters:
>      CHAR1{1643} local
>      CHAR2{1644} local
>  [inside MODULO 918]
>    has the following parameter:
>      v{1582} local
>  MODULO[917]
>    has the following parameters:
>      N1{1580} local
>      N2{1581} local
>  LOOP[842]
>    has the following parameter:
>      PACKAGE{1490} local
>  [inside top level 836]
>    has the following parameter:
>      FOUND{1486} local
>  [inside top level 818]
>    has the following parameter:
>      PACKAGE{1484} global
>  REVERSE[755]
>    has the following parameter:
>      S{1438} local
>  LOOP[753]
>    has the following parameters:
>      LIST{1436} local
>      R{1437} local
>  LIST-REVERSE[750]
>    has the following parameter:
>      LIST{1433} local
>  LOOP[723]
>    has the following parameter:
>      SS{1415} local
>  LOOP[695]
>    has the following parameter:
>      SS{1394} local
>  [inside LOOP 684]
>    has the following parameter:
>      v{1386} local
>  [inside LOOP 683]
>    has the following parameter:
>      v{1385} local
>  LOOP[682]
>    has the following parameter:
>      SS{1384} local
>  APPEND[678]
>    has the following parameter:
>      SS{1381} local
>  LOOP[646]
>    has the following parameter:
>      K{1362} local
>  LIST[642]
>    has the following parameter:
>      OBJS{1358} local
>  [inside EQV? 585]
>    has the following parameter:
>      v{1297} local
>  TEST[489]
>    has the following parameter:
>      FILE-NAME{1292} local
>  REVBUILDER-DONE[417]
>    has the following parameter:
>      RB{1230} local
>  REVBUILDER-ADD[416]
>    has the following parameters:
>      RB{1228} local
>      NEW{1229} local
>  [inside REVERT-FROM-BACKUPS 413]
>    has the following parameters:
>      BACKUP{1226} local
>      GUY{1227} local
>  [inside REVERT-FROM-BACKUPS 412]
>    has the following parameter:
>      GUY-DOT-BACKUP{1225} local
>  REVERT-FROM-BACKUPS[411]
>    has the following parameter:
>      BACKUP-TABLE{1223} local
>  [inside BACKUP 409]
>    has the following parameter:
>      BACKUP{1222} local
>  [inside GREEDILY-COLLAPSE 406]
>    has the following parameters:
>      UNIQUE-NODES{1215} local
>      UNIQUE-TABLE{1216} local
>      TODO{1217} local
>  GREEDILY-COLLAPSE[405]
>    has the following parameter:
>      ROOT{1214} local
>  [inside FIND-MATCH 400]
>    has the following parameter:
>      X{1211} local
>  [inside FIND-MATCH 398]
>    has the following parameters:
>      SPLICES{1207} local
>      BACKUP-TABLE{1208} local
>      POTENTIAL-MATCH{1209} local
>  FIND-MATCH[397]
>    has region
>    has the following parameter:
>      POTENTIAL-MATCHES{1206} local
>  [inside CONSIDER-NODE 391]
>    has the following parameter:
>      INCHAR{1202} local
>  [inside CONSIDER-NODE 390]
>    has the following parameter:
>      CURDAD{1201} local
>  [inside CONSIDER-NODE 389]
>    has the following parameter:
>      CURNODE{1200} local
>  CONSIDER-NODE[388]
>    has the following parameters:
>      TODO{1197} local
>      UNIQUE-TABLE{1198} local
>      UNIQUE-NODES{1199} local
>  [inside ACCEPT-THE-NODE 386]
>    has the following parameter:
>      X{1196} local
>  ACCEPT-THE-NODE[384]
>    has region
>    has the following parameters:
>      CURNODE{1190} local
>      TODO{1191} global
>      UNIQUE-TABLE{1192} local
>      UNIQUE-NODES{1193} local
>  [inside LOOP 379]
>    has the following parameter:
>      RESULT{1188} local
>  [inside LOOP 378]
>    has the following parameter:
>      G{1187} local
>  [inside LOOP 377]
>    has the following parameter:
>      T{1186} local
>  [inside LOOP 376]
>    has the following parameter:
>      P{1185} local
>  [inside TRY-MERGING 371]
>    has the following parameter:
>      SEARCH-STACK{1181} local
>  TRY-MERGING[370]
>    has region
>    has the following parameters:
>      CURNODE{1177} local
>      POTENTIAL-MATCH{1178} local
>      BACKUP-TABLE{1179} local
>      SPLICES{1180} local
>  [inside CONTINUE-MERGING 366]
>    has the following parameters:
>      TREE-CHILD{1171} local
>      GRAPH-CHILD{1172} local
>  [inside CONTINUE-MERGING 365]
>    has the following parameter:
>      I{1170} local
>  CONTINUE-MERGING[364]
>    has the following parameters:
>      TR-NODE{1165} local
>      GRAPH-NODE{1166} local
>      SEARCH-STACK{1167} local
>      BACKUP-TABLE{1168} local
>      SPLICES{1169} local
>  COMPARE-LABELS[361]
>    has the following parameters:
>      TR-NODE{1160} local
>      GRAPH-NODE{1161} local
>      BACKUP-TABLE{1162} local
>  [inside NEXT-NODE 356]
>    has the following parameter:
>      X{1158} local
>  [inside NEXT-NODE 351]
>    has the following parameter:
>      CURNODE{1155} local
>  [inside NEXT 345]
>    has region
>  [inside NEXT 343]
>    has the following parameter:
>      X{1151} local
>  [inside NEXT 341]
>    has region
>  [inside NEXT 340]
>    has the following parameter:
>      CURNODE{1148} local
>  [inside FANCY-PRINT-TREE 333]
>    has the following parameters:
>      TODO{1138} global
>      ID-TABLE{1139} global
>      SEEN{1140} local
>  FANCY-PRINT-TREE[332]
>    has the following parameter:
>      START-NODE{1136} local
>  NEXT[314]
>    has region
>    has the following parameters:
>      I{1120} local
>      N-MATCHES{1121} local
>      MATCHING-I{1122} local
>  FIND-INCOMING-TOKEN[311]
>    has the following parameters:
>      NODE{1116} local
>      FATHER{1117} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 307]
>    has region
>  [inside BUILD-TREE-FROM-CFORM-FILE 305]
>    has the following parameter:
>      RB2{1112} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 304]
>    has region
>    has the following parameter:
>      STRING-LEN{1111} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 303]
>    has the following parameter:
>      LABEL{1110} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 299]
>    has the following parameter:
>      ROOT{1107} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 297]
>    has the following parameter:
>      N-STRINGS{1105} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 296]
>    has the following parameter:
>      THE-FILE{1104} local
>  BUILD-TREE-FROM-CFORM-FILE[295]
>    has the following parameter:
>      NAME{1103} local
>  [inside AUGMENT-TREE 288]
>    has the following parameter:
>      CURSYM{1097} local
>  AUGMENT-TREE[287]
>    has the following parameters:
>      CURNODE{1094} local
>      STRING{1095} local
>      LABEL{1096} local
>  REPLACE-NODE-CONTENTS[286]
>    has the following parameters:
>      TO{1092} local
>      FROM{1093} local
>  MAKE-DUPLICATE-NODE[285]
>    has the following parameter:
>      X{1091} local
>  [inside MAKE-NODE 284]
>    has the following parameter:
>      I{1090} local
>  [inside MAKE-NODE 282]
>    has the following parameters:
>      NODE{1083} local
>      OLD-COUNTER-VAL{1084} local
>  MAKE-NODE[281]
>    has the following parameter:
>      FATHER{1082} local
>  WALK-CHILDREN[280]
>    has the following parameter:
>      NODE{1081} local
>  SET-CHILD[279]
>    has the following parameters:
>      NODE{1077} local
>      I{1078} local
>      VAL{1079} local
>  SET-FATHER[278]
>    has the following parameters:
>      NODE{1075} local
>      VAL{1076} local
>  SET-STATE-LABEL[277]
>    has the following parameters:
>      NODE{1073} local
>      VAL{1074} local
>  GET-CHILD[276]
>    has the following parameters:
>      NODE{1071} local
>      I{1072} local
>  FATHER[275]
>    has the following parameter:
>      NODE{1070} local
>  [inside VECTOR-REPLACE 270]
>    has the following parameter:
>      I{1066} local
>  VECTOR-REPLACE[269]
>    has the following parameters:
>      TO{1063} local
>      FROM{1064} local
>      LEN{1065} local
>  NEXT[264]
>    has the following parameter:
>      I{1061} local
>  [inside WALK-VECTOR-WITH-OFFSET 261]
>    has the following parameter:
>      VECLEN{1058} local
>  [inside TABLE-TEST-AND-SET! 248]
>    has the following parameter:
>      PROBE{1046} local
>  TABLE-TEST-AND-SET![247]
>    has the following parameters:
>      TABLE{1044} local
>      KEY{1045} local
>  [inside LOOP 242]
>    has the following parameter:
>      P{1043} local
>  LOOP[239]
>    has the following parameter:
>      P{1041} local
>  LOOP[234]
>    has the following parameter:
>      I{1037} local
>  [inside WALK-TABLE 231]
>    has the following parameters:
>      ALISTS{1033} local
>      N-ALISTS{1034} local
>  WALK-TABLE[230]
>    has the following parameter:
>      TABLE{1032} local
>  TABLE-COUNT[229]
>    has the following parameter:
>      TABLE{1030} local
>  [inside TABLE-SET! 224]
>    has the following parameter:
>      PROBE{1027} local
>  [inside TABLE-SET! 223]
>    has the following parameter:
>      HASH{1026} local
>  [inside TABLE-SET! 222]
>    has the following parameter:
>      ALISTS{1025} local
>  [inside TABLE-SET! 221]
>    has the following parameter:
>      N-ALISTS{1024} local
>  TABLE-SET![220]
>    has the following parameters:
>      TABLE{1021} local
>      KEY{1022} local
>      VALUE{1023} local
>  [inside LOOP 215]
>    has the following parameter:
>      NEW-HASH{1020} local
>  [inside LOOP 214]
>    has the following parameter:
>      A{1019} local
>  LOOP[211]
>    has the following parameter:
>      A{1017} local
>  LOOP[206]
>    has the following parameter:
>      I{1013} local
>  [inside TABLE-EXPAND 201]
>    has the following parameter:
>      NEW-ALISTS{1008} local
>  [inside TABLE-EXPAND 200]
>    has the following parameter:
>      NEW-N-ALISTS{1007} local
>  [inside TABLE-EXPAND 199]
>    has the following parameter:
>      OLD-ALISTS{1006} local
>  [inside TABLE-EXPAND 198]
>    has the following parameter:
>      OLD-N-ALISTS{1005} local
>  [inside TABLE-LOOKUP 195]
>    has the following parameter:
>      PROBE{1003} local
>  [inside TABLE-LOOKUP 194]
>    has the following parameter:
>      HASH{1002} local
>  [inside TABLE-LOOKUP 193]
>    has the following parameter:
>      ALISTS{1001} local
>  [inside TABLE-LOOKUP 192]
>    has the following parameter:
>      N-ALISTS{1000} local
>  [inside TABLE-TEST 189]
>    has the following parameter:
>      PROBE{997} local
>  [inside TABLE-TEST 188]
>    has the following parameter:
>      HASH{996} local
>  [inside TABLE-TEST 187]
>    has the following parameter:
>      ALISTS{995} local
>  [inside TABLE-TEST 186]
>    has the following parameter:
>      N-ALISTS{994} local
>  TABLE-SET-ALISTS[184]
>    has the following parameters:
>      TABLE{990} local
>      NEW{991} local
>  TABLE-SET-N-ALISTS[183]
>    has the following parameters:
>      TABLE{988} local
>      NEW{989} local
>  [inside MAKE-COUNTER 176]
>    has the following parameter:
>      OLD-COUNT{981} local
>  [inside MAKE-COUNTER 174]
>    has the following parameter:
>      COUNT{980} global
>  NORMALIZE-QUEUE![167]
>    has the following parameter:
>      Q{976} local
>  [inside QUEUE-POP 165]
>    has the following parameter:
>      HEAD{974} local
>  QUEUE-PUSH[162]
>    has the following parameters:
>      Q{970} local
>      OBJ{971} local
>  [inside STACK-POP 158]
>    has the following parameter:
>      L{967} local
>  STACK-POP[157]
>    has the following parameter:
>      S{966} local
>  STACK-EMPTY?[155]
>    has the following parameter:
>      S{963} local
>  [inside READ-INT 139]
>    has the following parameter:
>      VAL{949} local
>  LOOP[125]
>    has the following parameter:
>      I{939} local
>  DO-TIMES-UP[122]
>    has the following parameter:
>      N{935} local
>  LOOP[117]
>    has the following parameter:
>      L{933} local
>  WALK-LIST[114]
>    has the following parameter:
>      L{929} local
>  LOOP[49]
>    has the following parameter:
>      I{873} local
>  [inside COPY-VECTOR 44]
>    has the following parameter:
>      TO{869} local
>  [inside COPY-VECTOR 43]
>    has the following parameter:
>      LEN{868} local
>  COPY-VECTOR[42]
>    has the following parameter:
>      FROM{867} local
>  [inside LOOP 30]
>    has the following parameter:
>      C2{860} local
>  [inside LOOP 29]
>    has the following parameter:
>      C{859} local
>  LOOP[28]
>    has the following parameters:
>      I{857} local
>      VALUES{858} local
>  ADD-ONE[10]
>    has the following parameter:
>      X{842} local
>  SET-BOX![8]
>    has the following parameters:
>      X{838} local
>      Y{839} local
>  BOX[6]
>    has the following parameter:
>      X{836} local
>  [inside top level 4]
>    has the following parameters:
>      GLOBAL-NODE-COUNTER{677} local
>      ALPHABET-SIZE{688} local
>The following expression allocates on [inside BUILD-TREE-FROM-CFORM-FILE 307]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, dfa-stalin.sc:375:10956, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa-stalin.sc:375:10962, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa-stalin.sc:375:10956, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa-stalin.sc:375:10962, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa-stalin.sc:375:10956, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa-stalin.sc:375:10962, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa-stalin.sc:458:12977, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) 3 (UNBOX ALPHABET-SIZE)))
>The following expression allocates on [inside READ-SYMBOL 1814]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside READ-SYMBOL 1811]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on READ-INT[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on LOOP[1623]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside LOOP 1642]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, dfa-stalin.sc:7:146, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:7:146, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:7:146, allocates on [inside BUILD-TREE-FROM-CFORM-FILE 304]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:7:146, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:7:146, allocates on FIND-MATCH[397]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:7:146, allocates on TRY-MERGING[370]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1827]:
>(READ-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1827]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1809]:
>(READ-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1809]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CHAR-UPCASE C) S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1771]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1772]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1781]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1776]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1760]:
>(READ-CHAR PORT)
>The following expression allocates on READ-NUMBER[1755]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1737]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1738]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1747]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1742]:
>(READ-CHAR PORT)
>The following expression allocates on READ-INEXACT-NUMBER[1723]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1713]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1713]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1713]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-DECIMAL-INTEGER[1707]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-OCTAL-INTEGER[1701]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1693]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1693]:
>(READ-CHAR PORT)
>The following expression allocates on READ[1459]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1691]:
>(LIST (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1680]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1685]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1686]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1683]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1663]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1677]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1678]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1668]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1669]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1674]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1675]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1672]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1666]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1646]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1660]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1661]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1651]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1652]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1657]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1658]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1655]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1649]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1635]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on LOOP[1635]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1635]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C1 S)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1626]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1628]:
>(LIST C3)
>The following expression allocates on LOOP[1623]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on [inside READ 1596]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1610]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1602]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1562]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1587]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1576]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1580]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1565]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1569]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1543]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1553]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1547]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1521]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1533]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1526]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1498]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on READ-INT[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) E1)
>The following expression allocates on READ-INT[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) C)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-INT[138]:
>(LIST (QUOTE UNQUOTE) (READ (QUOTE UNQUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on READ-INT[138]:
>(LIST (QUOTE UNQUOTE-SPLICING) (READ (QUOTE UNQUOTE-SPLICING)))
>The following expression allocates on READ-INT[138]:
>(LIST (QUOTE QUASIQUOTE) (READ (QUOTE QUASIQUOTE)))
>The following expression allocates on READ-INT[138]:
>(LIST (QUOTE QUOTE) (READ (QUOTE QUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on READ-INT[138]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) N)
>The following expression allocates on READ-INT[138]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (STRING-COPY STRING) PACKAGE)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, dfa-stalin.sc:685:20057, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW (UNBOX RB))
>The following expression, dfa-stalin.sc:671:19680, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GUY BACKUP)
>The following expression, dfa-stalin.sc:629:18133, allocates on ACCEPT-THE-NODE[384]:
>(APPEND (UNBOX UNIQUE-NODES) (LIST CURNODE))
>The following expression, dfa-stalin.sc:629:18162, allocates on the heap:
>(LIST CURNODE)
>The following expression, dfa-stalin.sc:614:17725, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CURNODE POTENTIAL-MATCH)
>The following expression, dfa-stalin.sc:609:17528, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GRAPH-NODE TREE-CHILD) (UNBOX SPLICES))
>The following expression, dfa-stalin.sc:609:17534, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GRAPH-NODE TREE-CHILD)
>The following expression, dfa-stalin.sc:602:17305, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TREE-CHILD GRAPH-CHILD)
>The following expression, dfa-stalin.sc:561:16005, allocates on the heap:
>(PORMAT-FUNCTION "~a ~a~%" (COUNT) (UNBOX ALPHABET-SIZE))
>The following expression, dfa-stalin.sc:574:16429, allocates on [inside NEXT 345]:
>(PORMAT-FUNCTION "~a " (TABLE-LOOKUP ID-TABLE (GLOID X)))
>The following expression, dfa-stalin.sc:566:16211, allocates on [inside NEXT 341]:
>(PORMAT-FUNCTION "~a ~a " (TABLE-LOOKUP ID-TABLE (GLOID CURNODE)) (STATE-LABEL CURNODE))
>The following expression, dfa-stalin.sc:514:14649, allocates on NEXT[314]:
>(SCREAM "horrible bug in find-incoming-token ~a ~a ~a" N-MATCHES NODE FATHER)
>The following expression, dfa-stalin.sc:458:12977, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) 3 (UNBOX ALPHABET-SIZE)))
>The following expression, dfa-stalin.sc:375:10956, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa-stalin.sc:375:10962, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa-stalin.sc:351:10186, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) NEW-N-ALISTS (QUOTE ()))
>The following expression, dfa-stalin.sc:360:10489, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) A ((PRIMITIVE-PROCEDURE VECTOR-REF) NEW-ALISTS NEW-HASH))
>The following expression, dfa-stalin.sc:322:9128, allocates on the heap:
>((PRIMITIVE-PROCEDURE VECTOR) (QUOTE TABLE) 0 1 ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1 (QUOTE ())))
>The following expression, dfa-stalin.sc:322:9147, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1 (QUOTE ()))
>The following expression, dfa-stalin.sc:298:8636, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa-stalin.sc:291:8507, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) (QUOTE ()))
>The following expression, dfa-stalin.sc:283:8381, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ (UNBOX S))
>The following expression, dfa-stalin.sc:254:7611, allocates on the stack:
>(READ FILE)
>The following expression, dfa-stalin.sc:257:7662, allocates on the stack:
>(SCREAM "bogus value ~a" VAL)
>The following expression, dfa-stalin.sc:61:1241, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) LEN 0)
>The following expression, dfa-stalin.sc:7:146, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE BOX) X)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W27472 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W25911 is general case for the following reasons:
>  flonum
>W24470 is general case for the following reasons:
>  flonum
>W24469 is general case for the following reasons:
>  flonum
>W15651 is general case for the following reasons:
>  flonum
>W15650 is general case for the following reasons:
>  flonum
>W15633 is general case for the following reasons:
>  flonum
>W15222 is general case for the following reasons:
>  flonum
>W15189 is general case for the following reasons:
>  flonum
>W15188 is general case for the following reasons:
>  flonum
>W15187 is general case for the following reasons:
>  flonum
>W13058 is general case for the following reasons:
>  flonum
>W13050 is general case for the following reasons:
>  flonum
>W13042 is general case for the following reasons:
>  flonum
>W13033 is general case for the following reasons:
>  flonum
>W706 is general case for the following reasons:
>  flonum
>W628 is general case for the following reasons:
>  flonum
>W131 is general case for the following reasons:
>  flonum
>W22 is general case for the following reasons:
>  flonum
>W2 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>dfa-stalin.c: In function âf1809â:
>dfa-stalin.c:3649:30: warning: value computed is not used
>dfa-stalin.c: In function âf1755â:
>dfa-stalin.c:5003:30: warning: value computed is not used
>dfa-stalin.c:5126:30: warning: value computed is not used
>dfa-stalin.c:5650:30: warning: value computed is not used
>dfa-stalin.c: In function âf1723â:
>dfa-stalin.c:6501:30: warning: value computed is not used
>dfa-stalin.c:7047:30: warning: value computed is not used
>dfa-stalin.c: In function âf1713â:
>dfa-stalin.c:7732:31: warning: value computed is not used
>dfa-stalin.c:7891:31: warning: value computed is not used
>dfa-stalin.c:8052:30: warning: value computed is not used
>dfa-stalin.c: In function âf1707â:
>dfa-stalin.c:8227:31: warning: value computed is not used
>dfa-stalin.c: In function âf1701â:
>dfa-stalin.c:8491:31: warning: value computed is not used
>dfa-stalin.c: In function âf1693â:
>dfa-stalin.c:8716:31: warning: value computed is not used
>dfa-stalin.c:8815:31: warning: value computed is not used
>dfa-stalin.c: In function âf1459â:
>dfa-stalin.c:11672:31: warning: value computed is not used
>dfa-stalin.c:16897:31: warning: value computed is not used
>dfa-stalin.c:17576:31: warning: value computed is not used
>dfa-stalin.c:17696:31: warning: value computed is not used
>dfa-stalin.c:17832:31: warning: value computed is not used
>dfa-stalin.c:18082:31: warning: value computed is not used
>dfa-stalin.c:18436:31: warning: value computed is not used
>dfa-stalin.c:18724:31: warning: value computed is not used
>dfa-stalin.c:18859:31: warning: value computed is not used
>dfa-stalin.c:18995:31: warning: value computed is not used
>dfa-stalin.c:19247:31: warning: value computed is not used
>dfa-stalin.c:19601:31: warning: value computed is not used
>dfa-stalin.c:19888:31: warning: value computed is not used
>dfa-stalin.c:20137:31: warning: value computed is not used
>dfa-stalin.c: In function âf0â:
>dfa-stalin.c:23976:6: warning: ât3318â may be used uninitialized in this function
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     1 -  8% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  2% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     2 -  9% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  2% - Determining which types and type sets are used
>     3 - 14% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     1 -  3% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     2 -  9% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     1 -  6% - Determining which environments are reentrant
>     0 -  1% - Asserting uniqueness
>     2 - 10% - Performing lightweight closure conversion
>     0 -  2% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  2% - Determining which environments have external continuation calls
>     1 -  4% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     2 - 14% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m24.989s
>user	0m24.460s
>sys	0m0.509s
>run dfa
>
>real	0m0.174s
>user	0m0.152s
>sys	0m0.015s
>compile dfa2
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18477 expressions
>    13 internal symbol types
>     1 external symbol type
>    70 primitive procedure types
>   185 non-called native procedure types
>   451 called noop native procedure types
>   826 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   134 structure types
>    13 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 21244 type sets
>   736 hunoz variables
>  1755 non-hunoz variables
>   579 noop environments
>  1793 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 26876 expressions
>    13 internal symbol types
>     1 external symbol type
>    70 primitive procedure types
>   185 non-called native procedure types
>   596 called noop native procedure types
>  1484 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   151 structure types
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 30819 type sets
>   889 hunoz variables
>  3036 non-hunoz variables
>   724 noop environments
>  2876 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
> 16645 expressions
>    13 internal symbol types
>     1 external symbol type
>    70 primitive procedure types
>   185 non-called native procedure types
>   596 called noop native procedure types
>  1484 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     3 string types
>   151 structure types
>    14 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19655 type sets
>   690 hunoz variables
>  2302 non-hunoz variables
>     0 noop environments
>  1777 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 6
>Maximal clone rate is 108
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  DISPLAY[2346]
>    has the following parameter:
>      OBJ{2695} local
>  DISPLAY2[1985] reentrant
>    has the following parameters:
>      OBJ{2473} local
>      PORT{2474} local
>    has the following in-lined locals:
>      NUMBER{2428}
>      PORT{2429}
>      MANTISSA{2433}
>      EXPONENT{2434}
>      MANTISSA{2437}
>      EXPONENT{2438}
>      OBJ{2478}
>      I{2490}
>  DISPLAY-MANTISSA-EXPONENT2[1887]
>    has the following parameters:
>      MANTISSA{2412} local
>      EXPONENT{2413} local
>      PORT{2414} local
>    has the following in-lined locals:
>      FLOAT-DIGIT{2415}
>      DIGIT{2416}
>      MANTISSA{2423}
>      FLOAT-DIGIT{2424}
>      DIGIT{2425}
>      MANTISSA{2427}
>  DISPLAY-EXACT-INTEGER2[1858]
>    has the following parameters:
>      NUMBER{2391} local
>      PORT{2392} local
>    has the following in-lined locals:
>      I{2395}
>      NUMBER{2396}
>      I{2399}
>      I{2405}
>      NUMBER{2406}
>      I{2409}
>  DISPLAY-STRING2[1849]
>    has the following parameters:
>      STRING{2384} local
>      PORT{2385} local
>    has the following in-lined locals:
>      N{2386}
>      I{2389}
>  LOOKUP-CHARACTER-NAME[1805]
>    has the following parameter:
>      S{2329} local
>    has the following in-lined locals:
>      CHAR1{1677}
>      CHAR2{1678}
>      CHAR1{1682}
>      CHAR2{1683}
>      NAMES{2332}
>      S{2336}
>      NAME{2337}
>      v{2338}
>      CHAR{2719}
>      CHAR{2720}
>  READ-SYMBOL[1799]
>    has region
>    has the following parameter:
>      S{2326} local
>    has the following in-lined locals:
>      C{2327}
>      CHAR{2721}
>      &REST{2813}
>      &REST{2865}
>      LIST{3890}
>      LIST{3893}
>      R{3894}
>      LIST{3895}
>      LIST{3898}
>      R{3899}
>      C{3920}
>      v{3921}
>      v{3922}
>      v{3923}
>      v{3924}
>      CHAR{3989}
>      CHAR1{3990}
>      CHAR2{3991}
>      CHAR1{3995}
>      CHAR2{3996}
>      CHAR1{3999}
>      CHAR2{4000}
>      CHAR1{4004}
>      CHAR2{4005}
>      CHAR1{4008}
>      CHAR2{4009}
>      CHAR1{4013}
>      CHAR2{4014}
>  CHAR-INITIAL?[1779]
>    has the following parameter:
>      C{2306} local
>    has the following in-lined locals:
>      v{2307}
>      v{2308}
>      v{2309}
>      v{2310}
>      v{2311}
>      v{2312}
>      v{2313}
>      v{2314}
>      v{2315}
>      v{2316}
>      v{2317}
>      v{2318}
>      v{2319}
>      v{2320}
>      CHAR{2749}
>      CHAR1{3650}
>      CHAR2{3651}
>      CHAR1{3655}
>      CHAR2{3656}
>      CHAR1{3659}
>      CHAR2{3660}
>      CHAR1{3664}
>      CHAR2{3665}
>      CHAR1{3668}
>      CHAR2{3669}
>      CHAR1{3673}
>      CHAR2{3674}
>      CHAR1{3677}
>      CHAR2{3678}
>      CHAR1{3682}
>      CHAR2{3683}
>      CHAR1{3686}
>      CHAR2{3687}
>      CHAR1{3691}
>      CHAR2{3692}
>      CHAR1{3695}
>      CHAR2{3696}
>      CHAR1{3700}
>      CHAR2{3701}
>      CHAR1{3704}
>      CHAR2{3705}
>      CHAR1{3709}
>      CHAR2{3710}
>      CHAR1{3713}
>      CHAR2{3714}
>      CHAR1{3718}
>      CHAR2{3719}
>      CHAR1{3722}
>      CHAR2{3723}
>      CHAR1{3727}
>      CHAR2{3728}
>      CHAR1{3731}
>      CHAR2{3732}
>      CHAR1{3736}
>      CHAR2{3737}
>      CHAR1{3740}
>      CHAR2{3741}
>      CHAR1{3745}
>      CHAR2{3746}
>      CHAR1{3749}
>      CHAR2{3750}
>      CHAR1{3754}
>      CHAR2{3755}
>      CHAR1{3758}
>      CHAR2{3759}
>      CHAR1{3763}
>      CHAR2{3764}
>      CHAR1{3767}
>      CHAR2{3768}
>      CHAR1{3772}
>      CHAR2{3773}
>  READ-NUMBER[1745]
>    has region
>    has the following parameter:
>      N{2284} local
>    has the following in-lined locals:
>      CHAR1{1632}
>      CHAR2{1633}
>      CHAR1{1637}
>      CHAR2{1638}
>      CHAR{1725}
>      C1{2285}
>      v{2288}
>      v{2289}
>      v{2290}
>      v{2291}
>      v{2292}
>      v{2293}
>      v{2294}
>      v{2295}
>      v{2296}
>      C2{2298}
>      C3{2300}
>      C3{2303}
>      &REST{2690}
>      CHAR{2723}
>      CHAR{2724}
>      CHAR{2745}
>      &REST{2812}
>      &REST{2814}
>      &REST{2815}
>      &REST{2816}
>      &REST{2817}
>      &REST{2864}
>      CHAR1{3047}
>      CHAR2{3048}
>      CHAR1{3052}
>      CHAR2{3053}
>      CHAR1{3515}
>      CHAR2{3516}
>      CHAR1{3520}
>      CHAR2{3521}
>      CHAR1{3524}
>      CHAR2{3525}
>      CHAR1{3529}
>      CHAR2{3530}
>      CHAR1{3533}
>      CHAR2{3534}
>      CHAR1{3538}
>      CHAR2{3539}
>      CHAR1{3542}
>      CHAR2{3543}
>      CHAR1{3547}
>      CHAR2{3548}
>      CHAR1{3551}
>      CHAR2{3552}
>      CHAR1{3556}
>      CHAR2{3557}
>      CHAR1{3560}
>      CHAR2{3561}
>      CHAR1{3565}
>      CHAR2{3566}
>      CHAR1{3569}
>      CHAR2{3570}
>      CHAR1{3574}
>      CHAR2{3575}
>      CHAR1{3578}
>      CHAR2{3579}
>      CHAR1{3583}
>      CHAR2{3584}
>      CHAR1{3587}
>      CHAR2{3588}
>      CHAR1{3592}
>      CHAR2{3593}
>      CHAR1{3596}
>      CHAR2{3597}
>      CHAR1{3601}
>      CHAR2{3602}
>      CHAR1{3605}
>      CHAR2{3606}
>      CHAR1{3610}
>      CHAR2{3611}
>  READ-INEXACT-NUMBER[1713]
>    has region
>    has the following parameters:
>      N{2262} local
>      M{2263} local
>    has the following in-lined locals:
>      C1{2264}
>      v{2266}
>      v{2267}
>      v{2268}
>      v{2269}
>      v{2270}
>      v{2271}
>      v{2272}
>      v{2273}
>      v{2274}
>      C2{2276}
>      C3{2278}
>      C3{2281}
>      CHAR{2734}
>      CHAR{2736}
>      CHAR{2737}
>      CHAR{2738}
>      &REST{2808}
>      &REST{2845}
>      &REST{2846}
>      &REST{2848}
>      &REST{2849}
>      &REST{2850}
>      CHAR1{3218}
>      CHAR2{3219}
>      CHAR1{3223}
>      CHAR2{3224}
>      CHAR1{3227}
>      CHAR2{3228}
>      CHAR1{3232}
>      CHAR2{3233}
>      CHAR1{3236}
>      CHAR2{3237}
>      CHAR1{3241}
>      CHAR2{3242}
>      CHAR1{3245}
>      CHAR2{3246}
>      CHAR1{3250}
>      CHAR2{3251}
>      CHAR1{3254}
>      CHAR2{3255}
>      CHAR1{3259}
>      CHAR2{3260}
>      CHAR1{3263}
>      CHAR2{3264}
>      CHAR1{3268}
>      CHAR2{3269}
>      CHAR1{3272}
>      CHAR2{3273}
>      CHAR1{3277}
>      CHAR2{3278}
>      CHAR1{3281}
>      CHAR2{3282}
>      CHAR1{3286}
>      CHAR2{3287}
>      CHAR1{3290}
>      CHAR2{3291}
>      CHAR1{3295}
>      CHAR2{3296}
>      CHAR1{3299}
>      CHAR2{3300}
>      CHAR1{3304}
>      CHAR2{3305}
>      CHAR1{3308}
>      CHAR2{3309}
>      CHAR1{3313}
>      CHAR2{3314}
>      CHAR1{3317}
>      CHAR2{3318}
>      CHAR1{3322}
>      CHAR2{3323}
>  READ-EXACT-HEXADECIMAL-INTEGER[1703]
>    has region
>    has the following parameter:
>      N{2257} local
>    has the following in-lined locals:
>      C{2258}
>      CHAR{2742}
>      &REST{2809}
>      &REST{2853}
>      &REST{2854}
>      &REST{2856}
>      CHAR1{2894}
>      CHAR2{2895}
>      CHAR1{2899}
>      CHAR2{2900}
>      CHAR1{2903}
>      CHAR2{2904}
>      CHAR1{2908}
>      CHAR2{2909}
>      CHAR1{2975}
>      CHAR2{2976}
>      CHAR1{2980}
>      CHAR2{2981}
>      CHAR1{2984}
>      CHAR2{2985}
>      CHAR1{2989}
>      CHAR2{2990}
>  READ-EXACT-DECIMAL-INTEGER[1697]
>    has region
>    has the following parameter:
>      N{2254} local
>    has the following in-lined locals:
>      C{2255}
>      CHAR{2735}
>      &REST{2807}
>      &REST{2847}
>  READ-EXACT-OCTAL-INTEGER[1691]
>    has region
>    has the following parameter:
>      N{2251} local
>    has the following in-lined locals:
>      CHAR1{1668}
>      CHAR2{1669}
>      CHAR1{1673}
>      CHAR2{1674}
>      C{2252}
>      &REST{2806}
>      &REST{2838}
>      CHAR1{2948}
>      CHAR2{2949}
>      CHAR1{2953}
>      CHAR2{2954}
>  READ-EXACT-BINARY-INTEGER[1683]
>    has region
>    has the following parameter:
>      N{2247} local
>    has the following in-lined locals:
>      C{2248}
>      &REST{2805}
>      &REST{2833}
>      &REST{2834}
>      CHAR1{3110}
>      CHAR2{3111}
>      CHAR1{3115}
>      CHAR2{3116}
>      CHAR1{3119}
>      CHAR2{3120}
>      CHAR1{3124}
>      CHAR2{3125}
>  READ[1449] reentrant
>    has region
>    has the following parameter:
>      STATE{2128} local
>    has the following in-lined locals:
>      CHAR1{1641}
>      CHAR2{1642}
>      CHAR1{1646}
>      CHAR2{1647}
>      CHAR1{1650}
>      CHAR2{1651}
>      CHAR1{1655}
>      CHAR2{1656}
>      CHAR1{1659}
>      CHAR2{1660}
>      CHAR1{1664}
>      CHAR2{1665}
>      CHAR{1723}
>      CHAR{1727}
>      CHAR{1735}
>      LIST{1988}
>      R{1989}
>      K{1993}
>      C1{2151}
>      C{2155}
>      C2{2157}
>      S{2162}
>      E{2163}
>      E1{2165}
>      S{2169}
>      C{2170}
>      C2{2171}
>      v{2173}
>      v{2174}
>      v{2175}
>      C3{2176}
>      C4{2178}
>      C4{2180}
>      v{2182}
>      C3{2183}
>      C4{2185}
>      v{2188}
>      C4{2189}
>      v{2192}
>      v{2193}
>      C3{2194}
>      C4{2196}
>      C5{2198}
>      C4{2201}
>      C5{2203}
>      C4{2206}
>      v{2209}
>      C3{2210}
>      C4{2212}
>      C4{2214}
>      S{2218}
>      E{2219}
>      C3{2220}
>      S{2224}
>      C{2225}
>      C1{2227}
>      C2{2229}
>      C3{2232}
>      C2{2236}
>      C3{2239}
>      C2{2243}
>      C{2321}
>      v{2322}
>      v{2323}
>      v{2324}
>      v{2325}
>      S{2339}
>      C{2340}
>      &REST{2691}
>      CHAR{2708}
>      CHAR{2709}
>      CHAR{2710}
>      CHAR{2711}
>      CHAR{2712}
>      CHAR{2713}
>      CHAR{2714}
>      CHAR{2715}
>      CHAR{2716}
>      CHAR{2717}
>      CHAR{2718}
>      CHAR{2722}
>      CHAR{2725}
>      CHAR{2726}
>      CHAR{2727}
>      CHAR{2728}
>      CHAR{2729}
>      CHAR{2730}
>      CHAR{2731}
>      CHAR{2732}
>      CHAR{2733}
>      CHAR{2739}
>      CHAR{2740}
>      CHAR{2741}
>      CHAR{2743}
>      CHAR{2744}
>      CHAR{2746}
>      CHAR{2747}
>      CHAR{2748}
>      OBJS{2750}
>      OBJS{2751}
>      OBJS{2752}
>      OBJS{2753}
>      OBJS{2754}
>      OBJS{2755}
>      OBJS{2756}
>      OBJS{2757}
>      OBJS{2758}
>      OBJS{2759}
>      OBJS{2760}
>      &REST{2801}
>      &REST{2802}
>      &REST{2803}
>      &REST{2804}
>      &REST{2810}
>      &REST{2811}
>      &REST{2818}
>      &REST{2819}
>      &REST{2820}
>      &REST{2821}
>      &REST{2822}
>      &REST{2823}
>      &REST{2824}
>      &REST{2825}
>      &REST{2826}
>      &REST{2827}
>      &REST{2828}
>      &REST{2829}
>      &REST{2830}
>      &REST{2831}
>      &REST{2832}
>      &REST{2835}
>      &REST{2836}
>      &REST{2837}
>      &REST{2839}
>      &REST{2840}
>      &REST{2841}
>      &REST{2842}
>      &REST{2843}
>      &REST{2844}
>      &REST{2851}
>      &REST{2852}
>      &REST{2855}
>      &REST{2857}
>      &REST{2858}
>      &REST{2859}
>      &REST{2860}
>      &REST{2861}
>      &REST{2862}
>      &REST{2863}
>      &REST{2866}
>      CHAR1{2867}
>      CHAR2{2868}
>      CHAR1{2872}
>      CHAR2{2873}
>      CHAR1{2876}
>      CHAR2{2877}
>      CHAR1{2881}
>      CHAR2{2882}
>      CHAR1{2885}
>      CHAR2{2886}
>      CHAR1{2890}
>      CHAR2{2891}
>      CHAR1{2912}
>      CHAR2{2913}
>      CHAR1{2917}
>      CHAR2{2918}
>      CHAR1{2921}
>      CHAR2{2922}
>      CHAR1{2926}
>      CHAR2{2927}
>      CHAR1{2930}
>      CHAR2{2931}
>      CHAR1{2935}
>      CHAR2{2936}
>      CHAR1{2939}
>      CHAR2{2940}
>      CHAR1{2944}
>      CHAR2{2945}
>      CHAR1{2957}
>      CHAR2{2958}
>      CHAR1{2962}
>      CHAR2{2963}
>      CHAR1{2966}
>      CHAR2{2967}
>      CHAR1{2971}
>      CHAR2{2972}
>      CHAR1{2993}
>      CHAR2{2994}
>      CHAR1{2998}
>      CHAR2{2999}
>      CHAR1{3002}
>      CHAR2{3003}
>      CHAR1{3007}
>      CHAR2{3008}
>      CHAR1{3011}
>      CHAR2{3012}
>      CHAR1{3016}
>      CHAR2{3017}
>      CHAR1{3020}
>      CHAR2{3021}
>      CHAR1{3025}
>      CHAR2{3026}
>      CHAR1{3029}
>      CHAR2{3030}
>      CHAR1{3034}
>      CHAR2{3035}
>      CHAR1{3038}
>      CHAR2{3039}
>      CHAR1{3043}
>      CHAR2{3044}
>      CHAR1{3056}
>      CHAR2{3057}
>      CHAR1{3061}
>      CHAR2{3062}
>      CHAR1{3065}
>      CHAR2{3066}
>      CHAR1{3070}
>      CHAR2{3071}
>      CHAR1{3074}
>      CHAR2{3075}
>      CHAR1{3079}
>      CHAR2{3080}
>      CHAR1{3083}
>      CHAR2{3084}
>      CHAR1{3088}
>      CHAR2{3089}
>      CHAR1{3092}
>      CHAR2{3093}
>      CHAR1{3097}
>      CHAR2{3098}
>      CHAR1{3101}
>      CHAR2{3102}
>      CHAR1{3106}
>      CHAR2{3107}
>      CHAR1{3128}
>      CHAR2{3129}
>      CHAR1{3133}
>      CHAR2{3134}
>      CHAR1{3137}
>      CHAR2{3138}
>      CHAR1{3142}
>      CHAR2{3143}
>      CHAR1{3146}
>      CHAR2{3147}
>      CHAR1{3151}
>      CHAR2{3152}
>      CHAR1{3155}
>      CHAR2{3156}
>      CHAR1{3160}
>      CHAR2{3161}
>      CHAR1{3164}
>      CHAR2{3165}
>      CHAR1{3169}
>      CHAR2{3170}
>      CHAR1{3173}
>      CHAR2{3174}
>      CHAR1{3178}
>      CHAR2{3179}
>      CHAR1{3182}
>      CHAR2{3183}
>      CHAR1{3187}
>      CHAR2{3188}
>      CHAR1{3191}
>      CHAR2{3192}
>      CHAR1{3196}
>      CHAR2{3197}
>      CHAR1{3200}
>      CHAR2{3201}
>      CHAR1{3205}
>      CHAR2{3206}
>      CHAR1{3209}
>      CHAR2{3210}
>      CHAR1{3214}
>      CHAR2{3215}
>      CHAR1{3326}
>      CHAR2{3327}
>      CHAR1{3331}
>      CHAR2{3332}
>      CHAR1{3335}
>      CHAR2{3336}
>      CHAR1{3340}
>      CHAR2{3341}
>      CHAR1{3344}
>      CHAR2{3345}
>      CHAR1{3349}
>      CHAR2{3350}
>      CHAR1{3353}
>      CHAR2{3354}
>      CHAR1{3358}
>      CHAR2{3359}
>      CHAR1{3362}
>      CHAR2{3363}
>      CHAR1{3367}
>      CHAR2{3368}
>      CHAR1{3371}
>      CHAR2{3372}
>      CHAR1{3376}
>      CHAR2{3377}
>      CHAR1{3380}
>      CHAR2{3381}
>      CHAR1{3385}
>      CHAR2{3386}
>      CHAR1{3389}
>      CHAR2{3390}
>      CHAR1{3394}
>      CHAR2{3395}
>      CHAR1{3398}
>      CHAR2{3399}
>      CHAR1{3403}
>      CHAR2{3404}
>      CHAR1{3407}
>      CHAR2{3408}
>      CHAR1{3412}
>      CHAR2{3413}
>      CHAR1{3416}
>      CHAR2{3417}
>      CHAR1{3421}
>      CHAR2{3422}
>      CHAR1{3425}
>      CHAR2{3426}
>      CHAR1{3430}
>      CHAR2{3431}
>      CHAR1{3434}
>      CHAR2{3435}
>      CHAR1{3439}
>      CHAR2{3440}
>      CHAR1{3443}
>      CHAR2{3444}
>      CHAR1{3448}
>      CHAR2{3449}
>      CHAR1{3452}
>      CHAR2{3453}
>      CHAR1{3457}
>      CHAR2{3458}
>      CHAR1{3461}
>      CHAR2{3462}
>      CHAR1{3466}
>      CHAR2{3467}
>      CHAR1{3470}
>      CHAR2{3471}
>      CHAR1{3475}
>      CHAR2{3476}
>      CHAR1{3479}
>      CHAR2{3480}
>      CHAR1{3484}
>      CHAR2{3485}
>      CHAR1{3488}
>      CHAR2{3489}
>      CHAR1{3493}
>      CHAR2{3494}
>      CHAR1{3497}
>      CHAR2{3498}
>      CHAR1{3502}
>      CHAR2{3503}
>      CHAR1{3506}
>      CHAR2{3507}
>      CHAR1{3511}
>      CHAR2{3512}
>      CHAR1{3623}
>      CHAR2{3624}
>      CHAR1{3628}
>      CHAR2{3629}
>      CHAR1{3632}
>      CHAR2{3633}
>      CHAR1{3637}
>      CHAR2{3638}
>      CHAR1{3641}
>      CHAR2{3642}
>      CHAR1{3646}
>      CHAR2{3647}
>      CHAR1{3776}
>      CHAR2{3777}
>      CHAR1{3781}
>      CHAR2{3782}
>      CHAR1{3785}
>      CHAR2{3786}
>      CHAR1{3790}
>      CHAR2{3791}
>      CHAR1{3794}
>      CHAR2{3795}
>      CHAR1{3799}
>      CHAR2{3800}
>      CHAR1{3803}
>      CHAR2{3804}
>      CHAR1{3808}
>      CHAR2{3809}
>      CHAR1{3812}
>      CHAR2{3813}
>      CHAR1{3817}
>      CHAR2{3818}
>      CHAR1{3821}
>      CHAR2{3822}
>      CHAR1{3826}
>      CHAR2{3827}
>      CHAR1{3830}
>      CHAR2{3831}
>      CHAR1{3835}
>      CHAR2{3836}
>      CHAR1{3839}
>      CHAR2{3840}
>      CHAR1{3844}
>      CHAR2{3845}
>      CHAR1{3848}
>      CHAR2{3849}
>      CHAR1{3853}
>      CHAR2{3854}
>      CHAR1{3857}
>      CHAR2{3858}
>      CHAR1{3862}
>      CHAR2{3863}
>      CHAR1{3866}
>      CHAR2{3867}
>      CHAR1{3871}
>      CHAR2{3872}
>      LIST{3875}
>      LIST{3878}
>      R{3879}
>      LIST{3880}
>      LIST{3883}
>      R{3884}
>      LIST{3885}
>      LIST{3888}
>      R{3889}
>      C{3900}
>      v{3901}
>      v{3902}
>      v{3903}
>      v{3904}
>      C{3905}
>      v{3906}
>      v{3907}
>      v{3908}
>      v{3909}
>      C{3910}
>      v{3911}
>      v{3912}
>      v{3913}
>      v{3914}
>      C{3915}
>      v{3916}
>      v{3917}
>      v{3918}
>      v{3919}
>      CHAR{4017}
>      CHAR1{4018}
>      CHAR2{4019}
>      CHAR1{4023}
>      CHAR2{4024}
>      CHAR1{4027}
>      CHAR2{4028}
>      CHAR1{4032}
>      CHAR2{4033}
>      CHAR1{4036}
>      CHAR2{4037}
>      CHAR1{4041}
>      CHAR2{4042}
>      CHAR{4045}
>      CHAR1{4046}
>      CHAR2{4047}
>      CHAR1{4051}
>      CHAR2{4052}
>      CHAR1{4055}
>      CHAR2{4056}
>      CHAR1{4060}
>      CHAR2{4061}
>      CHAR1{4064}
>      CHAR2{4065}
>      CHAR1{4069}
>      CHAR2{4070}
>      CHAR{4073}
>      CHAR1{4074}
>      CHAR2{4075}
>      CHAR1{4079}
>      CHAR2{4080}
>      CHAR1{4083}
>      CHAR2{4084}
>      CHAR1{4088}
>      CHAR2{4089}
>      CHAR1{4092}
>      CHAR2{4093}
>      CHAR1{4097}
>      CHAR2{4098}
>      CHAR{4101}
>      CHAR1{4102}
>      CHAR2{4103}
>      CHAR1{4107}
>      CHAR2{4108}
>      CHAR1{4111}
>      CHAR2{4112}
>      CHAR1{4116}
>      CHAR2{4117}
>      CHAR1{4120}
>      CHAR2{4121}
>      CHAR1{4125}
>      CHAR2{4126}
>  STRING-COPY[1229]
>    has the following parameter:
>      STRING{1942} local
>    has the following in-lined locals:
>      N{1943}
>      R{1944}
>      K{1948}
>  LIST->STRING[1219]
>    has the following parameter:
>      LIST{1934} local
>    has the following in-lined locals:
>      R{1935}
>      K{1939}
>  STRING=?[1068]
>    has the following parameters:
>      STRING1{1754} local
>      STRING2{1755} local
>    has the following in-lined locals:
>      STRING1{1759}
>      STRING2{1760}
>      N{1762}
>      K{1765}
>      v{1766}
>      CHAR1{3614}
>      CHAR2{3615}
>      CHAR1{3619}
>      CHAR2{3620}
>  MODULO[907]
>    has the following parameters:
>      N1{1569} local
>      N2{1570} local
>    has the following in-lined local:
>      v{1571}
>  [inside top level 811]
>    has the following parameter:
>      STRING{1474} local
>    has the following in-lined locals:
>      FOUND{1475}
>      PACKAGE{1479}
>  ASSQ[770]
>    has the following parameters:
>      OBJ{1444} local
>      ALIST{1445} local
>  REVERSE[747]
>    has the following parameter:
>      S{1427} local
>    has the following in-lined locals:
>      LIST{1422}
>      LIST{1425}
>      R{1426}
>  LOOP[683] reentrant
>    has the following parameters:
>      LIST1{1378} local
>      LIST2{1379} local
>      LISTS{1380} local
>  LIST-LENGTH[635]
>    has the following parameter:
>      LIST{1348} local
>    has the following in-lined local:
>      K{1351}
>  EQV?[576]
>    has the following parameters:
>      OBJ1{1284} local
>      OBJ2{1285} local
>    has the following in-lined local:
>      v{1286}
>  BACKUP[399]
>    has the following parameters:
>      GUY{1209} local
>      BACKUP-TABLE{1210} local
>    has the following in-lined locals:
>      FROM{865}
>      LEN{866}
>      TO{867}
>      I{871}
>      TABLE{1010}
>      KEY{1011}
>      VALUE{1012}
>      N-ALISTS{1013}
>      ALISTS{1014}
>      HASH{1015}
>      PROBE{1016}
>      X{1080}
>      BACKUP{1211}
>  LABEL-DEFINED[351]
>    has the following parameter:
>      LAB{1148} local
>  STATE-LABEL[265]
>    has the following parameter:
>      NODE{1058} local
>  GLOID[264]
>    has the following parameter:
>      NODE{1057} local
>  NONDEF?[263]
>    has the following parameter:
>      X{1056} local
>  NONDEF[262]
>  WALK-VECTOR-WITH-OFFSET[251]
>    has the following parameters:
>      OFFSET{1044} local
>      FUN{1045} local
>      VEC{1046} local
>    has the following in-lined locals:
>      VECLEN{1047}
>      I{1050}
>      X{1140}
>      X{1147}
>      X{1185}
>      Q{2789}
>      OBJ{2790}
>      Q{2793}
>      OBJ{2794}
>      Q{2799}
>      OBJ{2800}
>  TABLE-EXPAND[188]
>    has the following parameter:
>      TABLE{993} local
>    has the following in-lined locals:
>      OLD-N-ALISTS{994}
>      OLD-ALISTS{995}
>      NEW-N-ALISTS{996}
>      NEW-ALISTS{997}
>      I{1002}
>      A{1006}
>      A{1008}
>      NEW-HASH{1009}
>  TABLE-LOOKUP[182]
>    has the following parameters:
>      TABLE{987} local
>      KEY{988} local
>    has the following in-lined locals:
>      N-ALISTS{989}
>      ALISTS{990}
>      HASH{991}
>      PROBE{992}
>  TABLE-TEST[176]
>    has the following parameters:
>      TABLE{981} local
>      KEY{982} local
>    has the following in-lined locals:
>      N-ALISTS{983}
>      ALISTS{984}
>      HASH{985}
>      PROBE{986}
>  MAKE-TABLE[175]
>  [inside MAKE-COUNTER 172]
>    has the following in-lined local:
>      OLD-COUNT{979}
>  QUEUE-POP[160]
>    has the following parameter:
>      Q{970} local
>    has the following in-lined locals:
>      HEAD{972}
>      Q{974}
>  QUEUE-EMPTY?[158]
>    has the following parameter:
>      Q{967} local
>  MAKE-QUEUE[157]
>  STACK-PUSH[153]
>    has the following parameters:
>      S{962} local
>      OBJ{963} local
>  READ-INT[135]
>    has region
>    has the following parameter:
>      FILE{946} local
>    has the following in-lined local:
>      VAL{947}
>  PORMAT-FUNCTION[22]
>    has the following parameters:
>      CONTROL-STRING{851} local
>      VALUES{852} local
>    has the following in-lined locals:
>      I{855}
>      VALUES{856}
>      C{857}
>      C2{858}
>  ADD-ONE[7]
>    has the following parameter:
>      X{840} local
>  [inside top level 0]
>    has the following in-lined locals:
>      GLOBAL-NODE-COUNTER{677}
>      ALPHABET-SIZE{688}
>      L{927}
>      L{931}
>      N{933}
>      I{937}
>      S{961}
>      S{964}
>      L{965}
>      Q{968}
>      OBJ{969}
>      TABLE{1019}
>      TABLE{1021}
>      ALISTS{1022}
>      N-ALISTS{1023}
>      I{1026}
>      P{1030}
>      P{1032}
>      TABLE{1033}
>      KEY{1034}
>      PROBE{1035}
>      TO{1052}
>      FROM{1053}
>      LEN{1054}
>      I{1055}
>      NODE{1059}
>      NODE{1060}
>      I{1061}
>      NODE{1062}
>      VAL{1063}
>      NODE{1064}
>      VAL{1065}
>      NODE{1066}
>      I{1067}
>      VAL{1068}
>      NODE{1070}
>      FATHER{1071}
>      NODE{1072}
>      OLD-COUNTER-VAL{1073}
>      I{1079}
>      TO{1081}
>      FROM{1082}
>      CURNODE{1083}
>      STRING{1084}
>      LABEL{1085}
>      CURSYM{1086}
>      NAME{1092}
>      THE-FILE{1093}
>      N-STRINGS{1094}
>      ROOT{1096}
>      LABEL{1099}
>      STRING-LEN{1100}
>      RB2{1101}
>      NODE{1105}
>      FATHER{1106}
>      I{1109}
>      N-MATCHES{1110}
>      MATCHING-I{1111}
>      START-NODE{1125}
>      SEEN{1129}
>      CURNODE{1137}
>      CURNODE{1144}
>      TR-NODE{1149}
>      GRAPH-NODE{1150}
>      BACKUP-TABLE{1151}
>      TR-NODE{1154}
>      GRAPH-NODE{1155}
>      SEARCH-STACK{1156}
>      BACKUP-TABLE{1157}
>      SPLICES{1158}
>      I{1159}
>      TREE-CHILD{1160}
>      GRAPH-CHILD{1161}
>      CURNODE{1166}
>      POTENTIAL-MATCH{1167}
>      BACKUP-TABLE{1168}
>      SPLICES{1169}
>      SEARCH-STACK{1170}
>      P{1174}
>      T{1175}
>      G{1176}
>      RESULT{1177}
>      CURNODE{1179}
>      UNIQUE-TABLE{1181}
>      UNIQUE-NODES{1182}
>      TODO{1186}
>      UNIQUE-TABLE{1187}
>      UNIQUE-NODES{1188}
>      CURNODE{1189}
>      CURDAD{1190}
>      INCHAR{1191}
>      POTENTIAL-MATCHES{1195}
>      SPLICES{1196}
>      BACKUP-TABLE{1197}
>      POTENTIAL-MATCH{1198}
>      X{1200}
>      ROOT{1203}
>      UNIQUE-NODES{1204}
>      UNIQUE-TABLE{1205}
>      TODO{1206}
>      BACKUP-TABLE{1212}
>      GUY-DOT-BACKUP{1214}
>      BACKUP{1215}
>      GUY{1216}
>      RB{1217}
>      NEW{1218}
>      RB{1219}
>      FILE-NAME{1281}
>      OBJS{1347}
>      SS{1370}
>      SS{1373}
>      v{1374}
>      v{1375}
>      SS{1383}
>      SS{1404}
>      NODE{2761}
>      I{2762}
>      VAL{2763}
>      NODE{2764}
>      I{2765}
>      VAL{2766}
>      NODE{2767}
>      I{2768}
>      VAL{2769}
>      NODE{2770}
>      I{2771}
>      NODE{2773}
>      VAL{2774}
>      NODE{2775}
>      VAL{2776}
>      NODE{2777}
>      VAL{2778}
>      NODE{2779}
>      I{2780}
>      NODE{2781}
>      I{2782}
>      NODE{2783}
>      I{2784}
>      NODE{2785}
>      I{2786}
>      NODE{2787}
>      I{2788}
>      Q{2791}
>      OBJ{2792}
>      Q{2795}
>      OBJ{2796}
>      Q{2797}
>      OBJ{2798}
>      N{3925}
>      I{3929}
>      N{3931}
>      I{3935}
>      N{3937}
>      I{3941}
>      N{3943}
>      I{3947}
>      NODE{3950}
>      OLD-COUNTER-VAL{3951}
>      I{3957}
>      TABLE{3958}
>      KEY{3959}
>      N-ALISTS{3961}
>      ALISTS{3962}
>      HASH{3963}
>      PROBE{3964}
>      TABLE{3967}
>      KEY{3968}
>      VALUE{3969}
>      N-ALISTS{3970}
>      ALISTS{3971}
>      HASH{3972}
>      PROBE{3973}
>      TABLE{3976}
>      KEY{3977}
>      N-ALISTS{3979}
>      ALISTS{3980}
>      HASH{3981}
>      PROBE{3982}
>      NODE{3986}
>      NODE{3988}
>      N{4129}
>      I{4133}
>      NODE{4135}
>      I{4136}
>      NODE{4138}
>      NODE{4140}
>      VAL{4141}
>The following non-trivial in-line native procedures will be generated:
>  [clone SET-STATE-LABEL[268] 3820]
>    has the following parameters:
>      NODE{4140} local
>      VAL{4141} local
>  [clone SET-FATHER[269] 3819]
>    has the following parameter:
>      NODE{4138} local
>  [clone SET-CHILD[270] 3818]
>    has the following parameters:
>      NODE{4135} local
>      I{4136} local
>  [clone LOOP[122] 3813]
>    has the following parameter:
>      I{4133} local
>  [clone DO-TIMES-UP[119] 3810]
>    has the following parameter:
>      N{4129} local
>  [clone LOOP?[979] 3807]
>    has the following parameters:
>      CHAR1{4125} local
>      CHAR2{4126} local
>  [clone CHAR=?[976] 3804]
>    has the following parameters:
>      CHAR1{4120} local
>      CHAR2{4121} local
>  [clone LOOP?[979] 3801]
>    has the following parameters:
>      CHAR1{4116} local
>      CHAR2{4117} local
>  [clone CHAR=?[976] 3798]
>    has the following parameters:
>      CHAR1{4111} local
>      CHAR2{4112} local
>  [clone LOOP?[979] 3795]
>    has the following parameters:
>      CHAR1{4107} local
>      CHAR2{4108} local
>  [clone CHAR=?[976] 3792]
>    has the following parameters:
>      CHAR1{4102} local
>      CHAR2{4103} local
>  [clone [inside top level 1039] 3791]
>    has the following parameter:
>      CHAR{4101} local
>  [clone LOOP?[979] 3788]
>    has the following parameters:
>      CHAR1{4097} local
>      CHAR2{4098} local
>  [clone CHAR=?[976] 3785]
>    has the following parameters:
>      CHAR1{4092} local
>      CHAR2{4093} local
>  [clone LOOP?[979] 3782]
>    has the following parameters:
>      CHAR1{4088} local
>      CHAR2{4089} local
>  [clone CHAR=?[976] 3779]
>    has the following parameters:
>      CHAR1{4083} local
>      CHAR2{4084} local
>  [clone LOOP?[979] 3776]
>    has the following parameters:
>      CHAR1{4079} local
>      CHAR2{4080} local
>  [clone CHAR=?[976] 3773]
>    has the following parameters:
>      CHAR1{4074} local
>      CHAR2{4075} local
>  [clone [inside top level 1039] 3772]
>    has the following parameter:
>      CHAR{4073} local
>  [clone LOOP?[979] 3769]
>    has the following parameters:
>      CHAR1{4069} local
>      CHAR2{4070} local
>  [clone CHAR=?[976] 3766]
>    has the following parameters:
>      CHAR1{4064} local
>      CHAR2{4065} local
>  [clone LOOP?[979] 3763]
>    has the following parameters:
>      CHAR1{4060} local
>      CHAR2{4061} local
>  [clone CHAR=?[976] 3760]
>    has the following parameters:
>      CHAR1{4055} local
>      CHAR2{4056} local
>  [clone LOOP?[979] 3757]
>    has the following parameters:
>      CHAR1{4051} local
>      CHAR2{4052} local
>  [clone CHAR=?[976] 3754]
>    has the following parameters:
>      CHAR1{4046} local
>      CHAR2{4047} local
>  [clone [inside top level 1039] 3753]
>    has the following parameter:
>      CHAR{4045} local
>  [clone LOOP?[979] 3750]
>    has the following parameters:
>      CHAR1{4041} local
>      CHAR2{4042} local
>  [clone CHAR=?[976] 3747]
>    has the following parameters:
>      CHAR1{4036} local
>      CHAR2{4037} local
>  [clone LOOP?[979] 3744]
>    has the following parameters:
>      CHAR1{4032} local
>      CHAR2{4033} local
>  [clone CHAR=?[976] 3741]
>    has the following parameters:
>      CHAR1{4027} local
>      CHAR2{4028} local
>  [clone LOOP?[979] 3738]
>    has the following parameters:
>      CHAR1{4023} local
>      CHAR2{4024} local
>  [clone CHAR=?[976] 3735]
>    has the following parameters:
>      CHAR1{4018} local
>      CHAR2{4019} local
>  [clone [inside top level 1039] 3734]
>    has the following parameter:
>      CHAR{4017} local
>  [clone LOOP?[979] 3731]
>    has the following parameters:
>      CHAR1{4013} local
>      CHAR2{4014} local
>  [clone CHAR=?[976] 3728]
>    has the following parameters:
>      CHAR1{4008} local
>      CHAR2{4009} local
>  [clone LOOP?[979] 3725]
>    has the following parameters:
>      CHAR1{4004} local
>      CHAR2{4005} local
>  [clone CHAR=?[976] 3722]
>    has the following parameters:
>      CHAR1{3999} local
>      CHAR2{4000} local
>  [clone LOOP?[979] 3719]
>    has the following parameters:
>      CHAR1{3995} local
>      CHAR2{3996} local
>  [clone CHAR=?[976] 3716]
>    has the following parameters:
>      CHAR1{3990} local
>      CHAR2{3991} local
>  [clone [inside top level 1039] 3715]
>    has the following parameter:
>      CHAR{3989} local
>  [clone WALK-CHILDREN[271] 3714]
>    has the following parameter:
>      NODE{3988} local
>  [clone WALK-CHILDREN[271] 3713]
>    has the following parameter:
>      NODE{3986} local
>  [clone [inside TABLE-SET! 215] 3708]
>    has the following parameter:
>      PROBE{3982} local
>  [clone [inside TABLE-SET! 214] 3707]
>    has the following parameter:
>      HASH{3981} local
>  [clone [inside TABLE-SET! 213] 3706]
>    has the following parameter:
>      ALISTS{3980} local
>  [clone [inside TABLE-SET! 212] 3705]
>    has the following parameter:
>      N-ALISTS{3979} local
>  [clone TABLE-SET![211] 3704]
>    has the following parameters:
>      TABLE{3976} local
>      KEY{3977} local
>  [clone [inside TABLE-SET! 215] 3699]
>    has the following parameter:
>      PROBE{3973} local
>  [clone [inside TABLE-SET! 214] 3698]
>    has the following parameter:
>      HASH{3972} local
>  [clone [inside TABLE-SET! 213] 3697]
>    has the following parameter:
>      ALISTS{3971} local
>  [clone [inside TABLE-SET! 212] 3696]
>    has the following parameter:
>      N-ALISTS{3970} local
>  [clone TABLE-SET![211] 3695]
>    has the following parameters:
>      TABLE{3967} local
>      KEY{3968} local
>      VALUE{3969} local
>  [clone [inside TABLE-SET! 215] 3690]
>    has the following parameter:
>      PROBE{3964} local
>  [clone [inside TABLE-SET! 214] 3689]
>    has the following parameter:
>      HASH{3963} local
>  [clone [inside TABLE-SET! 213] 3688]
>    has the following parameter:
>      ALISTS{3962} local
>  [clone [inside TABLE-SET! 212] 3687]
>    has the following parameter:
>      N-ALISTS{3961} local
>  [clone TABLE-SET![211] 3686]
>    has the following parameters:
>      TABLE{3958} local
>      KEY{3959} local
>  [clone [inside MAKE-NODE 275] 3685]
>    has the following parameter:
>      I{3957} local
>  [clone [inside MAKE-NODE 273] 3683]
>    has the following parameters:
>      NODE{3950} local
>      OLD-COUNTER-VAL{3951} local
>  [clone LOOP[122] 3677]
>    has the following parameter:
>      I{3947} local
>  [clone DO-TIMES-UP[119] 3674]
>    has the following parameter:
>      N{3943} local
>  [clone LOOP[122] 3669]
>    has the following parameter:
>      I{3941} local
>  [clone DO-TIMES-UP[119] 3666]
>    has the following parameter:
>      N{3937} local
>  [clone LOOP[122] 3661]
>    has the following parameter:
>      I{3935} local
>  [clone DO-TIMES-UP[119] 3658]
>    has the following parameter:
>      N{3931} local
>  [clone LOOP[122] 3653]
>    has the following parameter:
>      I{3929} local
>  [clone DO-TIMES-UP[119] 3650]
>    has the following parameter:
>      N{3925} local
>  [clone [inside CHAR-SUBSEQUENT? 1798] 3649]
>    has the following parameter:
>      v{3924} local
>  [clone [inside CHAR-SUBSEQUENT? 1797] 3648]
>    has the following parameter:
>      v{3923} local
>  [clone [inside CHAR-SUBSEQUENT? 1796] 3647]
>    has the following parameter:
>      v{3922} local
>  [clone [inside CHAR-SUBSEQUENT? 1795] 3646]
>    has the following parameter:
>      v{3921} local
>  [clone CHAR-SUBSEQUENT?[1794] 3645]
>    has the following parameter:
>      C{3920} local
>  [clone [inside CHAR-SUBSEQUENT? 1798] 3644]
>    has the following parameter:
>      v{3919} local
>  [clone [inside CHAR-SUBSEQUENT? 1797] 3643]
>    has the following parameter:
>      v{3918} local
>  [clone [inside CHAR-SUBSEQUENT? 1796] 3642]
>    has the following parameter:
>      v{3917} local
>  [clone [inside CHAR-SUBSEQUENT? 1795] 3641]
>    has the following parameter:
>      v{3916} local
>  [clone CHAR-SUBSEQUENT?[1794] 3640]
>    has the following parameter:
>      C{3915} local
>  [clone [inside CHAR-SUBSEQUENT? 1798] 3639]
>    has the following parameter:
>      v{3914} local
>  [clone [inside CHAR-SUBSEQUENT? 1797] 3638]
>    has the following parameter:
>      v{3913} local
>  [clone [inside CHAR-SUBSEQUENT? 1796] 3637]
>    has the following parameter:
>      v{3912} local
>  [clone [inside CHAR-SUBSEQUENT? 1795] 3636]
>    has the following parameter:
>      v{3911} local
>  [clone CHAR-SUBSEQUENT?[1794] 3635]
>    has the following parameter:
>      C{3910} local
>  [clone [inside CHAR-SUBSEQUENT? 1798] 3634]
>    has the following parameter:
>      v{3909} local
>  [clone [inside CHAR-SUBSEQUENT? 1797] 3633]
>    has the following parameter:
>      v{3908} local
>  [clone [inside CHAR-SUBSEQUENT? 1796] 3632]
>    has the following parameter:
>      v{3907} local
>  [clone [inside CHAR-SUBSEQUENT? 1795] 3631]
>    has the following parameter:
>      v{3906} local
>  [clone CHAR-SUBSEQUENT?[1794] 3630]
>    has the following parameter:
>      C{3905} local
>  [clone [inside CHAR-SUBSEQUENT? 1798] 3629]
>    has the following parameter:
>      v{3904} local
>  [clone [inside CHAR-SUBSEQUENT? 1797] 3628]
>    has the following parameter:
>      v{3903} local
>  [clone [inside CHAR-SUBSEQUENT? 1796] 3627]
>    has the following parameter:
>      v{3902} local
>  [clone [inside CHAR-SUBSEQUENT? 1795] 3626]
>    has the following parameter:
>      v{3901} local
>  [clone CHAR-SUBSEQUENT?[1794] 3625]
>    has the following parameter:
>      C{3900} local
>  [clone LOOP[745] 3623]
>    has the following parameters:
>      LIST{3898} local
>      R{3899} local
>  [clone LIST-REVERSE[742] 3620]
>    has the following parameter:
>      LIST{3895} local
>  [clone LOOP[745] 3618]
>    has the following parameters:
>      LIST{3893} local
>      R{3894} local
>  [clone LIST-REVERSE[742] 3615]
>    has the following parameter:
>      LIST{3890} local
>  [clone LOOP[745] 3613]
>    has the following parameters:
>      LIST{3888} local
>      R{3889} local
>  [clone LIST-REVERSE[742] 3610]
>    has the following parameter:
>      LIST{3885} local
>  [clone LOOP[745] 3608]
>    has the following parameters:
>      LIST{3883} local
>      R{3884} local
>  [clone LIST-REVERSE[742] 3605]
>    has the following parameter:
>      LIST{3880} local
>  [clone LOOP[745] 3603]
>    has the following parameters:
>      LIST{3878} local
>      R{3879} local
>  [clone LIST-REVERSE[742] 3600]
>    has the following parameter:
>      LIST{3875} local
>  [clone LOOP?[979] 3597]
>    has the following parameters:
>      CHAR1{3871} local
>      CHAR2{3872} local
>  [clone CHAR=?[976] 3594]
>    has the following parameters:
>      CHAR1{3866} local
>      CHAR2{3867} local
>  [clone LOOP?[979] 3591]
>    has the following parameters:
>      CHAR1{3862} local
>      CHAR2{3863} local
>  [clone CHAR=?[976] 3588]
>    has the following parameters:
>      CHAR1{3857} local
>      CHAR2{3858} local
>  [clone LOOP?[979] 3585]
>    has the following parameters:
>      CHAR1{3853} local
>      CHAR2{3854} local
>  [clone CHAR=?[976] 3582]
>    has the following parameters:
>      CHAR1{3848} local
>      CHAR2{3849} local
>  [clone LOOP?[979] 3579]
>    has the following parameters:
>      CHAR1{3844} local
>      CHAR2{3845} local
>  [clone CHAR=?[976] 3576]
>    has the following parameters:
>      CHAR1{3839} local
>      CHAR2{3840} local
>  [clone LOOP?[979] 3573]
>    has the following parameters:
>      CHAR1{3835} local
>      CHAR2{3836} local
>  [clone CHAR=?[976] 3570]
>    has the following parameters:
>      CHAR1{3830} local
>      CHAR2{3831} local
>  [clone LOOP?[979] 3567]
>    has the following parameters:
>      CHAR1{3826} local
>      CHAR2{3827} local
>  [clone CHAR=?[976] 3564]
>    has the following parameters:
>      CHAR1{3821} local
>      CHAR2{3822} local
>  [clone LOOP?[979] 3561]
>    has the following parameters:
>      CHAR1{3817} local
>      CHAR2{3818} local
>  [clone CHAR=?[976] 3558]
>    has the following parameters:
>      CHAR1{3812} local
>      CHAR2{3813} local
>  [clone LOOP?[979] 3555]
>    has the following parameters:
>      CHAR1{3808} local
>      CHAR2{3809} local
>  [clone CHAR=?[976] 3552]
>    has the following parameters:
>      CHAR1{3803} local
>      CHAR2{3804} local
>  [clone LOOP?[979] 3549]
>    has the following parameters:
>      CHAR1{3799} local
>      CHAR2{3800} local
>  [clone CHAR=?[976] 3546]
>    has the following parameters:
>      CHAR1{3794} local
>      CHAR2{3795} local
>  [clone LOOP?[979] 3543]
>    has the following parameters:
>      CHAR1{3790} local
>      CHAR2{3791} local
>  [clone CHAR=?[976] 3540]
>    has the following parameters:
>      CHAR1{3785} local
>      CHAR2{3786} local
>  [clone LOOP?[979] 3537]
>    has the following parameters:
>      CHAR1{3781} local
>      CHAR2{3782} local
>  [clone CHAR=?[976] 3534]
>    has the following parameters:
>      CHAR1{3776} local
>      CHAR2{3777} local
>  [clone LOOP?[979] 3531]
>    has the following parameters:
>      CHAR1{3772} local
>      CHAR2{3773} local
>  [clone CHAR=?[976] 3528]
>    has the following parameters:
>      CHAR1{3767} local
>      CHAR2{3768} local
>  [clone LOOP?[979] 3525]
>    has the following parameters:
>      CHAR1{3763} local
>      CHAR2{3764} local
>  [clone CHAR=?[976] 3522]
>    has the following parameters:
>      CHAR1{3758} local
>      CHAR2{3759} local
>  [clone LOOP?[979] 3519]
>    has the following parameters:
>      CHAR1{3754} local
>      CHAR2{3755} local
>  [clone CHAR=?[976] 3516]
>    has the following parameters:
>      CHAR1{3749} local
>      CHAR2{3750} local
>  [clone LOOP?[979] 3513]
>    has the following parameters:
>      CHAR1{3745} local
>      CHAR2{3746} local
>  [clone CHAR=?[976] 3510]
>    has the following parameters:
>      CHAR1{3740} local
>      CHAR2{3741} local
>  [clone LOOP?[979] 3507]
>    has the following parameters:
>      CHAR1{3736} local
>      CHAR2{3737} local
>  [clone CHAR=?[976] 3504]
>    has the following parameters:
>      CHAR1{3731} local
>      CHAR2{3732} local
>  [clone LOOP?[979] 3501]
>    has the following parameters:
>      CHAR1{3727} local
>      CHAR2{3728} local
>  [clone CHAR=?[976] 3498]
>    has the following parameters:
>      CHAR1{3722} local
>      CHAR2{3723} local
>  [clone LOOP?[979] 3495]
>    has the following parameters:
>      CHAR1{3718} local
>      CHAR2{3719} local
>  [clone CHAR=?[976] 3492]
>    has the following parameters:
>      CHAR1{3713} local
>      CHAR2{3714} local
>  [clone LOOP?[979] 3489]
>    has the following parameters:
>      CHAR1{3709} local
>      CHAR2{3710} local
>  [clone CHAR=?[976] 3486]
>    has the following parameters:
>      CHAR1{3704} local
>      CHAR2{3705} local
>  [clone LOOP?[979] 3483]
>    has the following parameters:
>      CHAR1{3700} local
>      CHAR2{3701} local
>  [clone CHAR=?[976] 3480]
>    has the following parameters:
>      CHAR1{3695} local
>      CHAR2{3696} local
>  [clone LOOP?[979] 3477]
>    has the following parameters:
>      CHAR1{3691} local
>      CHAR2{3692} local
>  [clone CHAR=?[976] 3474]
>    has the following parameters:
>      CHAR1{3686} local
>      CHAR2{3687} local
>  [clone LOOP?[979] 3471]
>    has the following parameters:
>      CHAR1{3682} local
>      CHAR2{3683} local
>  [clone CHAR=?[976] 3468]
>    has the following parameters:
>      CHAR1{3677} local
>      CHAR2{3678} local
>  [clone LOOP?[979] 3465]
>    has the following parameters:
>      CHAR1{3673} local
>      CHAR2{3674} local
>  [clone CHAR=?[976] 3462]
>    has the following parameters:
>      CHAR1{3668} local
>      CHAR2{3669} local
>  [clone LOOP?[979] 3459]
>    has the following parameters:
>      CHAR1{3664} local
>      CHAR2{3665} local
>  [clone CHAR=?[976] 3456]
>    has the following parameters:
>      CHAR1{3659} local
>      CHAR2{3660} local
>  [clone LOOP?[979] 3453]
>    has the following parameters:
>      CHAR1{3655} local
>      CHAR2{3656} local
>  [clone CHAR=?[976] 3450]
>    has the following parameters:
>      CHAR1{3650} local
>      CHAR2{3651} local
>  [clone LOOP?[979] 3447]
>    has the following parameters:
>      CHAR1{3646} local
>      CHAR2{3647} local
>  [clone CHAR=?[976] 3444]
>    has the following parameters:
>      CHAR1{3641} local
>      CHAR2{3642} local
>  [clone LOOP?[979] 3441]
>    has the following parameters:
>      CHAR1{3637} local
>      CHAR2{3638} local
>  [clone CHAR=?[976] 3438]
>    has the following parameters:
>      CHAR1{3632} local
>      CHAR2{3633} local
>  [clone LOOP?[979] 3435]
>    has the following parameters:
>      CHAR1{3628} local
>      CHAR2{3629} local
>  [clone CHAR=?[976] 3432]
>    has the following parameters:
>      CHAR1{3623} local
>      CHAR2{3624} local
>  [clone LOOP?[979] 3429]
>    has the following parameters:
>      CHAR1{3619} local
>      CHAR2{3620} local
>  [clone CHAR=?[976] 3426]
>    has the following parameters:
>      CHAR1{3614} local
>      CHAR2{3615} local
>  [clone LOOP?[979] 3423]
>    has the following parameters:
>      CHAR1{3610} local
>      CHAR2{3611} local
>  [clone CHAR=?[976] 3420]
>    has the following parameters:
>      CHAR1{3605} local
>      CHAR2{3606} local
>  [clone LOOP?[979] 3417]
>    has the following parameters:
>      CHAR1{3601} local
>      CHAR2{3602} local
>  [clone CHAR=?[976] 3414]
>    has the following parameters:
>      CHAR1{3596} local
>      CHAR2{3597} local
>  [clone LOOP?[979] 3411]
>    has the following parameters:
>      CHAR1{3592} local
>      CHAR2{3593} local
>  [clone CHAR=?[976] 3408]
>    has the following parameters:
>      CHAR1{3587} local
>      CHAR2{3588} local
>  [clone LOOP?[979] 3405]
>    has the following parameters:
>      CHAR1{3583} local
>      CHAR2{3584} local
>  [clone CHAR=?[976] 3402]
>    has the following parameters:
>      CHAR1{3578} local
>      CHAR2{3579} local
>  [clone LOOP?[979] 3399]
>    has the following parameters:
>      CHAR1{3574} local
>      CHAR2{3575} local
>  [clone CHAR=?[976] 3396]
>    has the following parameters:
>      CHAR1{3569} local
>      CHAR2{3570} local
>  [clone LOOP?[979] 3393]
>    has the following parameters:
>      CHAR1{3565} local
>      CHAR2{3566} local
>  [clone CHAR=?[976] 3390]
>    has the following parameters:
>      CHAR1{3560} local
>      CHAR2{3561} local
>  [clone LOOP?[979] 3387]
>    has the following parameters:
>      CHAR1{3556} local
>      CHAR2{3557} local
>  [clone CHAR=?[976] 3384]
>    has the following parameters:
>      CHAR1{3551} local
>      CHAR2{3552} local
>  [clone LOOP?[979] 3381]
>    has the following parameters:
>      CHAR1{3547} local
>      CHAR2{3548} local
>  [clone CHAR=?[976] 3378]
>    has the following parameters:
>      CHAR1{3542} local
>      CHAR2{3543} local
>  [clone LOOP?[979] 3375]
>    has the following parameters:
>      CHAR1{3538} local
>      CHAR2{3539} local
>  [clone CHAR=?[976] 3372]
>    has the following parameters:
>      CHAR1{3533} local
>      CHAR2{3534} local
>  [clone LOOP?[979] 3369]
>    has the following parameters:
>      CHAR1{3529} local
>      CHAR2{3530} local
>  [clone CHAR=?[976] 3366]
>    has the following parameters:
>      CHAR1{3524} local
>      CHAR2{3525} local
>  [clone LOOP?[979] 3363]
>    has the following parameters:
>      CHAR1{3520} local
>      CHAR2{3521} local
>  [clone CHAR=?[976] 3360]
>    has the following parameters:
>      CHAR1{3515} local
>      CHAR2{3516} local
>  [clone LOOP?[979] 3357]
>    has the following parameters:
>      CHAR1{3511} local
>      CHAR2{3512} local
>  [clone CHAR=?[976] 3354]
>    has the following parameters:
>      CHAR1{3506} local
>      CHAR2{3507} local
>  [clone LOOP?[979] 3351]
>    has the following parameters:
>      CHAR1{3502} local
>      CHAR2{3503} local
>  [clone CHAR=?[976] 3348]
>    has the following parameters:
>      CHAR1{3497} local
>      CHAR2{3498} local
>  [clone LOOP?[979] 3345]
>    has the following parameters:
>      CHAR1{3493} local
>      CHAR2{3494} local
>  [clone CHAR=?[976] 3342]
>    has the following parameters:
>      CHAR1{3488} local
>      CHAR2{3489} local
>  [clone LOOP?[979] 3339]
>    has the following parameters:
>      CHAR1{3484} local
>      CHAR2{3485} local
>  [clone CHAR=?[976] 3336]
>    has the following parameters:
>      CHAR1{3479} local
>      CHAR2{3480} local
>  [clone LOOP?[979] 3333]
>    has the following parameters:
>      CHAR1{3475} local
>      CHAR2{3476} local
>  [clone CHAR=?[976] 3330]
>    has the following parameters:
>      CHAR1{3470} local
>      CHAR2{3471} local
>  [clone LOOP?[979] 3327]
>    has the following parameters:
>      CHAR1{3466} local
>      CHAR2{3467} local
>  [clone CHAR=?[976] 3324]
>    has the following parameters:
>      CHAR1{3461} local
>      CHAR2{3462} local
>  [clone LOOP?[979] 3321]
>    has the following parameters:
>      CHAR1{3457} local
>      CHAR2{3458} local
>  [clone CHAR=?[976] 3318]
>    has the following parameters:
>      CHAR1{3452} local
>      CHAR2{3453} local
>  [clone LOOP?[979] 3315]
>    has the following parameters:
>      CHAR1{3448} local
>      CHAR2{3449} local
>  [clone CHAR=?[976] 3312]
>    has the following parameters:
>      CHAR1{3443} local
>      CHAR2{3444} local
>  [clone LOOP?[979] 3309]
>    has the following parameters:
>      CHAR1{3439} local
>      CHAR2{3440} local
>  [clone CHAR=?[976] 3306]
>    has the following parameters:
>      CHAR1{3434} local
>      CHAR2{3435} local
>  [clone LOOP?[979] 3303]
>    has the following parameters:
>      CHAR1{3430} local
>      CHAR2{3431} local
>  [clone CHAR=?[976] 3300]
>    has the following parameters:
>      CHAR1{3425} local
>      CHAR2{3426} local
>  [clone LOOP?[979] 3297]
>    has the following parameters:
>      CHAR1{3421} local
>      CHAR2{3422} local
>  [clone CHAR=?[976] 3294]
>    has the following parameters:
>      CHAR1{3416} local
>      CHAR2{3417} local
>  [clone LOOP?[979] 3291]
>    has the following parameters:
>      CHAR1{3412} local
>      CHAR2{3413} local
>  [clone CHAR=?[976] 3288]
>    has the following parameters:
>      CHAR1{3407} local
>      CHAR2{3408} local
>  [clone LOOP?[979] 3285]
>    has the following parameters:
>      CHAR1{3403} local
>      CHAR2{3404} local
>  [clone CHAR=?[976] 3282]
>    has the following parameters:
>      CHAR1{3398} local
>      CHAR2{3399} local
>  [clone LOOP?[979] 3279]
>    has the following parameters:
>      CHAR1{3394} local
>      CHAR2{3395} local
>  [clone CHAR=?[976] 3276]
>    has the following parameters:
>      CHAR1{3389} local
>      CHAR2{3390} local
>  [clone LOOP?[979] 3273]
>    has the following parameters:
>      CHAR1{3385} local
>      CHAR2{3386} local
>  [clone CHAR=?[976] 3270]
>    has the following parameters:
>      CHAR1{3380} local
>      CHAR2{3381} local
>  [clone LOOP?[979] 3267]
>    has the following parameters:
>      CHAR1{3376} local
>      CHAR2{3377} local
>  [clone CHAR=?[976] 3264]
>    has the following parameters:
>      CHAR1{3371} local
>      CHAR2{3372} local
>  [clone LOOP?[979] 3261]
>    has the following parameters:
>      CHAR1{3367} local
>      CHAR2{3368} local
>  [clone CHAR=?[976] 3258]
>    has the following parameters:
>      CHAR1{3362} local
>      CHAR2{3363} local
>  [clone LOOP?[979] 3255]
>    has the following parameters:
>      CHAR1{3358} local
>      CHAR2{3359} local
>  [clone CHAR=?[976] 3252]
>    has the following parameters:
>      CHAR1{3353} local
>      CHAR2{3354} local
>  [clone LOOP?[979] 3249]
>    has the following parameters:
>      CHAR1{3349} local
>      CHAR2{3350} local
>  [clone CHAR=?[976] 3246]
>    has the following parameters:
>      CHAR1{3344} local
>      CHAR2{3345} local
>  [clone LOOP?[979] 3243]
>    has the following parameters:
>      CHAR1{3340} local
>      CHAR2{3341} local
>  [clone CHAR=?[976] 3240]
>    has the following parameters:
>      CHAR1{3335} local
>      CHAR2{3336} local
>  [clone LOOP?[979] 3237]
>    has the following parameters:
>      CHAR1{3331} local
>      CHAR2{3332} local
>  [clone CHAR=?[976] 3234]
>    has the following parameters:
>      CHAR1{3326} local
>      CHAR2{3327} local
>  [clone LOOP?[979] 3231]
>    has the following parameters:
>      CHAR1{3322} local
>      CHAR2{3323} local
>  [clone CHAR=?[976] 3228]
>    has the following parameters:
>      CHAR1{3317} local
>      CHAR2{3318} local
>  [clone LOOP?[979] 3225]
>    has the following parameters:
>      CHAR1{3313} local
>      CHAR2{3314} local
>  [clone CHAR=?[976] 3222]
>    has the following parameters:
>      CHAR1{3308} local
>      CHAR2{3309} local
>  [clone LOOP?[979] 3219]
>    has the following parameters:
>      CHAR1{3304} local
>      CHAR2{3305} local
>  [clone CHAR=?[976] 3216]
>    has the following parameters:
>      CHAR1{3299} local
>      CHAR2{3300} local
>  [clone LOOP?[979] 3213]
>    has the following parameters:
>      CHAR1{3295} local
>      CHAR2{3296} local
>  [clone CHAR=?[976] 3210]
>    has the following parameters:
>      CHAR1{3290} local
>      CHAR2{3291} local
>  [clone LOOP?[979] 3207]
>    has the following parameters:
>      CHAR1{3286} local
>      CHAR2{3287} local
>  [clone CHAR=?[976] 3204]
>    has the following parameters:
>      CHAR1{3281} local
>      CHAR2{3282} local
>  [clone LOOP?[979] 3201]
>    has the following parameters:
>      CHAR1{3277} local
>      CHAR2{3278} local
>  [clone CHAR=?[976] 3198]
>    has the following parameters:
>      CHAR1{3272} local
>      CHAR2{3273} local
>  [clone LOOP?[979] 3195]
>    has the following parameters:
>      CHAR1{3268} local
>      CHAR2{3269} local
>  [clone CHAR=?[976] 3192]
>    has the following parameters:
>      CHAR1{3263} local
>      CHAR2{3264} local
>  [clone LOOP?[979] 3189]
>    has the following parameters:
>      CHAR1{3259} local
>      CHAR2{3260} local
>  [clone CHAR=?[976] 3186]
>    has the following parameters:
>      CHAR1{3254} local
>      CHAR2{3255} local
>  [clone LOOP?[979] 3183]
>    has the following parameters:
>      CHAR1{3250} local
>      CHAR2{3251} local
>  [clone CHAR=?[976] 3180]
>    has the following parameters:
>      CHAR1{3245} local
>      CHAR2{3246} local
>  [clone LOOP?[979] 3177]
>    has the following parameters:
>      CHAR1{3241} local
>      CHAR2{3242} local
>  [clone CHAR=?[976] 3174]
>    has the following parameters:
>      CHAR1{3236} local
>      CHAR2{3237} local
>  [clone LOOP?[979] 3171]
>    has the following parameters:
>      CHAR1{3232} local
>      CHAR2{3233} local
>  [clone CHAR=?[976] 3168]
>    has the following parameters:
>      CHAR1{3227} local
>      CHAR2{3228} local
>  [clone LOOP?[979] 3165]
>    has the following parameters:
>      CHAR1{3223} local
>      CHAR2{3224} local
>  [clone CHAR=?[976] 3162]
>    has the following parameters:
>      CHAR1{3218} local
>      CHAR2{3219} local
>  [clone LOOP?[979] 3159]
>    has the following parameters:
>      CHAR1{3214} local
>      CHAR2{3215} local
>  [clone CHAR=?[976] 3156]
>    has the following parameters:
>      CHAR1{3209} local
>      CHAR2{3210} local
>  [clone LOOP?[979] 3153]
>    has the following parameters:
>      CHAR1{3205} local
>      CHAR2{3206} local
>  [clone CHAR=?[976] 3150]
>    has the following parameters:
>      CHAR1{3200} local
>      CHAR2{3201} local
>  [clone LOOP?[979] 3147]
>    has the following parameters:
>      CHAR1{3196} local
>      CHAR2{3197} local
>  [clone CHAR=?[976] 3144]
>    has the following parameters:
>      CHAR1{3191} local
>      CHAR2{3192} local
>  [clone LOOP?[979] 3141]
>    has the following parameters:
>      CHAR1{3187} local
>      CHAR2{3188} local
>  [clone CHAR=?[976] 3138]
>    has the following parameters:
>      CHAR1{3182} local
>      CHAR2{3183} local
>  [clone LOOP?[979] 3135]
>    has the following parameters:
>      CHAR1{3178} local
>      CHAR2{3179} local
>  [clone CHAR=?[976] 3132]
>    has the following parameters:
>      CHAR1{3173} local
>      CHAR2{3174} local
>  [clone LOOP?[979] 3129]
>    has the following parameters:
>      CHAR1{3169} local
>      CHAR2{3170} local
>  [clone CHAR=?[976] 3126]
>    has the following parameters:
>      CHAR1{3164} local
>      CHAR2{3165} local
>  [clone LOOP?[979] 3123]
>    has the following parameters:
>      CHAR1{3160} local
>      CHAR2{3161} local
>  [clone CHAR=?[976] 3120]
>    has the following parameters:
>      CHAR1{3155} local
>      CHAR2{3156} local
>  [clone LOOP?[979] 3117]
>    has the following parameters:
>      CHAR1{3151} local
>      CHAR2{3152} local
>  [clone CHAR=?[976] 3114]
>    has the following parameters:
>      CHAR1{3146} local
>      CHAR2{3147} local
>  [clone LOOP?[979] 3111]
>    has the following parameters:
>      CHAR1{3142} local
>      CHAR2{3143} local
>  [clone CHAR=?[976] 3108]
>    has the following parameters:
>      CHAR1{3137} local
>      CHAR2{3138} local
>  [clone LOOP?[979] 3105]
>    has the following parameters:
>      CHAR1{3133} local
>      CHAR2{3134} local
>  [clone CHAR=?[976] 3102]
>    has the following parameters:
>      CHAR1{3128} local
>      CHAR2{3129} local
>  [clone LOOP?[979] 3099]
>    has the following parameters:
>      CHAR1{3124} local
>      CHAR2{3125} local
>  [clone CHAR=?[976] 3096]
>    has the following parameters:
>      CHAR1{3119} local
>      CHAR2{3120} local
>  [clone LOOP?[979] 3093]
>    has the following parameters:
>      CHAR1{3115} local
>      CHAR2{3116} local
>  [clone CHAR=?[976] 3090]
>    has the following parameters:
>      CHAR1{3110} local
>      CHAR2{3111} local
>  [clone LOOP?[979] 3087]
>    has the following parameters:
>      CHAR1{3106} local
>      CHAR2{3107} local
>  [clone CHAR=?[976] 3084]
>    has the following parameters:
>      CHAR1{3101} local
>      CHAR2{3102} local
>  [clone LOOP?[979] 3081]
>    has the following parameters:
>      CHAR1{3097} local
>      CHAR2{3098} local
>  [clone CHAR=?[976] 3078]
>    has the following parameters:
>      CHAR1{3092} local
>      CHAR2{3093} local
>  [clone LOOP?[979] 3075]
>    has the following parameters:
>      CHAR1{3088} local
>      CHAR2{3089} local
>  [clone CHAR=?[976] 3072]
>    has the following parameters:
>      CHAR1{3083} local
>      CHAR2{3084} local
>  [clone LOOP?[979] 3069]
>    has the following parameters:
>      CHAR1{3079} local
>      CHAR2{3080} local
>  [clone CHAR=?[976] 3066]
>    has the following parameters:
>      CHAR1{3074} local
>      CHAR2{3075} local
>  [clone LOOP?[979] 3063]
>    has the following parameters:
>      CHAR1{3070} local
>      CHAR2{3071} local
>  [clone CHAR=?[976] 3060]
>    has the following parameters:
>      CHAR1{3065} local
>      CHAR2{3066} local
>  [clone LOOP?[979] 3057]
>    has the following parameters:
>      CHAR1{3061} local
>      CHAR2{3062} local
>  [clone CHAR=?[976] 3054]
>    has the following parameters:
>      CHAR1{3056} local
>      CHAR2{3057} local
>  [clone LOOP?[979] 3051]
>    has the following parameters:
>      CHAR1{3052} local
>      CHAR2{3053} local
>  [clone CHAR=?[976] 3048]
>    has the following parameters:
>      CHAR1{3047} local
>      CHAR2{3048} local
>  [clone LOOP?[985] 3045]
>    has the following parameters:
>      CHAR1{3043} local
>      CHAR2{3044} local
>  [clone CHAR<?[982] 3042]
>    has the following parameters:
>      CHAR1{3038} local
>      CHAR2{3039} local
>  [clone LOOP?[991] 3039]
>    has the following parameters:
>      CHAR1{3034} local
>      CHAR2{3035} local
>  [clone CHAR>?[988] 3036]
>    has the following parameters:
>      CHAR1{3029} local
>      CHAR2{3030} local
>  [clone LOOP?[997] 3033]
>    has the following parameters:
>      CHAR1{3025} local
>      CHAR2{3026} local
>  [clone CHAR<=?[994] 3030]
>    has the following parameters:
>      CHAR1{3020} local
>      CHAR2{3021} local
>  [clone LOOP?[997] 3027]
>    has the following parameters:
>      CHAR1{3016} local
>      CHAR2{3017} local
>  [clone CHAR<=?[994] 3024]
>    has the following parameters:
>      CHAR1{3011} local
>      CHAR2{3012} local
>  [clone LOOP?[997] 3021]
>    has the following parameters:
>      CHAR1{3007} local
>      CHAR2{3008} local
>  [clone CHAR<=?[994] 3018]
>    has the following parameters:
>      CHAR1{3002} local
>      CHAR2{3003} local
>  [clone LOOP?[997] 3015]
>    has the following parameters:
>      CHAR1{2998} local
>      CHAR2{2999} local
>  [clone CHAR<=?[994] 3012]
>    has the following parameters:
>      CHAR1{2993} local
>      CHAR2{2994} local
>  [clone LOOP?[997] 3009]
>    has the following parameters:
>      CHAR1{2989} local
>      CHAR2{2990} local
>  [clone CHAR<=?[994] 3006]
>    has the following parameters:
>      CHAR1{2984} local
>      CHAR2{2985} local
>  [clone LOOP?[997] 3003]
>    has the following parameters:
>      CHAR1{2980} local
>      CHAR2{2981} local
>  [clone CHAR<=?[994] 3000]
>    has the following parameters:
>      CHAR1{2975} local
>      CHAR2{2976} local
>  [clone LOOP?[997] 2997]
>    has the following parameters:
>      CHAR1{2971} local
>      CHAR2{2972} local
>  [clone CHAR<=?[994] 2994]
>    has the following parameters:
>      CHAR1{2966} local
>      CHAR2{2967} local
>  [clone LOOP?[997] 2991]
>    has the following parameters:
>      CHAR1{2962} local
>      CHAR2{2963} local
>  [clone CHAR<=?[994] 2988]
>    has the following parameters:
>      CHAR1{2957} local
>      CHAR2{2958} local
>  [clone LOOP?[997] 2985]
>    has the following parameters:
>      CHAR1{2953} local
>      CHAR2{2954} local
>  [clone CHAR<=?[994] 2982]
>    has the following parameters:
>      CHAR1{2948} local
>      CHAR2{2949} local
>  [clone LOOP?[1003] 2979]
>    has the following parameters:
>      CHAR1{2944} local
>      CHAR2{2945} local
>  [clone CHAR>=?[1000] 2976]
>    has the following parameters:
>      CHAR1{2939} local
>      CHAR2{2940} local
>  [clone LOOP?[1003] 2973]
>    has the following parameters:
>      CHAR1{2935} local
>      CHAR2{2936} local
>  [clone CHAR>=?[1000] 2970]
>    has the following parameters:
>      CHAR1{2930} local
>      CHAR2{2931} local
>  [clone LOOP?[1003] 2967]
>    has the following parameters:
>      CHAR1{2926} local
>      CHAR2{2927} local
>  [clone CHAR>=?[1000] 2964]
>    has the following parameters:
>      CHAR1{2921} local
>      CHAR2{2922} local
>  [clone LOOP?[1003] 2961]
>    has the following parameters:
>      CHAR1{2917} local
>      CHAR2{2918} local
>  [clone CHAR>=?[1000] 2958]
>    has the following parameters:
>      CHAR1{2912} local
>      CHAR2{2913} local
>  [clone LOOP?[1003] 2955]
>    has the following parameters:
>      CHAR1{2908} local
>      CHAR2{2909} local
>  [clone CHAR>=?[1000] 2952]
>    has the following parameters:
>      CHAR1{2903} local
>      CHAR2{2904} local
>  [clone LOOP?[1003] 2949]
>    has the following parameters:
>      CHAR1{2899} local
>      CHAR2{2900} local
>  [clone CHAR>=?[1000] 2946]
>    has the following parameters:
>      CHAR1{2894} local
>      CHAR2{2895} local
>  [clone LOOP?[1003] 2943]
>    has the following parameters:
>      CHAR1{2890} local
>      CHAR2{2891} local
>  [clone CHAR>=?[1000] 2940]
>    has the following parameters:
>      CHAR1{2885} local
>      CHAR2{2886} local
>  [clone LOOP?[1003] 2937]
>    has the following parameters:
>      CHAR1{2881} local
>      CHAR2{2882} local
>  [clone CHAR>=?[1000] 2934]
>    has the following parameters:
>      CHAR1{2876} local
>      CHAR2{2877} local
>  [clone LOOP?[1003] 2931]
>    has the following parameters:
>      CHAR1{2872} local
>      CHAR2{2873} local
>  [clone CHAR>=?[1000] 2928]
>    has the following parameters:
>      CHAR1{2867} local
>      CHAR2{2868} local
>  [clone READ-CHAR[2330] 2924]
>    has the following parameter:
>      &REST{2866} local
>  [clone READ-CHAR[2330] 2920]
>    has the following parameter:
>      &REST{2865} local
>  [clone READ-CHAR[2330] 2916]
>    has the following parameter:
>      &REST{2864} local
>  [clone READ-CHAR[2330] 2912]
>    has the following parameter:
>      &REST{2863} local
>  [clone READ-CHAR[2330] 2908]
>    has the following parameter:
>      &REST{2862} local
>  [clone READ-CHAR[2330] 2904]
>    has the following parameter:
>      &REST{2861} local
>  [clone READ-CHAR[2330] 2900]
>    has the following parameter:
>      &REST{2860} local
>  [clone READ-CHAR[2330] 2896]
>    has the following parameter:
>      &REST{2859} local
>  [clone READ-CHAR[2330] 2892]
>    has the following parameter:
>      &REST{2858} local
>  [clone READ-CHAR[2330] 2888]
>    has the following parameter:
>      &REST{2857} local
>  [clone READ-CHAR[2330] 2884]
>    has the following parameter:
>      &REST{2856} local
>  [clone READ-CHAR[2330] 2880]
>    has the following parameter:
>      &REST{2855} local
>  [clone READ-CHAR[2330] 2876]
>    has the following parameter:
>      &REST{2854} local
>  [clone READ-CHAR[2330] 2872]
>    has the following parameter:
>      &REST{2853} local
>  [clone READ-CHAR[2330] 2868]
>    has the following parameter:
>      &REST{2852} local
>  [clone READ-CHAR[2330] 2864]
>    has the following parameter:
>      &REST{2851} local
>  [clone READ-CHAR[2330] 2860]
>    has the following parameter:
>      &REST{2850} local
>  [clone READ-CHAR[2330] 2856]
>    has the following parameter:
>      &REST{2849} local
>  [clone READ-CHAR[2330] 2852]
>    has the following parameter:
>      &REST{2848} local
>  [clone READ-CHAR[2330] 2848]
>    has the following parameter:
>      &REST{2847} local
>  [clone READ-CHAR[2330] 2844]
>    has the following parameter:
>      &REST{2846} local
>  [clone READ-CHAR[2330] 2840]
>    has the following parameter:
>      &REST{2845} local
>  [clone READ-CHAR[2330] 2836]
>    has the following parameter:
>      &REST{2844} local
>  [clone READ-CHAR[2330] 2832]
>    has the following parameter:
>      &REST{2843} local
>  [clone READ-CHAR[2330] 2828]
>    has the following parameter:
>      &REST{2842} local
>  [clone READ-CHAR[2330] 2824]
>    has the following parameter:
>      &REST{2841} local
>  [clone READ-CHAR[2330] 2820]
>    has the following parameter:
>      &REST{2840} local
>  [clone READ-CHAR[2330] 2816]
>    has the following parameter:
>      &REST{2839} local
>  [clone READ-CHAR[2330] 2812]
>    has the following parameter:
>      &REST{2838} local
>  [clone READ-CHAR[2330] 2808]
>    has the following parameter:
>      &REST{2837} local
>  [clone READ-CHAR[2330] 2804]
>    has the following parameter:
>      &REST{2836} local
>  [clone READ-CHAR[2330] 2800]
>    has the following parameter:
>      &REST{2835} local
>  [clone READ-CHAR[2330] 2796]
>    has the following parameter:
>      &REST{2834} local
>  [clone READ-CHAR[2330] 2792]
>    has the following parameter:
>      &REST{2833} local
>  [clone READ-CHAR[2330] 2788]
>    has the following parameter:
>      &REST{2832} local
>  [clone READ-CHAR[2330] 2784]
>    has the following parameter:
>      &REST{2831} local
>  [clone READ-CHAR[2330] 2780]
>    has the following parameter:
>      &REST{2830} local
>  [clone READ-CHAR[2330] 2776]
>    has the following parameter:
>      &REST{2829} local
>  [clone READ-CHAR[2330] 2772]
>    has the following parameter:
>      &REST{2828} local
>  [clone READ-CHAR[2330] 2768]
>    has the following parameter:
>      &REST{2827} local
>  [clone READ-CHAR[2330] 2764]
>    has the following parameter:
>      &REST{2826} local
>  [clone READ-CHAR[2330] 2760]
>    has the following parameter:
>      &REST{2825} local
>  [clone READ-CHAR[2330] 2756]
>    has the following parameter:
>      &REST{2824} local
>  [clone READ-CHAR[2330] 2752]
>    has the following parameter:
>      &REST{2823} local
>  [clone READ-CHAR[2330] 2748]
>    has the following parameter:
>      &REST{2822} local
>  [clone READ-CHAR[2330] 2744]
>    has the following parameter:
>      &REST{2821} local
>  [clone READ-CHAR[2330] 2740]
>    has the following parameter:
>      &REST{2820} local
>  [clone READ-CHAR[2330] 2736]
>    has the following parameter:
>      &REST{2819} local
>  [clone READ-CHAR[2330] 2732]
>    has the following parameter:
>      &REST{2818} local
>  [clone READ-CHAR[2330] 2728]
>    has the following parameter:
>      &REST{2817} local
>  [clone READ-CHAR[2330] 2724]
>    has the following parameter:
>      &REST{2816} local
>  [clone READ-CHAR[2330] 2720]
>    has the following parameter:
>      &REST{2815} local
>  [clone READ-CHAR[2330] 2716]
>    has the following parameter:
>      &REST{2814} local
>  [clone PEEK-CHAR[2334] 2712]
>    has the following parameter:
>      &REST{2813} local
>  [clone PEEK-CHAR[2334] 2708]
>    has the following parameter:
>      &REST{2812} local
>  [clone PEEK-CHAR[2334] 2704]
>    has the following parameter:
>      &REST{2811} local
>  [clone PEEK-CHAR[2334] 2700]
>    has the following parameter:
>      &REST{2810} local
>  [clone PEEK-CHAR[2334] 2696]
>    has the following parameter:
>      &REST{2809} local
>  [clone PEEK-CHAR[2334] 2692]
>    has the following parameter:
>      &REST{2808} local
>  [clone PEEK-CHAR[2334] 2688]
>    has the following parameter:
>      &REST{2807} local
>  [clone PEEK-CHAR[2334] 2684]
>    has the following parameter:
>      &REST{2806} local
>  [clone PEEK-CHAR[2334] 2680]
>    has the following parameter:
>      &REST{2805} local
>  [clone PEEK-CHAR[2334] 2676]
>    has the following parameter:
>      &REST{2804} local
>  [clone PEEK-CHAR[2334] 2672]
>    has the following parameter:
>      &REST{2803} local
>  [clone PEEK-CHAR[2334] 2668]
>    has the following parameter:
>      &REST{2802} local
>  [clone PEEK-CHAR[2334] 2664]
>    has the following parameter:
>      &REST{2801} local
>  [clone QUEUE-PUSH[159] 2663]
>    has the following parameters:
>      Q{2799} local
>      OBJ{2800} local
>  [clone QUEUE-PUSH[159] 2662]
>    has the following parameters:
>      Q{2797} local
>      OBJ{2798} local
>  [clone QUEUE-PUSH[159] 2661]
>    has the following parameters:
>      Q{2795} local
>      OBJ{2796} local
>  [clone QUEUE-PUSH[159] 2660]
>    has the following parameters:
>      Q{2793} local
>      OBJ{2794} local
>  [clone QUEUE-PUSH[159] 2659]
>    has the following parameters:
>      Q{2791} local
>      OBJ{2792} local
>  [clone QUEUE-PUSH[159] 2658]
>    has the following parameters:
>      Q{2789} local
>      OBJ{2790} local
>  [clone GET-CHILD[267] 2657]
>    has the following parameters:
>      NODE{2787} local
>      I{2788} local
>  [clone GET-CHILD[267] 2656]
>    has the following parameters:
>      NODE{2785} local
>      I{2786} local
>  [clone GET-CHILD[267] 2655]
>    has the following parameters:
>      NODE{2783} local
>      I{2784} local
>  [clone GET-CHILD[267] 2654]
>    has the following parameters:
>      NODE{2781} local
>      I{2782} local
>  [clone GET-CHILD[267] 2653]
>    has the following parameters:
>      NODE{2779} local
>      I{2780} local
>  [clone SET-STATE-LABEL[268] 2652]
>    has the following parameters:
>      NODE{2777} local
>      VAL{2778} local
>  [clone SET-STATE-LABEL[268] 2651]
>    has the following parameters:
>      NODE{2775} local
>      VAL{2776} local
>  [clone SET-FATHER[269] 2650]
>    has the following parameters:
>      NODE{2773} local
>      VAL{2774} local
>  [clone SET-CHILD[270] 2649]
>    has the following parameters:
>      NODE{2770} local
>      I{2771} local
>  [clone SET-CHILD[270] 2648]
>    has the following parameters:
>      NODE{2767} local
>      I{2768} local
>      VAL{2769} local
>  [clone SET-CHILD[270] 2647]
>    has the following parameters:
>      NODE{2764} local
>      I{2765} local
>      VAL{2766} local
>  [clone SET-CHILD[270] 2646]
>    has the following parameters:
>      NODE{2761} local
>      I{2762} local
>      VAL{2763} local
>  [clone LIST[634] 2645]
>    has the following parameter:
>      OBJS{2760} local
>  [clone LIST[634] 2644]
>    has the following parameter:
>      OBJS{2759} local
>  [clone LIST[634] 2643]
>    has the following parameter:
>      OBJS{2758} local
>  [clone LIST[634] 2642]
>    has the following parameter:
>      OBJS{2757} local
>  [clone LIST[634] 2641]
>    has the following parameter:
>      OBJS{2756} local
>  [clone LIST[634] 2640]
>    has the following parameter:
>      OBJS{2755} local
>  [clone LIST[634] 2639]
>    has the following parameter:
>      OBJS{2754} local
>  [clone LIST[634] 2638]
>    has the following parameter:
>      OBJS{2753} local
>  [clone LIST[634] 2637]
>    has the following parameter:
>      OBJS{2752} local
>  [clone LIST[634] 2636]
>    has the following parameter:
>      OBJS{2751} local
>  [clone LIST[634] 2635]
>    has the following parameter:
>      OBJS{2750} local
>  [clone [inside top level 1037] 2634]
>    has the following parameter:
>      CHAR{2749} local
>  [clone [inside top level 1037] 2633]
>    has the following parameter:
>      CHAR{2748} local
>  [clone [inside top level 1039] 2632]
>    has the following parameter:
>      CHAR{2747} local
>  [clone [inside top level 1039] 2631]
>    has the following parameter:
>      CHAR{2746} local
>  [clone [inside top level 1039] 2630]
>    has the following parameter:
>      CHAR{2745} local
>  [clone [inside top level 1039] 2629]
>    has the following parameter:
>      CHAR{2744} local
>  [clone [inside top level 1039] 2628]
>    has the following parameter:
>      CHAR{2743} local
>  [clone [inside top level 1039] 2627]
>    has the following parameter:
>      CHAR{2742} local
>  [clone [inside top level 1039] 2626]
>    has the following parameter:
>      CHAR{2741} local
>  [clone [inside top level 1039] 2625]
>    has the following parameter:
>      CHAR{2740} local
>  [clone [inside top level 1039] 2624]
>    has the following parameter:
>      CHAR{2739} local
>  [clone [inside top level 1039] 2623]
>    has the following parameter:
>      CHAR{2738} local
>  [clone [inside top level 1039] 2622]
>    has the following parameter:
>      CHAR{2737} local
>  [clone [inside top level 1039] 2621]
>    has the following parameter:
>      CHAR{2736} local
>  [clone [inside top level 1039] 2620]
>    has the following parameter:
>      CHAR{2735} local
>  [clone [inside top level 1039] 2619]
>    has the following parameter:
>      CHAR{2734} local
>  [clone [inside top level 1039] 2618]
>    has the following parameter:
>      CHAR{2733} local
>  [clone [inside top level 1039] 2617]
>    has the following parameter:
>      CHAR{2732} local
>  [clone [inside top level 1039] 2616]
>    has the following parameter:
>      CHAR{2731} local
>  [clone [inside top level 1039] 2615]
>    has the following parameter:
>      CHAR{2730} local
>  [clone [inside top level 1039] 2614]
>    has the following parameter:
>      CHAR{2729} local
>  [clone [inside top level 1039] 2613]
>    has the following parameter:
>      CHAR{2728} local
>  [clone [inside top level 1039] 2612]
>    has the following parameter:
>      CHAR{2727} local
>  [clone [inside top level 1039] 2611]
>    has the following parameter:
>      CHAR{2726} local
>  [clone [inside top level 1039] 2610]
>    has the following parameter:
>      CHAR{2725} local
>  [clone [inside top level 1039] 2609]
>    has the following parameter:
>      CHAR{2724} local
>  [clone [inside top level 1039] 2608]
>    has the following parameter:
>      CHAR{2723} local
>  [clone [inside top level 1049] 2607]
>    has the following parameter:
>      CHAR{2722} local
>  [clone [inside top level 1049] 2606]
>    has the following parameter:
>      CHAR{2721} local
>  [clone [inside top level 1049] 2605]
>    has the following parameter:
>      CHAR{2720} local
>  [clone [inside top level 1049] 2604]
>    has the following parameter:
>      CHAR{2719} local
>  [clone [inside top level 1049] 2603]
>    has the following parameter:
>      CHAR{2718} local
>  [clone [inside top level 1049] 2602]
>    has the following parameter:
>      CHAR{2717} local
>  [clone [inside top level 1049] 2601]
>    has the following parameter:
>      CHAR{2716} local
>  [clone [inside top level 1049] 2600]
>    has the following parameter:
>      CHAR{2715} local
>  [clone [inside top level 1049] 2599]
>    has the following parameter:
>      CHAR{2714} local
>  [clone [inside top level 1049] 2598]
>    has the following parameter:
>      CHAR{2713} local
>  [clone [inside top level 1049] 2597]
>    has the following parameter:
>      CHAR{2712} local
>  [clone [inside top level 1049] 2596]
>    has the following parameter:
>      CHAR{2711} local
>  [clone [inside top level 1049] 2595]
>    has the following parameter:
>      CHAR{2710} local
>  [clone [inside top level 1049] 2594]
>    has the following parameter:
>      CHAR{2709} local
>  [clone [inside top level 1049] 2593]
>    has the following parameter:
>      CHAR{2708} local
>  PEEK-CHAR[2334]
>    has the following parameter:
>      &REST{2691} local
>  READ-CHAR[2330]
>    has the following parameter:
>      &REST{2690} local
>  [inside LOOP 2018] reentrant
>  [inside LOOP 2017] reentrant
>  LOOP[2016] reentrant
>    has the following parameter:
>      I{2490} local
>  [inside DISPLAY2 2013] reentrant
>  [inside DISPLAY2 2012] reentrant
>  [inside DISPLAY2 2010] reentrant
>  [inside LOOP 2007] reentrant
>  [inside LOOP 2006] reentrant
>  [inside LOOP 2005] reentrant
>  [inside LOOP 2003] reentrant
>  LOOP[2002] reentrant
>    has the following parameter:
>      OBJ{2478} local
>  [inside DISPLAY2 1999] reentrant
>  [inside DISPLAY2 1998] reentrant
>  LOOP[1922]
>    has the following parameters:
>      MANTISSA{2437} local
>      EXPONENT{2438} local
>  LOOP[1917]
>    has the following parameters:
>      MANTISSA{2433} local
>      EXPONENT{2434} local
>  DISPLAY-INEXACT-REAL2[1908]
>    has the following parameters:
>      NUMBER{2428} local
>      PORT{2429} local
>  [inside LOOP 1905]
>    has the following parameter:
>      MANTISSA{2427} local
>  [inside LOOP 1902]
>    has the following parameter:
>      DIGIT{2425} local
>  [inside LOOP 1901]
>    has the following parameter:
>      FLOAT-DIGIT{2424} local
>  LOOP[1900]
>    has the following parameter:
>      MANTISSA{2423} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1889]
>    has the following parameter:
>      DIGIT{2416} local
>  [inside DISPLAY-MANTISSA-EXPONENT2 1888]
>    has the following parameter:
>      FLOAT-DIGIT{2415} local
>  LOOP[1879]
>    has the following parameter:
>      I{2409} local
>  LOOP[1876]
>    has the following parameters:
>      I{2405} local
>      NUMBER{2406} local
>  LOOP[1865]
>    has the following parameter:
>      I{2399} local
>  LOOP[1862]
>    has the following parameters:
>      I{2395} local
>      NUMBER{2396} local
>  LOOP[1853]
>    has the following parameter:
>      I{2389} local
>  [inside DISPLAY-STRING2 1850]
>    has the following parameter:
>      N{2386} local
>  [inside top level 1845]
>    has the following parameters:
>      THE-CURRENT-OUTPUT-PORT{2345} global
>      BUFFER{2347} global
>  [inside READ-CHARACTER-NAME 1818]
>    has the following parameter:
>      C{2340} local
>  READ-CHARACTER-NAME[1817]
>    has region
>    has the following parameter:
>      S{2339} local
>  [inside LOOP? 1813]
>    has the following parameter:
>      v{2338} local
>  LOOP?[1812]
>    has the following parameters:
>      S{2336} local
>      NAME{2337} local
>  LOOP[1808]
>    has the following parameter:
>      NAMES{2332} local
>  [inside READ-SYMBOL 1804]
>    has region
>  [inside READ-SYMBOL 1801]
>    has region
>  [inside READ-SYMBOL 1800]
>    has the following parameter:
>      C{2327} local
>  [inside CHAR-SUBSEQUENT? 1798]
>    has the following parameter:
>      v{2325} local
>  [inside CHAR-SUBSEQUENT? 1797]
>    has the following parameter:
>      v{2324} local
>  [inside CHAR-SUBSEQUENT? 1796]
>    has the following parameter:
>      v{2323} local
>  [inside CHAR-SUBSEQUENT? 1795]
>    has the following parameter:
>      v{2322} local
>  CHAR-SUBSEQUENT?[1794]
>    has the following parameter:
>      C{2321} local
>  [inside CHAR-INITIAL? 1793]
>    has the following parameter:
>      v{2320} local
>  [inside CHAR-INITIAL? 1792]
>    has the following parameter:
>      v{2319} local
>  [inside CHAR-INITIAL? 1791]
>    has the following parameter:
>      v{2318} local
>  [inside CHAR-INITIAL? 1790]
>    has the following parameter:
>      v{2317} local
>  [inside CHAR-INITIAL? 1789]
>    has the following parameter:
>      v{2316} local
>  [inside CHAR-INITIAL? 1788]
>    has the following parameter:
>      v{2315} local
>  [inside CHAR-INITIAL? 1787]
>    has the following parameter:
>      v{2314} local
>  [inside CHAR-INITIAL? 1786]
>    has the following parameter:
>      v{2313} local
>  [inside CHAR-INITIAL? 1785]
>    has the following parameter:
>      v{2312} local
>  [inside CHAR-INITIAL? 1784]
>    has the following parameter:
>      v{2311} local
>  [inside CHAR-INITIAL? 1783]
>    has the following parameter:
>      v{2310} local
>  [inside CHAR-INITIAL? 1782]
>    has the following parameter:
>      v{2309} local
>  [inside CHAR-INITIAL? 1781]
>    has the following parameter:
>      v{2308} local
>  [inside CHAR-INITIAL? 1780]
>    has the following parameter:
>      v{2307} local
>  [inside READ-NUMBER 1772]
>    has the following parameter:
>      C3{2303} local
>  [inside READ-NUMBER 1771]
>    has region
>  [inside READ-NUMBER 1767]
>    has the following parameter:
>      C3{2300} local
>  [inside READ-NUMBER 1766]
>    has region
>  [inside READ-NUMBER 1763]
>    has the following parameter:
>      C2{2298} local
>  [inside READ-NUMBER 1762]
>    has region
>  [inside READ-NUMBER 1761]
>    has region
>  [inside READ-NUMBER 1760]
>    has the following parameter:
>      v{2296} local
>  [inside READ-NUMBER 1759]
>    has the following parameter:
>      v{2295} local
>  [inside READ-NUMBER 1758]
>    has the following parameter:
>      v{2294} local
>  [inside READ-NUMBER 1757]
>    has the following parameter:
>      v{2293} local
>  [inside READ-NUMBER 1756]
>    has the following parameter:
>      v{2292} local
>  [inside READ-NUMBER 1755]
>    has the following parameter:
>      v{2291} local
>  [inside READ-NUMBER 1754]
>    has the following parameter:
>      v{2290} local
>  [inside READ-NUMBER 1753]
>    has the following parameter:
>      v{2289} local
>  [inside READ-NUMBER 1752]
>    has the following parameter:
>      v{2288} local
>  [inside READ-NUMBER 1750]
>    has region
>  [inside READ-NUMBER 1746]
>    has the following parameter:
>      C1{2285} local
>  [inside READ-INEXACT-NUMBER 1738]
>    has the following parameter:
>      C3{2281} local
>  [inside READ-INEXACT-NUMBER 1737]
>    has region
>  [inside READ-INEXACT-NUMBER 1733]
>    has the following parameter:
>      C3{2278} local
>  [inside READ-INEXACT-NUMBER 1732]
>    has region
>  [inside READ-INEXACT-NUMBER 1729]
>    has the following parameter:
>      C2{2276} local
>  [inside READ-INEXACT-NUMBER 1728]
>    has region
>  [inside READ-INEXACT-NUMBER 1727]
>    has region
>  [inside READ-INEXACT-NUMBER 1726]
>    has the following parameter:
>      v{2274} local
>  [inside READ-INEXACT-NUMBER 1725]
>    has the following parameter:
>      v{2273} local
>  [inside READ-INEXACT-NUMBER 1724]
>    has the following parameter:
>      v{2272} local
>  [inside READ-INEXACT-NUMBER 1723]
>    has the following parameter:
>      v{2271} local
>  [inside READ-INEXACT-NUMBER 1722]
>    has the following parameter:
>      v{2270} local
>  [inside READ-INEXACT-NUMBER 1721]
>    has the following parameter:
>      v{2269} local
>  [inside READ-INEXACT-NUMBER 1720]
>    has the following parameter:
>      v{2268} local
>  [inside READ-INEXACT-NUMBER 1719]
>    has the following parameter:
>      v{2267} local
>  [inside READ-INEXACT-NUMBER 1718]
>    has the following parameter:
>      v{2266} local
>  [inside READ-INEXACT-NUMBER 1714]
>    has the following parameter:
>      C1{2264} local
>  [inside READ-EXACT-HEXADECIMAL-INTEGER 1704]
>    has the following parameter:
>      C{2258} local
>  [inside READ-EXACT-DECIMAL-INTEGER 1698]
>    has the following parameter:
>      C{2255} local
>  [inside READ-EXACT-OCTAL-INTEGER 1692]
>    has the following parameter:
>      C{2252} local
>  [inside READ-EXACT-BINARY-INTEGER 1684]
>    has the following parameter:
>      C{2248} local
>  [inside READ 1681]
>    has region
>  [inside READ 1676]
>    has region
>  [inside READ 1675]
>    has region
>  [inside READ 1673]
>    has region
>  [inside READ 1671]
>    has the following parameter:
>      C2{2243} local
>  [inside READ 1670]
>    has region
>  [inside READ 1668]
>    has region
>  [inside READ 1667]
>    has region
>  [inside READ 1665]
>    has region
>  [inside READ 1664]
>    has region
>  [inside READ 1662]
>    has region
>  [inside READ 1660]
>    has the following parameter:
>      C3{2239} local
>  [inside READ 1659]
>    has region
>  [inside READ 1658]
>    has region
>  [inside READ 1656]
>    has region
>  [inside READ 1654]
>    has the following parameter:
>      C2{2236} local
>  [inside READ 1653]
>    has region
>  [inside READ 1651]
>    has region
>  [inside READ 1650]
>    has region
>  [inside READ 1648]
>    has region
>  [inside READ 1647]
>    has region
>  [inside READ 1645]
>    has region
>  [inside READ 1643]
>    has the following parameter:
>      C3{2232} local
>  [inside READ 1642]
>    has region
>  [inside READ 1641]
>    has region
>  [inside READ 1639]
>    has region
>  [inside READ 1637]
>    has the following parameter:
>      C2{2229} local
>  [inside READ 1636]
>    has region
>  [inside LOOP 1632]
>    has region
>  [inside LOOP 1629]
>    has the following parameter:
>      C1{2227} local
>  [inside LOOP 1626]
>    has the following parameter:
>      C{2225} local
>  LOOP[1625]
>    has region
>    has the following parameter:
>      S{2224} local
>  [inside READ 1618]
>    has region
>  [inside READ 1617]
>    has the following parameter:
>      C3{2220} local
>  [inside READ 1616]
>    has region
>  [inside LOOP 1614] reentrant
>    has the following parameter:
>      E{2219} local
>  LOOP[1613] reentrant
>    has region
>    has the following parameter:
>      S{2218} local
>  [inside READ 1610] reentrant
>  [inside READ 1601]
>    has the following parameter:
>      C4{2214} local
>  [inside READ 1600]
>    has region
>  [inside READ 1593]
>    has the following parameter:
>      C4{2212} local
>  [inside READ 1592]
>    has region
>  [inside READ 1587]
>    has the following parameter:
>      C3{2210} local
>  [inside READ 1586]
>    has region
>  [inside READ 1585]
>    has the following parameter:
>      v{2209} local
>  [inside READ 1578]
>    has the following parameter:
>      C4{2206} local
>  [inside READ 1577]
>    has region
>  [inside READ 1571]
>    has the following parameter:
>      C5{2203} local
>  [inside READ 1570]
>    has region
>  [inside READ 1567]
>    has the following parameter:
>      C4{2201} local
>  [inside READ 1566]
>    has region
>  [inside READ 1560]
>    has the following parameter:
>      C5{2198} local
>  [inside READ 1559]
>    has region
>  [inside READ 1556]
>    has the following parameter:
>      C4{2196} local
>  [inside READ 1555]
>    has region
>  [inside READ 1553]
>    has the following parameter:
>      C3{2194} local
>  [inside READ 1552]
>    has region
>  [inside READ 1551]
>    has the following parameter:
>      v{2193} local
>  [inside READ 1547]
>    has the following parameter:
>      v{2192} local
>  [inside READ 1544]
>    has the following parameter:
>      C4{2189} local
>  [inside READ 1543]
>    has region
>  [inside READ 1541]
>    has the following parameter:
>      v{2188} local
>  [inside READ 1538]
>    has the following parameter:
>      C4{2185} local
>  [inside READ 1537]
>    has region
>  [inside READ 1534]
>    has the following parameter:
>      C3{2183} local
>  [inside READ 1533]
>    has region
>  [inside READ 1532]
>    has the following parameter:
>      v{2182} local
>  [inside READ 1524]
>    has the following parameter:
>      C4{2180} local
>  [inside READ 1523]
>    has region
>  [inside READ 1517]
>    has the following parameter:
>      C4{2178} local
>  [inside READ 1516]
>    has region
>  [inside READ 1512]
>    has the following parameter:
>      C3{2176} local
>  [inside READ 1511]
>    has region
>  [inside READ 1510]
>    has the following parameter:
>      v{2175} local
>  [inside READ 1508]
>    has the following parameter:
>      v{2174} local
>  [inside READ 1506]
>    has the following parameter:
>      v{2173} local
>  [inside READ 1505] reentrant
>  [inside READ 1504] reentrant
>    has the following parameter:
>      C2{2171} local
>  [inside READ 1503] reentrant
>  [inside LOOP 1501] reentrant
>  LOOP[1497]
>    has the following parameters:
>      S{2169} local
>      C{2170} local
>  [inside LOOP 1492] reentrant
>    has the following parameter:
>      E1{2165} local
>  [inside LOOP 1491] reentrant
>  [inside LOOP 1490] reentrant
>  [inside LOOP 1489] reentrant
>    has the following parameter:
>      E{2163} local
>  LOOP[1488] reentrant
>    has region
>    has the following parameter:
>      S{2162} local
>  [inside READ 1485] reentrant
>  [inside READ 1483] reentrant
>  [inside READ 1482] reentrant
>  [inside READ 1481] reentrant
>  [inside READ 1480] reentrant
>  [inside READ 1479] reentrant
>    has the following parameter:
>      C2{2157} local
>  [inside READ 1478] reentrant
>  [inside READ 1477] reentrant
>  [inside READ 1476] reentrant
>  [inside READ 1474] reentrant
>  [inside LOOP 1468]
>    has the following parameter:
>      C{2155} local
>  [inside READ 1464] reentrant
>  [inside READ 1463] reentrant
>  [inside READ 1452] reentrant
>    has the following parameter:
>      C1{2151} local
>  [inside READ 1451] reentrant
>  [inside READ 1450] reentrant
>  [inside READ 1446]
>    has the following parameters:
>      CLOSE{2124} global
>      DOT{2125} global
>  READ[1444]
>    has the following parameter:
>      PORT{2122} global
>  LOOP[1289]
>    has the following parameter:
>      K{1993} local
>  [inside LIST->VECTOR 1285]
>    has the following parameter:
>      R{1989} local
>  LIST->VECTOR[1284]
>    has the following parameter:
>      LIST{1988} local
>  LOOP[1236]
>    has the following parameter:
>      K{1948} local
>  [inside STRING-COPY 1231]
>    has the following parameter:
>      R{1944} local
>  [inside STRING-COPY 1230]
>    has the following parameter:
>      N{1943} local
>  LOOP[1224]
>    has the following parameter:
>      K{1939} local
>  [inside LIST->STRING 1220]
>    has the following parameter:
>      R{1935} local
>  [inside LOOP? 1076]
>    has the following parameter:
>      v{1766} local
>  LOOP?[1075]
>    has the following parameter:
>      K{1765} local
>  [inside LOOP? 1072]
>    has the following parameter:
>      N{1762} local
>  LOOP?[1071]
>    has the following parameters:
>      STRING1{1759} local
>      STRING2{1760} local
>  [inside top level 1049]
>    has the following parameter:
>      CHAR{1735} local
>  [inside top level 1048]
>    has the following parameter:
>      CHAR-UPCASE{1734} global
>  [inside top level 1041]
>    has the following parameter:
>      CHAR{1727} local
>  [inside top level 1040]
>    has the following parameter:
>      CHAR-WHITESPACE?{1726} global
>  [inside top level 1039]
>    has the following parameter:
>      CHAR{1725} local
>  [inside top level 1038]
>    has the following parameter:
>      CHAR-NUMERIC?{1724} global
>  [inside top level 1037]
>    has the following parameter:
>      CHAR{1723} local
>  [inside top level 1036]
>    has the following parameter:
>      CHAR-ALPHABETIC?{1722} global
>  LOOP?[1009]
>    has the following parameters:
>      CHAR1{1682} local
>      CHAR2{1683} local
>  CHAR-CI=?[1006]
>    has the following parameters:
>      CHAR1{1677} local
>      CHAR2{1678} local
>  LOOP?[1003]
>    has the following parameters:
>      CHAR1{1673} local
>      CHAR2{1674} local
>  CHAR>=?[1000]
>    has the following parameters:
>      CHAR1{1668} local
>      CHAR2{1669} local
>  LOOP?[997]
>    has the following parameters:
>      CHAR1{1664} local
>      CHAR2{1665} local
>  CHAR<=?[994]
>    has the following parameters:
>      CHAR1{1659} local
>      CHAR2{1660} local
>  LOOP?[991]
>    has the following parameters:
>      CHAR1{1655} local
>      CHAR2{1656} local
>  CHAR>?[988]
>    has the following parameters:
>      CHAR1{1650} local
>      CHAR2{1651} local
>  LOOP?[985]
>    has the following parameters:
>      CHAR1{1646} local
>      CHAR2{1647} local
>  CHAR<?[982]
>    has the following parameters:
>      CHAR1{1641} local
>      CHAR2{1642} local
>  LOOP?[979]
>    has the following parameters:
>      CHAR1{1637} local
>      CHAR2{1638} local
>  CHAR=?[976]
>    has the following parameters:
>      CHAR1{1632} local
>      CHAR2{1633} local
>  [inside MODULO 908]
>    has the following parameter:
>      v{1571} local
>  LOOP[832]
>    has the following parameter:
>      PACKAGE{1479} local
>  [inside top level 826]
>    has the following parameter:
>      FOUND{1475} local
>  [inside top level 810]
>    has the following parameter:
>      PACKAGE{1473} global
>  LOOP[745]
>    has the following parameters:
>      LIST{1425} local
>      R{1426} local
>  LIST-REVERSE[742]
>    has the following parameter:
>      LIST{1422} local
>  LOOP[715]
>    has the following parameter:
>      SS{1404} local
>  LOOP[687]
>    has the following parameter:
>      SS{1383} local
>  [inside LOOP 676]
>    has the following parameter:
>      v{1375} local
>  [inside LOOP 675]
>    has the following parameter:
>      v{1374} local
>  LOOP[674]
>    has the following parameter:
>      SS{1373} local
>  APPEND[670]
>    has the following parameter:
>      SS{1370} local
>  LOOP[638]
>    has the following parameter:
>      K{1351} local
>  LIST[634]
>    has the following parameter:
>      OBJS{1347} local
>  [inside EQV? 577]
>    has the following parameter:
>      v{1286} local
>  TEST[480]
>    has the following parameter:
>      FILE-NAME{1281} local
>  REVBUILDER-DONE[408]
>    has the following parameter:
>      RB{1219} local
>  REVBUILDER-ADD[407]
>    has the following parameters:
>      RB{1217} local
>      NEW{1218} local
>  [inside REVERT-FROM-BACKUPS 404]
>    has the following parameters:
>      BACKUP{1215} local
>      GUY{1216} local
>  [inside REVERT-FROM-BACKUPS 403]
>    has the following parameter:
>      GUY-DOT-BACKUP{1214} local
>  REVERT-FROM-BACKUPS[402]
>    has the following parameter:
>      BACKUP-TABLE{1212} local
>  [inside BACKUP 400]
>    has the following parameter:
>      BACKUP{1211} local
>  [inside GREEDILY-COLLAPSE 397]
>    has the following parameters:
>      UNIQUE-NODES{1204} local
>      UNIQUE-TABLE{1205} local
>      TODO{1206} local
>  GREEDILY-COLLAPSE[396]
>    has the following parameter:
>      ROOT{1203} local
>  [inside FIND-MATCH 391]
>    has the following parameter:
>      X{1200} local
>  [inside FIND-MATCH 389]
>    has the following parameters:
>      SPLICES{1196} local
>      BACKUP-TABLE{1197} local
>      POTENTIAL-MATCH{1198} local
>  FIND-MATCH[388]
>    has region
>    has the following parameter:
>      POTENTIAL-MATCHES{1195} local
>  [inside CONSIDER-NODE 382]
>    has the following parameter:
>      INCHAR{1191} local
>  [inside CONSIDER-NODE 381]
>    has the following parameter:
>      CURDAD{1190} local
>  [inside CONSIDER-NODE 380]
>    has the following parameter:
>      CURNODE{1189} local
>  CONSIDER-NODE[379]
>    has region
>    has the following parameters:
>      TODO{1186} local
>      UNIQUE-TABLE{1187} local
>      UNIQUE-NODES{1188} local
>  [inside ACCEPT-THE-NODE 377]
>    has the following parameter:
>      X{1185} local
>  ACCEPT-THE-NODE[375]
>    has region
>    has the following parameters:
>      CURNODE{1179} local
>      TODO{1180} global
>      UNIQUE-TABLE{1181} local
>      UNIQUE-NODES{1182} local
>  [inside LOOP 370]
>    has the following parameter:
>      RESULT{1177} local
>  [inside LOOP 369]
>    has the following parameter:
>      G{1176} local
>  [inside LOOP 368]
>    has the following parameter:
>      T{1175} local
>  [inside LOOP 367]
>    has the following parameter:
>      P{1174} local
>  [inside TRY-MERGING 362]
>    has the following parameter:
>      SEARCH-STACK{1170} local
>  TRY-MERGING[361]
>    has region
>    has the following parameters:
>      CURNODE{1166} local
>      POTENTIAL-MATCH{1167} local
>      BACKUP-TABLE{1168} local
>      SPLICES{1169} local
>  [inside CONTINUE-MERGING 357]
>    has the following parameters:
>      TREE-CHILD{1160} local
>      GRAPH-CHILD{1161} local
>  [inside CONTINUE-MERGING 356]
>    has the following parameter:
>      I{1159} local
>  CONTINUE-MERGING[355]
>    has the following parameters:
>      TR-NODE{1154} local
>      GRAPH-NODE{1155} local
>      SEARCH-STACK{1156} local
>      BACKUP-TABLE{1157} local
>      SPLICES{1158} local
>  COMPARE-LABELS[352]
>    has the following parameters:
>      TR-NODE{1149} local
>      GRAPH-NODE{1150} local
>      BACKUP-TABLE{1151} local
>  [inside NEXT-NODE 347]
>    has the following parameter:
>      X{1147} local
>  [inside NEXT-NODE 342]
>    has the following parameter:
>      CURNODE{1144} local
>  [inside NEXT 336]
>    has region
>  [inside NEXT 334]
>    has the following parameter:
>      X{1140} local
>  [inside NEXT 332]
>    has region
>  [inside NEXT 331]
>    has the following parameter:
>      CURNODE{1137} local
>  [inside FANCY-PRINT-TREE 324]
>    has the following parameters:
>      TODO{1127} global
>      ID-TABLE{1128} global
>      SEEN{1129} local
>  FANCY-PRINT-TREE[323]
>    has the following parameter:
>      START-NODE{1125} local
>  NEXT[305]
>    has region
>    has the following parameters:
>      I{1109} local
>      N-MATCHES{1110} local
>      MATCHING-I{1111} local
>  FIND-INCOMING-TOKEN[302]
>    has the following parameters:
>      NODE{1105} local
>      FATHER{1106} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 296]
>    has the following parameter:
>      RB2{1101} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 295]
>    has region
>    has the following parameter:
>      STRING-LEN{1100} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 294]
>    has the following parameter:
>      LABEL{1099} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 290]
>    has the following parameter:
>      ROOT{1096} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 288]
>    has the following parameter:
>      N-STRINGS{1094} local
>  [inside BUILD-TREE-FROM-CFORM-FILE 287]
>    has the following parameter:
>      THE-FILE{1093} local
>  BUILD-TREE-FROM-CFORM-FILE[286]
>    has the following parameter:
>      NAME{1092} local
>  [inside AUGMENT-TREE 279]
>    has the following parameter:
>      CURSYM{1086} local
>  AUGMENT-TREE[278]
>    has the following parameters:
>      CURNODE{1083} local
>      STRING{1084} local
>      LABEL{1085} local
>  REPLACE-NODE-CONTENTS[277]
>    has the following parameters:
>      TO{1081} local
>      FROM{1082} local
>  MAKE-DUPLICATE-NODE[276]
>    has the following parameter:
>      X{1080} local
>  [inside MAKE-NODE 275]
>    has the following parameter:
>      I{1079} local
>  [inside MAKE-NODE 273]
>    has the following parameters:
>      NODE{1072} local
>      OLD-COUNTER-VAL{1073} local
>  MAKE-NODE[272]
>    has the following parameter:
>      FATHER{1071} local
>  WALK-CHILDREN[271]
>    has the following parameter:
>      NODE{1070} local
>  SET-CHILD[270]
>    has the following parameters:
>      NODE{1066} local
>      I{1067} local
>      VAL{1068} local
>  SET-FATHER[269]
>    has the following parameters:
>      NODE{1064} local
>      VAL{1065} local
>  SET-STATE-LABEL[268]
>    has the following parameters:
>      NODE{1062} local
>      VAL{1063} local
>  GET-CHILD[267]
>    has the following parameters:
>      NODE{1060} local
>      I{1061} local
>  FATHER[266]
>    has the following parameter:
>      NODE{1059} local
>  [inside VECTOR-REPLACE 261]
>    has the following parameter:
>      I{1055} local
>  VECTOR-REPLACE[260]
>    has the following parameters:
>      TO{1052} local
>      FROM{1053} local
>      LEN{1054} local
>  NEXT[255]
>    has the following parameter:
>      I{1050} local
>  [inside WALK-VECTOR-WITH-OFFSET 252]
>    has the following parameter:
>      VECLEN{1047} local
>  [inside TABLE-TEST-AND-SET! 239]
>    has the following parameter:
>      PROBE{1035} local
>  TABLE-TEST-AND-SET![238]
>    has the following parameters:
>      TABLE{1033} local
>      KEY{1034} local
>  [inside LOOP 233]
>    has the following parameter:
>      P{1032} local
>  LOOP[230]
>    has the following parameter:
>      P{1030} local
>  LOOP[225]
>    has the following parameter:
>      I{1026} local
>  [inside WALK-TABLE 222]
>    has the following parameters:
>      ALISTS{1022} local
>      N-ALISTS{1023} local
>  WALK-TABLE[221]
>    has the following parameter:
>      TABLE{1021} local
>  TABLE-COUNT[220]
>    has the following parameter:
>      TABLE{1019} local
>  [inside TABLE-SET! 215]
>    has the following parameter:
>      PROBE{1016} local
>  [inside TABLE-SET! 214]
>    has the following parameter:
>      HASH{1015} local
>  [inside TABLE-SET! 213]
>    has the following parameter:
>      ALISTS{1014} local
>  [inside TABLE-SET! 212]
>    has the following parameter:
>      N-ALISTS{1013} local
>  TABLE-SET![211]
>    has the following parameters:
>      TABLE{1010} local
>      KEY{1011} local
>      VALUE{1012} local
>  [inside LOOP 206]
>    has the following parameter:
>      NEW-HASH{1009} local
>  [inside LOOP 205]
>    has the following parameter:
>      A{1008} local
>  LOOP[202]
>    has the following parameter:
>      A{1006} local
>  LOOP[197]
>    has the following parameter:
>      I{1002} local
>  [inside TABLE-EXPAND 192]
>    has the following parameter:
>      NEW-ALISTS{997} local
>  [inside TABLE-EXPAND 191]
>    has the following parameter:
>      NEW-N-ALISTS{996} local
>  [inside TABLE-EXPAND 190]
>    has the following parameter:
>      OLD-ALISTS{995} local
>  [inside TABLE-EXPAND 189]
>    has the following parameter:
>      OLD-N-ALISTS{994} local
>  [inside TABLE-LOOKUP 186]
>    has the following parameter:
>      PROBE{992} local
>  [inside TABLE-LOOKUP 185]
>    has the following parameter:
>      HASH{991} local
>  [inside TABLE-LOOKUP 184]
>    has the following parameter:
>      ALISTS{990} local
>  [inside TABLE-LOOKUP 183]
>    has the following parameter:
>      N-ALISTS{989} local
>  [inside TABLE-TEST 180]
>    has the following parameter:
>      PROBE{986} local
>  [inside TABLE-TEST 179]
>    has the following parameter:
>      HASH{985} local
>  [inside TABLE-TEST 178]
>    has the following parameter:
>      ALISTS{984} local
>  [inside TABLE-TEST 177]
>    has the following parameter:
>      N-ALISTS{983} local
>  [inside MAKE-COUNTER 173]
>    has the following parameter:
>      OLD-COUNT{979} local
>  [inside MAKE-COUNTER 171]
>    has the following parameter:
>      COUNT{978} global
>  NORMALIZE-QUEUE![164]
>    has the following parameter:
>      Q{974} local
>  [inside QUEUE-POP 162]
>    has the following parameter:
>      HEAD{972} local
>  QUEUE-PUSH[159]
>    has the following parameters:
>      Q{968} local
>      OBJ{969} local
>  [inside STACK-POP 155]
>    has the following parameter:
>      L{965} local
>  STACK-POP[154]
>    has the following parameter:
>      S{964} local
>  STACK-EMPTY?[152]
>    has the following parameter:
>      S{961} local
>  [inside READ-INT 136]
>    has the following parameter:
>      VAL{947} local
>  LOOP[122]
>    has the following parameter:
>      I{937} local
>  DO-TIMES-UP[119]
>    has the following parameter:
>      N{933} local
>  LOOP[114]
>    has the following parameter:
>      L{931} local
>  WALK-LIST[111]
>    has the following parameter:
>      L{927} local
>  LOOP[46]
>    has the following parameter:
>      I{871} local
>  [inside COPY-VECTOR 41]
>    has the following parameter:
>      TO{867} local
>  [inside COPY-VECTOR 40]
>    has the following parameter:
>      LEN{866} local
>  COPY-VECTOR[39]
>    has the following parameter:
>      FROM{865} local
>  [inside LOOP 27]
>    has the following parameter:
>      C2{858} local
>  [inside LOOP 26]
>    has the following parameter:
>      C{857} local
>  LOOP[25]
>    has the following parameters:
>      I{855} local
>      VALUES{856} local
>  [inside top level 4]
>    has the following parameters:
>      GLOBAL-NODE-COUNTER{677} local
>      ALPHABET-SIZE{688} local
>The following expression, dfa2-stalin.sc:370:11163, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa2-stalin.sc:370:11169, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa2-stalin.sc:370:11163, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa2-stalin.sc:370:11169, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa2-stalin.sc:370:11163, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa2-stalin.sc:370:11169, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa2-stalin.sc:453:13184, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) 3 (UNBOX ALPHABET-SIZE)))
>The following expression allocates on [inside READ-SYMBOL 1804]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside READ-SYMBOL 1801]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on READ-INT[135]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on LOOP[1613]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on [inside LOOP 1632]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1817]:
>(READ-CHAR PORT)
>The following expression allocates on READ-CHARACTER-NAME[1817]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1799]:
>(READ-CHAR PORT)
>The following expression allocates on READ-SYMBOL[1799]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CHAR-UPCASE C) S)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1761]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1762]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1771]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1766]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-NUMBER 1750]:
>(READ-CHAR PORT)
>The following expression allocates on READ-NUMBER[1745]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1727]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1728]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1737]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ-INEXACT-NUMBER 1732]:
>(READ-CHAR PORT)
>The following expression allocates on READ-INEXACT-NUMBER[1713]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1703]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1703]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1703]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-DECIMAL-INTEGER[1697]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-OCTAL-INTEGER[1691]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1683]:
>(READ-CHAR PORT)
>The following expression allocates on READ-EXACT-BINARY-INTEGER[1683]:
>(READ-CHAR PORT)
>The following expression allocates on READ[1449]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1681]:
>(LIST (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1670]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1675]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1676]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1673]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1653]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1667]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1668]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1658]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1659]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1664]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1665]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1662]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1656]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1636]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1650]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1651]:
>(LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1641]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1642]:
>(PEEK-CHAR PORT)
>The following expression allocates on [inside READ 1647]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1648]:
>(LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1))
>The following expression allocates on [inside READ 1645]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1639]:
>(READ-CHAR PORT)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1625]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S)
>The following expression allocates on LOOP[1625]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1625]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C1 S)
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1616]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1618]:
>(LIST C3)
>The following expression allocates on LOOP[1613]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on [inside READ 1586]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1600]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1592]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1552]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1577]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1566]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1570]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1555]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1559]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1533]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1543]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1537]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1511]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1523]:
>(READ-CHAR PORT)
>The following expression allocates on [inside READ 1516]:
>(READ-CHAR PORT)
>The following expression allocates on LOOP[1488]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S)
>The following expression allocates on READ-INT[135]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) E1)
>The following expression allocates on READ-INT[135]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) C)
>The following expression allocates on the stack:
>(PEEK-CHAR PORT)
>The following expression allocates on READ-INT[135]:
>(LIST (QUOTE UNQUOTE) (READ (QUOTE UNQUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on READ-INT[135]:
>(LIST (QUOTE UNQUOTE-SPLICING) (READ (QUOTE UNQUOTE-SPLICING)))
>The following expression allocates on READ-INT[135]:
>(LIST (QUOTE QUASIQUOTE) (READ (QUOTE QUASIQUOTE)))
>The following expression allocates on READ-INT[135]:
>(LIST (QUOTE QUOTE) (READ (QUOTE QUOTE)))
>The following expression allocates on the stack:
>(READ-CHAR PORT)
>The following expression allocates on READ-INT[135]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRING) N)
>The following expression allocates on READ-INT[135]:
>((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (STRING-COPY STRING) PACKAGE)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, dfa2-stalin.sc:680:20264, allocates on [inside BUILD-TREE-FROM-CFORM-FILE 295]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW (UNBOX RB))
>The following expression, dfa2-stalin.sc:677:20206, allocates on [inside BUILD-TREE-FROM-CFORM-FILE 295]:
>(BOX (QUOTE ()))
>The following expression, dfa2-stalin.sc:666:19887, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GUY BACKUP)
>The following expression, dfa2-stalin.sc:658:19618, allocates on the heap:
>(BOX (QUOTE ()))
>The following expression, dfa2-stalin.sc:640:19003, allocates on FIND-MATCH[388]:
>(BOX (QUOTE ()))
>The following expression, dfa2-stalin.sc:624:18340, allocates on ACCEPT-THE-NODE[375]:
>(APPEND (UNBOX UNIQUE-NODES) (LIST CURNODE))
>The following expression, dfa2-stalin.sc:624:18369, allocates on the heap:
>(LIST CURNODE)
>The following expression, dfa2-stalin.sc:609:17932, allocates on TRY-MERGING[361]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CURNODE POTENTIAL-MATCH)
>The following expression, dfa2-stalin.sc:604:17735, allocates on CONSIDER-NODE[379]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GRAPH-NODE TREE-CHILD) (UNBOX SPLICES))
>The following expression, dfa2-stalin.sc:604:17741, allocates on CONSIDER-NODE[379]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) GRAPH-NODE TREE-CHILD)
>The following expression, dfa2-stalin.sc:597:17512, allocates on TRY-MERGING[361]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TREE-CHILD GRAPH-CHILD)
>The following expression, dfa2-stalin.sc:556:16212, allocates on the heap:
>(PORMAT-FUNCTION "~a ~a~%" (COUNT) (UNBOX ALPHABET-SIZE))
>The following expression, dfa2-stalin.sc:569:16636, allocates on [inside NEXT 336]:
>(PORMAT-FUNCTION "~a " (TABLE-LOOKUP ID-TABLE (GLOID X)))
>The following expression, dfa2-stalin.sc:561:16418, allocates on [inside NEXT 332]:
>(PORMAT-FUNCTION "~a ~a " (TABLE-LOOKUP ID-TABLE (GLOID CURNODE)) (STATE-LABEL CURNODE))
>The following expression, dfa2-stalin.sc:509:14856, allocates on NEXT[305]:
>(SCREAM "horrible bug in find-incoming-token ~a ~a ~a" N-MATCHES NODE FATHER)
>The following expression, dfa2-stalin.sc:453:13184, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) 3 (UNBOX ALPHABET-SIZE)))
>The following expression, dfa2-stalin.sc:449:13081, allocates on the heap:
>(BOX 0)
>The following expression, dfa2-stalin.sc:415:12436, allocates on the heap:
>(BOX 2)
>The following expression, dfa2-stalin.sc:370:11163, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE) ((PRIMITIVE-PROCEDURE VECTOR-REF) ALISTS HASH))
>The following expression, dfa2-stalin.sc:370:11169, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY VALUE)
>The following expression, dfa2-stalin.sc:346:10393, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) NEW-N-ALISTS (QUOTE ()))
>The following expression, dfa2-stalin.sc:355:10696, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) A ((PRIMITIVE-PROCEDURE VECTOR-REF) NEW-ALISTS NEW-HASH))
>The following expression, dfa2-stalin.sc:318:9274, allocates on the heap:
>(MAKE-TABLE-INTERNAL 0 1 ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1 (QUOTE ())))
>The following expression, dfa2-stalin.sc:318:9299, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1 (QUOTE ()))
>The following expression, dfa2-stalin.sc:311:9060, allocates on the heap:
>(BOX 0)
>The following expression, dfa2-stalin.sc:293:8708, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) Q))
>The following expression, dfa2-stalin.sc:286:8579, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (QUOTE ()) (QUOTE ()))
>The following expression, dfa2-stalin.sc:278:8453, allocates on TRY-MERGING[361]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ (UNBOX S))
>The following expression, dfa2-stalin.sc:272:8355, allocates on TRY-MERGING[361]:
>(BOX (QUOTE ()))
>The following expression, dfa2-stalin.sc:249:7683, allocates on the stack:
>(READ FILE)
>The following expression, dfa2-stalin.sc:252:7734, allocates on the stack:
>(SCREAM "bogus value ~a" VAL)
>The following expression, dfa2-stalin.sc:56:1313, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) LEN 0)
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W27186 is general case for the following reasons:
>  nondegenerate nonheaded vector
>W25666 is general case for the following reasons:
>  flonum
>W15439 is general case for the following reasons:
>  flonum
>W15438 is general case for the following reasons:
>  flonum
>W15421 is general case for the following reasons:
>  flonum
>W15010 is general case for the following reasons:
>  flonum
>W14977 is general case for the following reasons:
>  flonum
>W14976 is general case for the following reasons:
>  flonum
>W14975 is general case for the following reasons:
>  flonum
>W12846 is general case for the following reasons:
>  flonum
>W12838 is general case for the following reasons:
>  flonum
>W12830 is general case for the following reasons:
>  flonum
>W12821 is general case for the following reasons:
>  flonum
>W667 is general case for the following reasons:
>  flonum
>W22 is general case for the following reasons:
>  flonum
>W2 is general case for the following reasons:
>  flonum
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>dfa2-stalin.c: In function âf1799â:
>dfa2-stalin.c:3628:30: warning: value computed is not used
>dfa2-stalin.c: In function âf1745â:
>dfa2-stalin.c:4982:30: warning: value computed is not used
>dfa2-stalin.c:5105:30: warning: value computed is not used
>dfa2-stalin.c:5629:30: warning: value computed is not used
>dfa2-stalin.c: In function âf1713â:
>dfa2-stalin.c:6480:30: warning: value computed is not used
>dfa2-stalin.c:7026:30: warning: value computed is not used
>dfa2-stalin.c: In function âf1703â:
>dfa2-stalin.c:7711:31: warning: value computed is not used
>dfa2-stalin.c:7870:31: warning: value computed is not used
>dfa2-stalin.c:8031:30: warning: value computed is not used
>dfa2-stalin.c: In function âf1697â:
>dfa2-stalin.c:8206:31: warning: value computed is not used
>dfa2-stalin.c: In function âf1691â:
>dfa2-stalin.c:8470:31: warning: value computed is not used
>dfa2-stalin.c: In function âf1683â:
>dfa2-stalin.c:8695:31: warning: value computed is not used
>dfa2-stalin.c:8794:31: warning: value computed is not used
>dfa2-stalin.c: In function âf1449â:
>dfa2-stalin.c:11651:31: warning: value computed is not used
>dfa2-stalin.c:16876:31: warning: value computed is not used
>dfa2-stalin.c:17555:31: warning: value computed is not used
>dfa2-stalin.c:17675:31: warning: value computed is not used
>dfa2-stalin.c:17811:31: warning: value computed is not used
>dfa2-stalin.c:18061:31: warning: value computed is not used
>dfa2-stalin.c:18415:31: warning: value computed is not used
>dfa2-stalin.c:18703:31: warning: value computed is not used
>dfa2-stalin.c:18838:31: warning: value computed is not used
>dfa2-stalin.c:18974:31: warning: value computed is not used
>dfa2-stalin.c:19226:31: warning: value computed is not used
>dfa2-stalin.c:19580:31: warning: value computed is not used
>dfa2-stalin.c:19867:31: warning: value computed is not used
>dfa2-stalin.c:20116:31: warning: value computed is not used
>dfa2-stalin.c: In function âf182â:
>dfa2-stalin.c:22416:11: warning: âr182â may be used uninitialized in this function
>dfa2-stalin.c: In function âf0â:
>dfa2-stalin.c:23501:6: warning: ât3233â may be used uninitialized in this function
>Compilation time summary (in CPU seconds)
>     0 -  1% - Reading source
>     0 -  1% - Expanding macros
>     1 -  8% - Fast tree shake
>     0 -  0% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  0% - Annotating expressions with their environments
>     0 -  2% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     2 -  9% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     3 - 16% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     1 -  3% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     2 - 10% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  2% - Determining which environments are recursive
>     1 -  6% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     2 - 10% - Performing lightweight closure conversion
>     0 -  2% - Determining parents
>     0 -  2% - Determining which expressions need conversion to CPS
>     0 -  1% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  2% - Determining which environments have external continuation calls
>     1 -  3% - Determining blocked environments
>     0 -  1% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     2 - 12% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  2% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  0% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m23.130s
>user	0m22.763s
>sys	0m0.350s
>run dfa2
>
>real	0m0.070s
>user	0m0.061s
>sys	0m0.008s
>compile graphs
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17921 expressions
>     3 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   212 non-called native procedure types
>   276 called noop native procedure types
>   218 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    33 structure types
>    15 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20315 type sets
>   668 hunoz variables
>  1644 non-hunoz variables
>   498 noop environments
>  1729 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 19027 expressions
>     3 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   212 non-called native procedure types
>   290 called noop native procedure types
>   292 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    46 structure types
>    21 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 21581 type sets
>   697 hunoz variables
>  1797 non-hunoz variables
>   512 noop environments
>  1857 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 40
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  5443 expressions
>     3 internal symbol types
>     0 external symbol types
>    31 primitive procedure types
>   212 non-called native procedure types
>   290 called noop native procedure types
>   292 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    46 structure types
>    21 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  6647 type sets
>   353 hunoz variables
>   791 non-hunoz variables
>     0 noop environments
>   346 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 5
>Maximal clone rate is 40
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  [inside MAKE-REACH? 215]
>    has the following parameter:
>      V{919} local
>    has the following in-lined locals:
>      FROM-V{920}
>      X{923}
>      LIST1{1722}
>      LIST1{1726}
>  [inside FOLD-OVER-RDG 204]
>  -**-[167] reentrant passes parameters globally
>    has parent parameter [inside -*- 164]
>    has the following parameters:
>      SV{870} local
>      OUTS{871} local
>      STATE{872} local
>    has the following in-lined locals:
>      STATE{874}
>      FROM-SV{875}
>      SV-OUT{876}
>      STATE{877}
>      STATE{880}
>      STATE{886}
>      STATE{887}
>      STATE{893}
>  [inside -*- 157]
>    has the following parameter:
>      I{864} local
>  -*-[147] reentrant
>    has region
>    has the following parameters:
>      V{852} local
>      OUTS{853} local
>      EFR{854} local
>      EFRR{855} local
>      STATE{856} local
>    has the following in-lined locals:
>      SIZE{698}
>      X{702}
>      I{706}
>      LIMIT{745}
>      I{751}
>      v{752}
>      LST{761}
>      LST{767}
>      v{768}
>      v{857}
>      STATE{859}
>      V{861}
>      R{862}
>      OBJ1{943}
>      OBJ2{944}
>      X{980}
>      v{981}
>      SLOW{984}
>      FAST{985}
>      v{986}
>      FAST{987}
>      v{988}
>  -*-[140] reentrant passes parameters globally
>    has closure
>    has the following parameters:
>      VERTEX{845} slotted
>      STATE{846} local
>    has the following in-lined locals:
>      LIMIT{737}
>      I{743}
>      V{866}
>      SIZE{904}
>      RES{912}
>      M{914}
>      FROM-M{915}
>      F{916}
>      FROM-F{917}
>      T{918}
>      LIST{990}
>      K{993}
>      S{995}
>      SIZE{2436}
>      X{2440}
>      I{2444}
>      LIMIT{2466}
>      I{2472}
>      LIMIT{2474}
>      I{2480}
>      LIMIT{2482}
>      I{2488}
>  CMP-NEXT-VERTEX[114]
>    has the following parameters:
>      GRAPH{817} local
>      PERM{818} local
>      X{819} local
>      PERM-X{820} local
>    has the following in-lined locals:
>      FROM-PERM-X{821}
>      FROM-X{822}
>      Y{825}
>      PERM-Y{826}
>      X->Y?{827}
>      Y->X?{828}
>  [inside MAKE-MINIMAL? 103]
>    has the following parameters:
>      SIZE{799} global
>      GRAPH{800} global
>      FOLDER{801} global
>    has the following in-lined locals:
>      UNIVERSE{769}
>      B-STATE{771}
>      X{2499}
>      v{2500}
>      SLOW{2503}
>      FAST{2504}
>      v{2505}
>      FAST{2506}
>      v{2507}
>  [inside FOLD-OVER-PERM-TREE 99]
>  [inside -**- 96] reentrant passes parameters globally
>    has parent parameter [inside -**- 92]
>  -**-[90] reentrant passes parameters globally
>    has parent parameter -*-[87]
>    has closure
>    has parent slot -*-[87]
>    has the following parameters:
>      IN{785} local
>      OUT{786} slotted
>    has the following in-lined locals:
>      LST{689}
>      STATE{691}
>      LST{696}
>      STATE{697}
>      ACCROSS{790}
>      NEW-B-STATE{791}
>      PERM-X{806}
>      X{807}
>      DEEPER{809}
>      ACCROSS{810}
>      v{811}
>      OBJ1{2350}
>      OBJ2{2351}
>      OBJ1{2421}
>      v{2423}
>      OBJ1{2426}
>      v{2428}
>      OBJ1{2431}
>      v{2433}
>      X{2490}
>      v{2491}
>      SLOW{2494}
>      FAST{2495}
>      v{2496}
>      FAST{2497}
>      v{2498}
>  -*-[87] reentrant passes parameters globally
>    has closure
>    has the following parameters:
>      UNIVERSE{779} local
>      B-STATE{780} slotted
>      ACCROSS{782} slotted
>    has the following in-lined locals:
>      LEAF-DEPTH{813}
>      ACCROSS{815}
>      PERM{897}
>      ACCROSS{899}
>      v{901}
>      v{902}
>      ACCROSS{907}
>      OBJ1{926}
>      v{928}
>      OBJ1{2406}
>      v{2408}
>      OBJ1{2411}
>      v{2413}
>      OBJ1{2416}
>      OBJ2{2417}
>      v{2418}
>      v{2419}
>  GIOTA[38]
>    has the following parameter:
>      LIMIT{721} local
>    has the following in-lined locals:
>      LIMIT{725}
>      RES{726}
>      LIMIT{727}
>  [inside top level 0]
>    has the following in-lined locals:
>      N{686}
>      SIZE{2446}
>      X{2450}
>      I{2454}
>      SIZE{2456}
>      X{2460}
>      I{2464}
>The following non-trivial in-line native procedures will be generated:
>  [clone [inside LOOP? 294] 2385]
>    has the following parameter:
>      v{2507} local
>  [clone [inside LOOP? 293] 2384]
>    has the following parameter:
>      FAST{2506} local
>  [clone [inside LOOP? 292] 2383]
>    has the following parameter:
>      v{2505} local
>  [clone LOOP?[291] 2382]
>    has the following parameters:
>      SLOW{2503} local
>      FAST{2504} local
>  [clone [inside LIST? 288] 2379]
>    has the following parameter:
>      v{2500} local
>  [clone LIST?[287] 2378]
>    has the following parameter:
>      X{2499} local
>  [clone [inside LOOP? 294] 2376]
>    has the following parameter:
>      v{2498} local
>  [clone [inside LOOP? 293] 2375]
>    has the following parameter:
>      FAST{2497} local
>  [clone [inside LOOP? 292] 2374]
>    has the following parameter:
>      v{2496} local
>  [clone LOOP?[291] 2373]
>    has the following parameters:
>      SLOW{2494} local
>      FAST{2495} local
>  [clone [inside LIST? 288] 2370]
>    has the following parameter:
>      v{2491} local
>  [clone LIST?[287] 2369]
>    has the following parameter:
>      X{2490} local
>  [clone loop[57] 2364]
>    has the following parameter:
>      I{2488} local
>  [clone GNATURAL-FOR-EACH[53] 2360]
>    has region
>    has the following parameter:
>      LIMIT{2482} local
>  [clone loop[57] 2355]
>    has the following parameter:
>      I{2480} local
>  [clone GNATURAL-FOR-EACH[53] 2351]
>    has region
>    has the following parameter:
>      LIMIT{2474} local
>  [clone loop[57] 2346]
>    has the following parameter:
>      I{2472} local
>  [clone GNATURAL-FOR-EACH[53] 2342]
>    has region
>    has the following parameter:
>      LIMIT{2466} local
>  [clone LOOP[22] 2337]
>    has the following parameter:
>      I{2464} local
>  [clone [inside PROC->VECTOR 18] 2333]
>    has the following parameter:
>      X{2460} local
>  [clone PROC->VECTOR[16] 2331]
>    has the following parameter:
>      SIZE{2456} local
>  [clone LOOP[22] 2326]
>    has the following parameter:
>      I{2454} local
>  [clone [inside PROC->VECTOR 18] 2322]
>    has the following parameter:
>      X{2450} local
>  [clone PROC->VECTOR[16] 2320]
>    has the following parameter:
>      SIZE{2446} local
>  [clone LOOP[22] 2315]
>    has the following parameter:
>      I{2444} local
>  [clone [inside PROC->VECTOR 18] 2311]
>    has the following parameter:
>      X{2440} local
>  [clone PROC->VECTOR[16] 2309]
>    has region
>    has the following parameter:
>      SIZE{2436} local
>  [clone [inside EQV? 239] 2306]
>    has the following parameter:
>      v{2433} local
>  [clone EQV?[238] 2305]
>    has the following parameter:
>      OBJ1{2431} local
>  [clone [inside EQV? 239] 2302]
>    has the following parameter:
>      v{2428} local
>  [clone EQV?[238] 2301]
>    has the following parameter:
>      OBJ1{2426} local
>  [clone [inside EQV? 239] 2298]
>    has the following parameter:
>      v{2423} local
>  [clone EQV?[238] 2297]
>    has the following parameter:
>      OBJ1{2421} local
>  [clone [inside EQV? 240] 2295]
>    has the following parameter:
>      v{2419} local
>  [clone [inside EQV? 239] 2294]
>    has the following parameter:
>      v{2418} local
>  [clone EQV?[238] 2293]
>    has the following parameters:
>      OBJ1{2416} local
>      OBJ2{2417} local
>  [clone [inside EQV? 239] 2290]
>    has the following parameter:
>      v{2413} local
>  [clone EQV?[238] 2289]
>    has the following parameter:
>      OBJ1{2411} local
>  [clone [inside EQV? 239] 2286]
>    has the following parameter:
>      v{2408} local
>  [clone EQV?[238] 2285]
>    has the following parameter:
>      OBJ1{2406} local
>  [clone CONS[253] 2257]
>    has the following parameters:
>      OBJ1{2350} local
>      OBJ2{2351} local
>  LOOP[1057]
>    has the following parameter:
>      LIST1{1726} local
>  FOR-EACH[1053]
>    has the following parameter:
>      LIST1{1722} local
>  LENGTH[305]
>    has the following parameter:
>      S{995} local
>  LOOP[300]
>    has the following parameter:
>      K{993} local
>  LIST-LENGTH[297]
>    has the following parameter:
>      LIST{990} local
>  [inside LOOP? 294]
>    has the following parameter:
>      v{988} local
>  [inside LOOP? 293]
>    has the following parameter:
>      FAST{987} local
>  [inside LOOP? 292]
>    has the following parameter:
>      v{986} local
>  LOOP?[291]
>    has the following parameters:
>      SLOW{984} local
>      FAST{985} local
>  [inside LIST? 288]
>    has the following parameter:
>      v{981} local
>  LIST?[287]
>    has the following parameter:
>      X{980} local
>  CONS[253]
>    has the following parameters:
>      OBJ1{943} local
>      OBJ2{944} local
>  [inside EQV? 239]
>    has the following parameter:
>      v{928} local
>  EQV?[238]
>    has the following parameter:
>      OBJ1{926} local
>  [inside MAKE-REACH? 218]
>    has the following parameter:
>      X{923} local
>  [inside MAKE-REACH? 216]
>    has the following parameter:
>      FROM-V{920} local
>  [inside MAKE-REACH? 212]
>    has the following parameter:
>      T{918} local
>  [inside MAKE-REACH? 211]
>    has the following parameter:
>      FROM-F{917} local
>  [inside MAKE-REACH? 210]
>    has the following parameter:
>      F{916} local
>  [inside MAKE-REACH? 209]
>    has the following parameter:
>      FROM-M{915} local
>  [inside MAKE-REACH? 208]
>    has the following parameter:
>      M{914} local
>  [inside MAKE-REACH? 206]
>    has the following parameter:
>      RES{912} local
>  MAKE-REACH?[205]
>    has the following parameters:
>      SIZE{910} global
>      VERTEX->OUT{911} global
>  [inside FOLD-OVER-RDG 203] reentrant
>  [inside FOLD-OVER-RDG 202] reentrant
>    has the following parameter:
>      ACCROSS{907} local
>  [inside FOLD-OVER-RDG 201]
>    has the following parameter:
>      SIZE{904} local
>  [inside FOLD-OVER-RDG 198] reentrant
>  [inside FOLD-OVER-RDG 197]
>    has the following parameter:
>      v{902} local
>  [inside FOLD-OVER-RDG 195] reentrant
>    has the following parameter:
>      v{901} local
>  [inside FOLD-OVER-RDG 194] reentrant
>  [inside FOLD-OVER-RDG 193] reentrant
>    has the following parameters:
>      PERM{897} local
>      ACCROSS{899} local
>  [inside -**- 187]
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      STATE{893} local
>  [inside -**- 186] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 185] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 183]
>    has parent parameter -*-[140]
>  [inside -**- 182]
>    has parent parameter -*-[140]
>    has the following parameter:
>      STATE{887} local
>  [inside -**- 181] reentrant
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      STATE{886} local
>  [inside -**- 180] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 179] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 177]
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      STATE{880} local
>  [inside -**- 176] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 175] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 174] reentrant
>    has parent parameter [inside -*- 164]
>  [inside -**- 173] reentrant
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      STATE{877} local
>  [inside -**- 172] reentrant
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      SV-OUT{876} local
>  [inside -**- 171] reentrant
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      FROM-SV{875} local
>  [inside -**- 170] reentrant
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      STATE{874} local
>  [inside -**- 169] reentrant
>    has parent parameter -*-[140]
>  [inside -**- 168] reentrant
>    has parent parameter -*-[140]
>  [inside -*- 166]
>    has parent parameter [inside -*- 164]
>  [inside -*- 165]
>    has parent parameter [inside -*- 164]
>    has the following parameter:
>      -**-{868} hidden as
>        -**-[167]
>  [inside -*- 164] reentrant
>    has parent parameter -*-[140]
>    has closure
>    has parent slot -*-[140]
>    has the following parameter:
>      FROM-VERTEX{867} slotted
>  [inside -*- 163] reentrant
>    has parent parameter -*-[140]
>  [inside -*- 162]
>    has region
>    has the following parameter:
>      V{866} local
>  [inside -*- 154]
>    has the following parameter:
>      R{862} local
>  [inside -*- 153]
>    has the following parameter:
>      V{861} local
>  [inside -*- 152] reentrant
>  [inside -*- 151] reentrant
>    has the following parameter:
>      STATE{859} local
>  [inside -*- 150] reentrant
>  [inside -*- 149] reentrant
>  [inside -*- 148]
>    has the following parameter:
>      v{857} local
>  [inside -*- 144]
>    has the following parameters:
>      FROM-ROOT{848} global
>      REACH?{849} global
>  [inside -*- 143]
>    has region
>  [inside FOLD-OVER-RDG 133]
>    has the following parameter:
>      OUT-DEGREES{839} global
>  [inside FOLD-OVER-RDG 132]
>    has the following parameter:
>      EDGES{838} global
>  [inside FOLD-OVER-RDG 131]
>    has the following parameter:
>      EDGE?{837} global
>  [inside FOLD-OVER-RDG 130]
>    has the following parameter:
>      ROOT{836} global
>  FOLD-OVER-RDG[128]
>    has the following parameters:
>      SIZE{829} global
>      MAX-OUT{830} global
>  [inside -*- 121]
>    has the following parameter:
>      Y->X?{828} local
>  [inside -*- 119]
>    has the following parameters:
>      PERM-Y{826} local
>      X->Y?{827} local
>  -*-[118]
>    has the following parameter:
>      Y{825} local
>  [inside CMP-NEXT-VERTEX 115]
>    has the following parameters:
>      FROM-PERM-X{821} local
>      FROM-X{822} local
>  [inside MAKE-MINIMAL? 113] reentrant
>  [inside MAKE-MINIMAL? 112] reentrant
>    has the following parameters:
>      LEAF-DEPTH{813} local
>      ACCROSS{815} local
>  [inside MAKE-MINIMAL? 110] reentrant
>  [inside MAKE-MINIMAL? 109] reentrant
>  [inside MAKE-MINIMAL? 108] reentrant
>  [inside MAKE-MINIMAL? 106] reentrant
>    has the following parameter:
>      v{811} local
>  [inside MAKE-MINIMAL? 105] reentrant
>    has the following parameters:
>      PERM-X{806} local
>      X{807} local
>      DEEPER{809} local
>      ACCROSS{810} local
>  [inside MAKE-MINIMAL? 102]
>    has the following parameters:
>      PERM{797} global
>      IOTAS{798} global
>  MAKE-MINIMAL?[100]
>    has the following parameter:
>      MAX-SIZE{795} global
>  [inside -**- 95] reentrant
>    has parent parameter [inside -**- 92]
>    has the following parameter:
>      NEW-B-STATE{791} local
>  [inside -**- 94] reentrant
>    has parent parameter [inside -**- 92]
>  [inside -**- 93] reentrant
>    has parent parameter [inside -**- 92]
>    has the following parameter:
>      ACCROSS{790} local
>  [inside -**- 92] reentrant
>    has parent parameter [inside -**- 91]
>    has closure
>    has parent slot [inside -**- 91]
>    has the following parameter:
>      REST{789} slotted
>  [inside -**- 91] reentrant
>    has parent parameter -**-[90]
>    has closure
>    has parent slot -**-[90]
>    has the following parameter:
>      FIRST{788} slotted
>  [inside -*- 89]
>    has parent parameter -*-[87]
>  [inside -*- 88]
>    has parent parameter -*-[87]
>    has the following parameter:
>      -**-{783} hidden as
>        -**-[90]
>  FOLD-OVER-PERM-TREE[83]
>    has the following parameters:
>      UNIVERSE{769} local
>      B-STATE{771} local
>  [inside -*- 81]
>    has the following parameter:
>      v{768} local
>  -*-[80]
>    has the following parameter:
>      LST{767} local
>  THERE-EXISTS?[76]
>    has region
>    has the following parameter:
>      LST{761} local
>  [inside -*- 67]
>    has the following parameter:
>      v{752} local
>  -*-[66]
>    has the following parameter:
>      I{751} local
>  NATURAL-FOR-ALL?[62]
>    has region
>    has the following parameter:
>      LIMIT{745} local
>  loop[57]
>    has the following parameter:
>      I{743} local
>  GNATURAL-FOR-EACH[53]
>    has region
>    has the following parameter:
>      LIMIT{737} local
>  [inside -*- 43]
>    has the following parameter:
>      LIMIT{727} local
>  -*-[42]
>    has the following parameters:
>      LIMIT{725} local
>      RES{726} local
>  LOOP[22]
>    has the following parameter:
>      I{706} local
>  [inside PROC->VECTOR 18]
>    has the following parameter:
>      X{702} local
>  PROC->VECTOR[16]
>    has region
>    has the following parameter:
>      SIZE{698} local
>  loop[12]
>    has the following parameters:
>      LST{696} local
>      STATE{697} local
>  FOLD[8]
>    has region
>    has the following parameters:
>      LST{689} local
>      STATE{691} local
>  [inside top level 6]
>    has the following parameter:
>      N{686} local
>The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2360]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2351]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2342]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:20:561, allocates on the heap:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) ((PRIMITIVE-PROCEDURE >=) SIZE 0) #F) #F) SIZE)
>The following expression, graphs-stalin.sc:24:714, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0))
>The following expression, graphs-stalin.sc:23:690, allocates on the heap:
>((PRIMITIVE-PROCEDURE VECTOR))
>The following expression, graphs-stalin.sc:20:561, allocates on the heap:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) ((PRIMITIVE-PROCEDURE >=) SIZE 0) #F) #F) SIZE)
>The following expression, graphs-stalin.sc:24:714, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0))
>The following expression, graphs-stalin.sc:23:690, allocates on the heap:
>((PRIMITIVE-PROCEDURE VECTOR))
>The following expression, graphs-stalin.sc:20:561, allocates on [clone PROC->VECTOR[16] 2309]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) ((PRIMITIVE-PROCEDURE >=) SIZE 0) #F) #F) SIZE)
>The following expression, graphs-stalin.sc:24:714, allocates on [inside -*- 143]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0))
>The following expression, graphs-stalin.sc:23:690, allocates on [inside -*- 143]:
>((PRIMITIVE-PROCEDURE VECTOR))
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2)
>The following expression, graphs-stalin.sc:381:12598, allocates on [inside -*- 143]:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F)
>The following expression, graphs-stalin.sc:241:8541, allocates on the heap:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE EXACT?) MAX-OUT) (IF ((PRIMITIVE-PROCEDURE INTEGER?) MAX-OUT) ((PRIMITIVE-PROCEDURE >=) MAX-OUT 0) #F) #F) MAX-OUT)
>The following expression, graphs-stalin.sc:240:8471, allocates on the heap:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) ((PRIMITIVE-PROCEDURE >) SIZE 0) #F) #F) SIZE)
>The following expression, graphs-stalin.sc:245:8740, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F)
>The following expression, graphs-stalin.sc:246:8774, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (QUOTE ()))
>The following expression, graphs-stalin.sc:247:8813, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE 0)
>The following expression, graphs-stalin.sc:326:11038, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VERTEX ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES SV))
>The following expression, graphs-stalin.sc:340:11442, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX))
>The following expression, graphs-stalin.sc:364:12051, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX))
>The following expression, graphs-stalin.sc:273:9585, allocates on [inside -*- 162]:
>(GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE =) ((PRIMITIVE-PROCEDURE VECTOR-REF) OUT-DEGREES V) (LENGTH ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES V))) V ((PRIMITIVE-PROCEDURE VECTOR-REF) OUT-DEGREES V) ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES V))
>The following expression, graphs-stalin.sc:291:10112, allocates on -*-[147]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) REACH? V) EFRR)
>The following expression, graphs-stalin.sc:290:10089, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) V EFR)
>The following expression, graphs-stalin.sc:182:6376, allocates on the heap:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) MAX-SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) MAX-SIZE) ((PRIMITIVE-PROCEDURE >=) MAX-SIZE 0) #F) #F) MAX-SIZE)
>The following expression, graphs-stalin.sc:185:6523, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) MAX-SIZE 0)
>The following expression, graphs-stalin.sc:191:6734, allocates on the stack:
>(GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE PROCEDURE?) FOLDER) FOLDER)
>The following expression, graphs-stalin.sc:190:6692, allocates on the stack:
>(GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE VECTOR?) GRAPH) GRAPH)
>The following expression, graphs-stalin.sc:187:6591, allocates on the stack:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) ((PRIMITIVE-PROCEDURE <=) 0 SIZE MAX-SIZE) #F) #F) SIZE MAX-SIZE)
>The following expression, graphs-stalin.sc:203:7133, allocates on the heap:
>(GRAPHS:ASSERT (EQV? LEAF-DEPTH SIZE) LEAF-DEPTH SIZE)
>The following expression, graphs-stalin.sc:127:4562, allocates on the stack:
>(GRAPHS:ASSERT (LIST? UNIVERSE) UNIVERSE)
>The following expression, graphs-stalin.sc:144:5116, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT)
>The following expression, graphs-stalin.sc:88:2616, allocates on THERE-EXISTS?[76]:
>(GRAPHS:ASSERT (LIST? LST) LST)
>The following expression, graphs-stalin.sc:74:2148, allocates on NATURAL-FOR-ALL?[62]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:68:1934, allocates on GNATURAL-FOR-EACH[53]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:48:1325, allocates on the stack:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) LIMIT) (IF ((PRIMITIVE-PROCEDURE EXACT?) LIMIT) ((PRIMITIVE-PROCEDURE >=) LIMIT 0) #F) #F) LIMIT)
>The following expression, graphs-stalin.sc:54:1518, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) LIMIT RES)
>The following expression, graphs-stalin.sc:20:561, allocates on PROC->VECTOR[16]:
>(GRAPHS:ASSERT (IF ((PRIMITIVE-PROCEDURE INTEGER?) SIZE) (IF ((PRIMITIVE-PROCEDURE EXACT?) SIZE) ((PRIMITIVE-PROCEDURE >=) SIZE 0) #F) #F) SIZE)
>The following expression, graphs-stalin.sc:24:714, allocates on the heap:
>((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0))
>The following expression, graphs-stalin.sc:23:690, allocates on the heap:
>((PRIMITIVE-PROCEDURE VECTOR))
>The following expression, graphs-stalin.sc:9:207, allocates on FOLD[8]:
>(GRAPHS:ASSERT (LIST? LST) LST)
>The closure for [inside -*- 164] is allocated on the heap
>The closure for -*-[140] is allocated on the heap
>The closure for [inside -**- 92] is allocated on the heap
>The closure for [inside -**- 91] is allocated on the heap
>The closure for -**-[90] is allocated on the heap
>The closure for -*-[87] is allocated on the heap
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W19120 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>graphs-stalin.c: In function âf140â:
>graphs-stalin.c:2149:2: warning: statement with no effect
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 27% - Fast tree shake
>     0 -  1% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 -  8% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 18% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  2% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  2% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  5% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  1% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 - 11% - Performing lightweight closure conversion
>     0 -  1% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  1% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  5% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  1% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  3% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m6.821s
>user	0m6.563s
>sys	0m0.245s
>run graphs
>
>real	0m4.612s
>user	0m4.486s
>sys	0m0.124s
>compile lattice
>Reading source
>Expanding macros
>Fast tree shake
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>In-lining first-order calls to primitive procedures
>Annotating expressions with their parents
>Annotating variables with their environments
>Annotating expressions with their environments
>Annotating variables with their references
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 17245 expressions
>     6 internal symbol types
>     0 external symbol types
>    23 primitive procedure types
>   210 non-called native procedure types
>   276 called noop native procedure types
>   142 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    16 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 19497 type sets
>   624 hunoz variables
>  1587 non-hunoz variables
>   496 noop environments
>  1648 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 1
>Determining which call sites to split
>Performing flow analysis
>Enumerating call sites
>Determining which types and type sets are used
> 18076 expressions
>     6 internal symbol types
>     0 external symbol types
>    23 primitive procedure types
>   210 non-called native procedure types
>   278 called noop native procedure types
>   177 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    18 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
> 20382 type sets
>   626 hunoz variables
>  1653 non-hunoz variables
>   498 noop environments
>  1701 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 10
>Determining which call sites to split
>2 passes of flow analysis
>Computing call graph
>Determining which environments are called more than once
>Determining which variables are referenced
>Determining free variables
>Determining necessarily-fictitious native procedure types
>Annotating environments and continuation types
>Inverting points-to relation
>Determining escaping types
>Determining which environments have unique call sites
>Determining which environments are recursive
>Determining which environments are reentrant
>Asserting uniqueness
>Performing lightweight closure conversion
>Determining parents
>Determining which expressions need conversion to CPS
>  4485 expressions
>     6 internal symbol types
>     0 external symbol types
>    23 primitive procedure types
>   210 non-called native procedure types
>   278 called noop native procedure types
>   177 called non-noop native procedure types
>     1 foreign procedure type
>     0 continuation types
>     1 string type
>    18 structure types
>     8 headed vector types
>     1 nonheaded vector type
>     0 displaced vector types
>  5453 type sets
>   283 hunoz variables
>   658 non-hunoz variables
>     0 noop environments
>   195 non-noop environments
>0 call sites dispatch on clones
>Maximal non-LET lexical nesting depth is 4
>Maximal clone rate is 10
>Determining environment distances from root
>Determining which environments have external self tail calls
>Determining which environments have external continuation calls
>Determining blocked environments
>Determining which environments need to pass parameters globally
>Determining allocations
>Applying closed-world assumption
>Determining indirect structure types
>Determining which types are never allocated on the heap
>Determining which types are atomic
>Determining which environments have regions
>The following non-in-line native procedures will be generated:
>  MAP[916] reentrant
>    has the following parameters:
>      PROC{1557} local
>      LIST1{1558} local
>    has the following in-lined locals:
>      X{766}
>      LIST{925}
>      LIST{928}
>      R{929}
>      LIST1{1562}
>      C{1563}
>      PAIR{2213}
>  LOOP[229] reentrant
>    has the following parameters:
>      LIST1{881} local
>      LIST2{882} local
>      LISTS{883} local
>  CAR[138]
>    has the following parameter:
>      PAIR{806} local
>  COUNT-MAPS[95]
>    has the following parameters:
>      SOURCE{774} local
>      TARGET{775} local
>  LOOP[93] reentrant
>    has the following parameter:
>      X{773} local
>    has the following in-lined locals:
>      SS{873}
>      SS{876}
>      v{877}
>      v{878}
>      SS{886}
>      SS{907}
>  MAPS[88]
>    has the following parameters:
>      SOURCE{767} local
>      TARGET{768} local
>    has the following in-lined locals:
>      ELEM-LIST{715}
>      CMP-FUNC{716}
>      PAIR{2216}
>  MAPS-REST[85] reentrant
>    has closure
>    has the following parameters:
>      SOURCE{758} slotted
>      TARGET{759} slotted
>      PAS{760} slotted
>      REST{761} local
>      TO-1{762} slotted
>      TO-COLLECT{763} slotted
>    has the following in-lined locals:
>      LST{718}
>      AC{721}
>      LST{722}
>      HEAD{723}
>      LST{733}
>      AC{736}
>      LST{737}
>      HEAD{738}
>      LST{740}
>      LST{743}
>      REST{744}
>      SOURCE{745}
>      TARGET{746}
>      PAS{747}
>      NEW{748}
>      SCMP{750}
>      MORE{751}
>      LESS{752}
>      P{756}
>      P{757}
>      X{769}
>      X{770}
>      X{780}
>      X{783}
>      C{784}
>      PAIR{807}
>      OBJS{850}
>      PAIR{2214}
>      PAIR{2215}
>      LST{2266}
>      AC{2269}
>      LST{2270}
>      HEAD{2271}
>      LST{2273}
>      LST{2276}
>      REST{2277}
>      PAIR{2278}
>  [inside MAPS-1 82]
>    has the following parameter:
>      T2{755} local
>    has the following in-lined locals:
>      OBJ{2211}
>      LIST{2212}
>  [inside MAPS-1 81]
>    has the following parameter:
>      T2{754} local
>    has the following in-lined locals:
>      OBJ{941}
>      LIST{942}
>  [inside top level 60]
>    has the following parameter:
>      LST{726} local
>    has the following in-lined locals:
>      FO{727}
>      FUM{728}
>      NEXT{729}
>  LEX-FIRST[41] reentrant
>    has parent parameter [inside LEXICO 32]
>    has the following parameters:
>      LHS{710} local
>      RHS{711} local
>    has the following in-lined locals:
>      FIXED{701}
>      LHS{702}
>      RHS{703}
>      LHS{706}
>      RHS{707}
>      PROBE{708}
>      v{709}
>      PROBE{712}
>      v{713}
>      v{714}
>      OBJ1{787}
>      v{789}
>      OBJ1{2219}
>      v{2221}
>      OBJ1{2224}
>      v{2226}
>      OBJ1{2229}
>      v{2231}
>  [inside loop 17]
>    has the following parameters:
>      LHS{691} local
>      RHS{692} local
>    has the following in-lined locals:
>      v{693}
>      v{694}
>      v{695}
>      OBJ1{2234}
>      v{2236}
>      OBJ1{2239}
>      v{2241}
>      OBJ1{2244}
>      v{2246}
>      OBJ1{2249}
>      v{2251}
>      OBJ1{2254}
>      v{2256}
>      OBJ1{2259}
>      v{2261}
>  [inside top level 0]
>    has the following in-lined locals:
>      I{682}
>      L2{684}
>      L3{685}
>      L4{686}
>      ELEM-LIST{2217}
>The following non-trivial in-line native procedures will be generated:
>  [clone CDR[139] 2198]
>    has the following parameter:
>      PAIR{2278} local
>  [clone [inside DRUDGE 75] 2196]
>    has the following parameter:
>      REST{2277} local
>  [clone DRUDGE[74] 2195]
>    has the following parameter:
>      LST{2276} local
>  [clone MAP-AND[71] 2192]
>    has the following parameter:
>      LST{2273} local
>  [clone [inside SELECT-A 69] 2190]
>    has the following parameter:
>      HEAD{2271} local
>  [clone SELECT-A[68] 2189]
>    has the following parameters:
>      AC{2269} local
>      LST{2270} local
>  [clone SELECT-MAP[65] 2186]
>    has the following parameter:
>      LST{2266} local
>  [clone [inside EQV? 123] 2183]
>    has the following parameter:
>      v{2261} local
>  [clone EQV?[122] 2182]
>    has the following parameter:
>      OBJ1{2259} local
>  [clone [inside EQV? 123] 2179]
>    has the following parameter:
>      v{2256} local
>  [clone EQV?[122] 2178]
>    has the following parameter:
>      OBJ1{2254} local
>  [clone [inside EQV? 123] 2175]
>    has the following parameter:
>      v{2251} local
>  [clone EQV?[122] 2174]
>    has the following parameter:
>      OBJ1{2249} local
>  [clone [inside EQV? 123] 2171]
>    has the following parameter:
>      v{2246} local
>  [clone EQV?[122] 2170]
>    has the following parameter:
>      OBJ1{2244} local
>  [clone [inside EQV? 123] 2167]
>    has the following parameter:
>      v{2241} local
>  [clone EQV?[122] 2166]
>    has the following parameter:
>      OBJ1{2239} local
>  [clone [inside EQV? 123] 2163]
>    has the following parameter:
>      v{2236} local
>  [clone EQV?[122] 2162]
>    has the following parameter:
>      OBJ1{2234} local
>  [clone [inside EQV? 123] 2159]
>    has the following parameter:
>      v{2231} local
>  [clone EQV?[122] 2158]
>    has the following parameter:
>      OBJ1{2229} local
>  [clone [inside EQV? 123] 2155]
>    has the following parameter:
>      v{2226} local
>  [clone EQV?[122] 2154]
>    has the following parameter:
>      OBJ1{2224} local
>  [clone [inside EQV? 123] 2151]
>    has the following parameter:
>      v{2221} local
>  [clone EQV?[122] 2150]
>    has the following parameter:
>      OBJ1{2219} local
>  [clone MAKE-LATTICE[51] 2149]
>    has the following parameter:
>      ELEM-LIST{2217} local
>  [clone CDR[139] 2148]
>    has the following parameter:
>      PAIR{2216} local
>  [clone CDR[139] 2147]
>    has the following parameter:
>      PAIR{2215} local
>  [clone CDR[139] 2146]
>    has the following parameter:
>      PAIR{2214} local
>  [clone CDR[139] 2145]
>    has the following parameter:
>      PAIR{2213} local
>  [clone MEMQ[313] 2144]
>    has the following parameters:
>      OBJ{2211} local
>      LIST{2212} local
>  LOOP[920] reentrant
>    has the following parameters:
>      LIST1{1562} local
>      C{1563} local
>  [inside MAP 917] reentrant
>  MEMQ[313]
>    has the following parameters:
>      OBJ{941} local
>      LIST{942} local
>  LOOP[291]
>    has the following parameters:
>      LIST{928} local
>      R{929} local
>  LIST-REVERSE[288]
>    has the following parameter:
>      LIST{925} local
>  LOOP[261]
>    has the following parameter:
>      SS{907} local
>  LOOP[233]
>    has the following parameter:
>      SS{886} local
>  [inside LOOP 222]
>    has the following parameter:
>      v{878} local
>  [inside LOOP 221]
>    has the following parameter:
>      v{877} local
>  LOOP[220]
>    has the following parameter:
>      SS{876} local
>  APPEND[216]
>    has the following parameter:
>      SS{873} local
>  LIST[180]
>    has the following parameter:
>      OBJS{850} local
>  CDR[139]
>    has the following parameter:
>      PAIR{807} local
>  [inside EQV? 123]
>    has the following parameter:
>      v{789} local
>  EQV?[122]
>    has the following parameter:
>      OBJ1{787} local
>  LOOP[104]
>    has the following parameters:
>      X{783} local
>      C{784} local
>  [inside COUNT-MAPS 101]
>    has the following parameter:
>      X{780} local
>  [inside COUNT-MAPS 96]
>    has the following parameter:
>      COUNT{776} global
>  [inside MAPS 90]
>    has the following parameter:
>      X{770} local
>  [inside MAPS 89] reentrant
>    has the following parameter:
>      X{769} local
>  [inside MAPS-REST 87] reentrant
>    has parent parameter [inside MAPS-REST 86]
>    has the following parameter:
>      X{766} local
>  [inside MAPS-REST 86] reentrant
>    has parent parameter MAPS-REST[85]
>    has closure
>    has parent slot MAPS-REST[85]
>    has the following parameters:
>      REST{764} slotted
>      NEXT{765} slotted
>  [inside MAPS-1 84]
>    has the following parameter:
>      P{757} local
>  [inside MAPS-1 83]
>    has the following parameter:
>      P{756} local
>  [inside MAPS-1 80]
>    has the following parameter:
>      T{753} global
>  [inside MAPS-1 79]
>    has the following parameters:
>      MORE{751} local
>      LESS{752} local
>  [inside MAPS-1 78]
>    has the following parameters:
>      TCMP{749} global
>      SCMP{750} local
>  MAPS-1[77]
>    has the following parameters:
>      SOURCE{745} local
>      TARGET{746} local
>      PAS{747} local
>      NEW{748} local
>  [inside DRUDGE 75]
>    has the following parameter:
>      REST{744} local
>  DRUDGE[74]
>    has the following parameter:
>      LST{743} local
>  MAP-AND[71]
>    has the following parameter:
>      LST{740} local
>  [inside SELECT-A 69]
>    has the following parameter:
>      HEAD{738} local
>  SELECT-A[68]
>    has the following parameters:
>      AC{736} local
>      LST{737} local
>  SELECT-MAP[65]
>    has the following parameter:
>      LST{733} local
>  [inside ROTATE 62]
>    has the following parameter:
>      NEXT{729} local
>  ROTATE[61]
>    has the following parameters:
>      FO{727} local
>      FUM{728} local
>  [inside SELECT-A 56]
>    has the following parameter:
>      HEAD{723} local
>  SELECT-A[55]
>    has the following parameters:
>      AC{721} local
>      LST{722} local
>  ZULU-SELECT[52]
>    has the following parameter:
>      LST{718} local
>  MAKE-LATTICE[51]
>    has the following parameters:
>      ELEM-LIST{715} local
>      CMP-FUNC{716} local
>  [inside LEX-FIRST 46] reentrant
>    has parent parameter [inside LEXICO 32]
>  [inside LEX-FIRST 45] reentrant
>    has parent parameter [inside LEXICO 32]
>  [inside LEX-FIRST 44]
>    has the following parameter:
>      v{714} local
>  [inside LEX-FIRST 43] reentrant
>    has parent parameter [inside LEXICO 32]
>    has the following parameter:
>      v{713} local
>  [inside LEX-FIRST 42] reentrant
>    has parent parameter [inside LEXICO 32]
>    has the following parameter:
>      PROBE{712} local
>  [inside CHECK 39]
>    has the following parameter:
>      v{709} local
>  [inside CHECK 38] reentrant
>    has parent parameter LEXICO[31]
>    has the following parameter:
>      PROBE{708} local
>  CHECK[37] reentrant
>    has parent parameter LEXICO[31]
>    has the following parameters:
>      LHS{706} local
>      RHS{707} local
>  [inside LEX-FIXED 36] reentrant
>    has parent parameter LEXICO[31]
>  [inside LEX-FIXED 35] reentrant
>    has parent parameter LEXICO[31]
>    has the following parameter:
>      CHECK{704} hidden as
>        CHECK[37]
>  LEX-FIXED[34] reentrant
>    has parent parameter LEXICO[31]
>    has the following parameters:
>      FIXED{701} local
>      LHS{702} local
>      RHS{703} local
>  [inside LEXICO 33]
>    has parent parameter [inside LEXICO 32]
>  [inside LEXICO 32]
>    has parent parameter LEXICO[31]
>    has closure
>    has parent slot LEXICO[31]
>    has the following parameters:
>      LEX-FIRST{697} slotted
>      LEX-FIXED{698} slotted
>  LEXICO[31]
>    has closure
>    has the following parameter:
>      BASE{696} slotted
>  [inside loop 25]
>    has the following parameter:
>      v{695} local
>  [inside loop 20]
>    has the following parameter:
>      v{694} local
>  [inside loop 18]
>    has the following parameter:
>      v{693} local
>  [inside loop 14]
>    has the following parameter:
>      L4{686} local
>  [inside loop 13]
>    has the following parameter:
>      L3{685} local
>  [inside loop 12]
>    has region
>    has the following parameter:
>      L2{684} local
>  loop[8]
>    has region
>    has the following parameter:
>      I{682} local
>  [inside top level 4]
>    has the following parameter:
>      PRINT-FREQUENCY{653} global
>The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC)
>The following expression, lattice-stalin.sc:33:869, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC)
>The following expression allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) C)
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R)
>The following expression allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) LIST1) LIST2 LISTS))
>The following expression, lattice-stalin.sc:121:3230, allocates on the stack:
>(APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X) (LOOP ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) X)))
>The following expression, lattice-stalin.sc:118:3141, allocates on loop[8]:
>(LIST (MAP CDR X))
>The following expression, lattice-stalin.sc:106:2887, allocates on the stack:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X) PAS)
>The following expression, lattice-stalin.sc:106:2893, allocates on loop[8]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X)
>The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC)
>The following expression, lattice-stalin.sc:47:1178, allocates on [inside loop 12]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) HEAD AC)
>The following expression, lattice-stalin.sc:33:869, allocates on [inside loop 12]:
>((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC)
>The closure for [inside MAPS-REST 86] is allocated on the stack
>The closure for MAPS-REST[85] is allocated on the stack
>The closure for [inside LEXICO 32] is allocated on [inside loop 12]
>The closure for LEXICO[31] is allocated on [inside loop 12]
>Determining which type sets are squeezable
>Determining which type sets are squishable
>Determining alignments
>Assigning global squish tags
>W18123 is general case for the following reasons:
>  nondegenerate nonheaded vector
>Generating code
>Removing unused declarations
>Removing unused labels
>Generating C code
>Writing database
>Compiling C code
>lattice-stalin.c: In function âf88â:
>lattice-stalin.c:830:12: warning: âa697â is used uninitialized in this function
>lattice-stalin.c:831:12: warning: âa698â is used uninitialized in this function
>lattice-stalin.c: In function âf41â:
>lattice-stalin.c:1909:11: warning: âr41â may be used uninitialized in this function
>Compilation time summary (in CPU seconds)
>     0 -  2% - Reading source
>     0 -  2% - Expanding macros
>     1 - 30% - Fast tree shake
>     0 -  2% - Annotating expressions with their parents
>     0 -  0% - Annotating variables with their environments
>     0 -  1% - Annotating expressions with their environments
>     0 - 10% - In-lining first-order calls to primitive procedures
>     0 -  0% - Annotating variables with their references
>     1 - 23% - Performing flow analysis
>     0 -  0% - Enumerating call sites
>     0 -  1% - Determining which types and type sets are used
>     0 -  1% - Determining which call sites to split
>     0 -  0% - Computing call graph
>     0 -  1% - Determining which environments are called more than once
>     0 -  1% - Determining which variables are referenced
>     0 -  0% - Determining free variables
>     0 -  0% - Determining necessarily-fictitious native procedure types
>     0 -  0% - Annotating environments and continuation types
>     0 -  0% - Inverting points-to relation
>     0 -  2% - Determining escaping types
>     0 -  0% - Determining which environments have unique call sites
>     0 -  0% - Determining which environments are recursive
>     0 -  2% - Determining which environments are reentrant
>     0 -  0% - Asserting uniqueness
>     0 -  8% - Performing lightweight closure conversion
>     0 -  0% - Determining parents
>     0 -  1% - Determining which expressions need conversion to CPS
>     0 -  0% - Determining environment distances from root
>     0 -  0% - Determining which environments have external self tail calls
>     0 -  0% - Determining which environments have external continuation calls
>     0 -  0% - Determining blocked environments
>     0 -  0% - Determining which environments need to pass parameters globally
>     0 -  0% - Determining allocations
>     0 -  5% - Applying closed-world assumption
>     0 -  0% - Determining indirect structure types
>     0 -  0% - Determining which types are never allocated on the heap
>     0 -  0% - Determining which types are atomic
>     0 -  0% - Determining which environments have regions
>     0 -  0% - Determining which type sets are squeezable
>     0 -  0% - Determining which type sets are squishable
>     0 -  0% - Determining alignments
>     0 -  0% - Assigning global squish tags
>     0 -  2% - Generating code
>     0 -  1% - Removing unused declarations
>     0 -  1% - Removing unused labels
>     0 -  1% - Generating C code
>     0 -  1% - Writing database
>     0 -  0% - Compiling C code
>
>real	0m5.933s
>user	0m5.792s
>sys	0m0.126s
>run lattice
>
>real	0m5.767s
>user	0m5.705s
>sys	0m0.060s
>
>>>> Install stalin-0.11 into /var/tmp/portage/dev-scheme/stalin-0.11/image/ category dev-scheme
>/var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11/include /var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11
>/var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11
>/var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11/benchmarks /var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11
>/var/tmp/portage/dev-scheme/stalin-0.11/work/stalin-0.11
>>>> Completed installing stalin-0.11 into /var/tmp/portage/dev-scheme/stalin-0.11/image/
>
> * Tinderbox QA Warning! Possibly bundled libraries
>GC_stdout  /var/tmp/portage/dev-scheme/stalin-0.11/image/usr/lib/stalin/stalin
> * Tinderbox QA Warning (end)! Possibly bundled libraries
>
> * QA Notice: Files built without respecting LDFLAGS have been detected
> *  Please include the following list of files in your report:
> * /usr/lib/stalin/stalin
>
>
> * QA Notice: Package has poor programming practices which may compile
> *            fine but exhibit random runtime failures.
> * ./setjmp_t.c:57:5: warning: function returns address of local variable
> * ./mark_rts.c:379:5: warning: function returns address of local variable
>
> * Please do not file a Gentoo bug and instead report the above QA
> * issues directly to the upstream developers of this software.
> * Homepage: http://community.schemewiki.org/?Stalin
> * In //usr/share/doc/stalin-0.11 you will find the make-hello and
> * hello.sc files(compressed). If you put them in the same directory
> * and run make.hello, it will produce a "hello" executable.
> * The "make-hello" file can be used as an example of how to use
> * stalin to compile code and create efficient executables. 
> * man stalin , for documentation

Actions: View

Attachments on bug 336532: 246540