for x to 100000 do

print(x);

#environ.gc();

fib := proc(n) is
   #feature reminisce;  # creates a read-write remember table
   if n = 0 or n = 1 then return 1 fi;  # exit conditions
   return fib(n-2) + fib(n-1)
end;

rtable.rinit(fib);

for i to 100000 do
   if fib(50) <> 20'365'011'074 then
      print('Error in remember table, 1')
   fi   
od;

od;
