function retval = tst_loop ()
 for i = 1:1e3
   for j = 1:1e3
     x = i + j;
   endfor
 endfor
 retval = x;
endfunction
