(defun start ()
  (setf code (get-source-code))
  (loop (let modified-code (modify-code code))
    (if (= (test-code modified-code) 1)
        (break))))

(defun get-source-code ()
  )

(defun modify-code (code)
  )

(defun test-code (code)
  )