(define-condition program-error (error) ())
(define-condition parse-error (error) ())
(define-condition control-error (error) ())
(define-condition program-error (error) ())
(define-condition parse-error (error) ())
(define-condition control-error (error) ())