# will need to install class hierarchy, just hardcode a few things for now [hear] (define java (? x / ? y / (cond ((= (y) String) (java-string)) ((= (y) Object) (java-object)) (java-object))));
# really ought to go back and be clear about eager/laziness issues [hear] (define state-machine-test2 (? x (cond ((= (x) 1) (java-test1 set 20)) ((= (x) 2) (java-test1 set 40)) ((= (x) 3) (java-test1 set 60)) 0)));