I note that your language has too many parenthesis. May I suggest a language with fewer?

(loop for value = 0 then (read)
      until (= value -9999)
      summing value)