(defmacro retrying (n &body body)
  (alexandria:with-gensyms (i)
    (alexandria:once-only (n)
      `(block out
         (dotimes (,i ,n)
           (block loop
             (handler-bind
                 ((error (lambda (c)
                           (declare (ignore c))
                           (return-from loop))))
               ,@body
               (return-from out))))
         (format t "Exceeded!")))))