(define error
  (lambda args
    (display "Error:")
    (for-each (lambda (value) (display " ") (display value)) args)
    (newline)
    (reset))))