Code that makes 'gforthmi' choke on SEGFAULT

variable names-pos 0 names-pos !
variable chunks-pos 0 chunks-pos !

: names ( -- addr u )
	s" n.b" ;

: chunks ( -- addr u )
	s" c.b" ;

: log ( c-addr1 u1 c-addr2 u2 -- )
	cr type space type ;

: name@ ( -- c-addr u )
	\ next-arg ;
	;

: block-offset ( u -- offset block# )
	1024 /mod swap ;

: pos-adjust ( u -- addr )
	block-offset block + ;

: >names ( c-addr u -- )
	names open-blocks
	names-pos pos-adjust 2dup !
	cell + swap move
	update ;

: >chunks ( c-addr u -- )
	2drop ;

: main ( -- )
	begin
		name@ 0 0 d<>
		while
				2dup s" Starting to process:" log
				2dup >names 2dup >chunks
				s" Processing finished:" log
		repeat ;

main