link factors

procedure main(A)
   limit := \A[1] | 500
   every p := prime() do
      if p < 500 then writes(" ",additive(p)) else break
   write()
end

procedure additive(a)
   a ? (sum := 0, while sum +:= move(1))
   return (isprime(sum),a)
end