$use Table;
$use Arithm;
$use StdIO;  
$use Dos;  

$table F;

$func Loop s1 = ex;
$func Search s1 = ex ;

Main = <Loop 1>;

Loop s1 =
{ 1 
   $iter  <Bind &F (s1)(s1)> 
          <"+" 1 s1> ::s1,    
   s1 : 10,
   = 
  <PrintLN <Time>>       
/*     ,     */
     <Search 1>; 
}; 

Search s1 =
{ 1 
   $iter { <In-Table? &F "Q"> = 0;  
             <"+" 1 s1>;
         } :: s1,
    s1 : 10, =     
  <PrintLN <Time>>    ; 
};