fastfunc perf n .
   i = 1
   while i < n
      if n mod i = 0
         sum += i
      .
      i += 1
   .
   if sum = n
      return 1
   .
   return 0
.
for i = 2 to 10000
   if perf i = 1
      write i & " "
   .
.
