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