(define-library (test)
  (import (scheme base))
  (import (scheme write))

  (begin
    (guard
     (ex ((error-object? ex)
          (display "[error] ")
          (display (error-object-message ex))
          (newline)
          (display "[irritants]")
          (newline)
          (for-each (lambda (irritant)
                      (display irritant)
                      (newline))
                    (error-object-irritants ex))))
     (error "An error without irritants"))))