(use honu)

(let ((data
       (with-input-from-file "Toplevel.java"
	 (lambda ()
	   (read-file 
	    (current-input-port) 
	    (lambda (p)
	      (let ((x (read-honu p #t)))
		(pp x) 
		x) ) ) ) ) ) )
  (with-output-to-file "result"
    (cut pp data))
  (assert (equal? data
		  (with-input-from-file "expected" read))))