(define (load-and-return file)
	(let ((data '()))
		(load file (lambda (x) (set! data (eval x))))
		data))