While   unmarked set
 Select  
 while  
Select  
  
  do significance
  if significance is “positive”,
      set
proc significance  
calculate square of Euclidean distance
If  ,
   report “positive”
Algorithm 1