:- dynamic n/1.
:- dynamic the_memory_filler_statement/1.

/*  VAX C-Prolog Benchmark Package  */
/*  Copyright 1985 by Tektronix, Inc., and Portland State University  */

memfill(Limit) :-
	abolish(the_memory_filler_statement/1),
	abolish(n/1),
	assert(n(0)),
	repeat,
	retract(n(N)),
	assert(the_memory_filler_statement(N)),
	N1 is N+1,
	assert(n(N1)),
	N1=Limit.