/*  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.
