procedure divisors(i)
   local divs, j

   divs := set()

   every j := 2 to sqrt(i) do
      if i % j = 0 then {
         insert(divs, j)
         insert(divs, i / j)
         }

   suspend !sort(divs)

end