C:\factor>type vocabs.out windows.gdi32 colors.hsv tools.test.private tetris gpu.framebuffers.private central audio.engine.private smalltalk.listener game.worlds math.secant-method webapps.mason.version.source ui.pens.gradient benchmark.typecheck3 benchmark.sum-file dns persistent.hashtables.config urls.encoding stack-checker.visitor ui.gadgets.private benchmark.bootstrap1 redis.command-writer.private project-euler.065 specialized-arrays.instances.elf.Elf64_Shdr project-euler.097 project-euler.008.private colors.constants.private math.splines.viewer.private vocabs.prettyprint alien.fortran concurrency.exchangers specialized-arrays.instances.windows.directx.dxgitype.DXGI_RGB compiler.cfg.builder windows.directx.d3dx9shader compiler.tree.propagation.simple log-viewer project-euler.067 db.tuples.private threads.private sbufs.private project-euler.018.private slots.private webapps.site-watcher.watching fonts.syntax project-euler.049 update.util ui.pens.tile specialized-arrays.instances.macho.section_64 bit-arrays.private game.models.half-edge peg.parsers mongodb.connection.private generic.single.private project-euler.079.private math.blas.matrices.private opengl.capabilities wrap.words math.quaternions.private mime.types urls.encoding.tests ! To record to file... "vocabs.out" utf8 "outfile" set 10000000 [ vocabs [ "unicode" head? not ] filter random dup "outfile" get [ stream-print ] [ stream-flush ] bi test "benchmark ui panes.." print "benchmark.ui-panes" run ] times ! To make it crash... "vocabs.out utf8 file-lines [ test "benchmark.ui-panes" run ] each