(define p (delay (error (random 1000))))

(define (force/catch p)
  (handle-exceptions
   ex
   (with-output-to-string (lambda () (print-error-message ex)))
   (force p)))

(define input (list p p p p))

(display (map force/catch input))

(newline)

(exit 0)