(jvm-init)
(pp (java-vm))
(pp (jni-env))

(let loop ((counter 1)
	   (test-class (class java.lang.Class)))
  (jprint counter " " test-class)
  (delete-global-ref test-class)
  (loop (+ counter 1) (class java.lang.Class)))
(jvm-destroy (java-vm))