%begin
%integer gap,lim
%integerfn timeout(%integer k)
  %result = (gap-k)*k
%end
%routine do
%integer i,j,k=0
  %for i = 1,1,lim %cycle
    j = timeout(i)
    k = k+j
    write(i,5); write(j,6); write(k,7)
    write(j*500,8); write(k*500,9); newline
  %repeat
%end
%cycle
  prompt("Gap:"); read(gap)
  prompt("Lim:"); read(lim)
  printstring("Dubious") %and newline %unless gap>2*lim
  do
%repeat
%end