(let ((var 0))
  (loop initially
        (slynk-mrepl:send-prompt)
        for i from 0
        until (= var 1)
        do (slynk:process-requests t)))