(let ((callin (callback-lambda void ((float f) (int i) (int ii))
	        (print (format "~A + ~A + ~A = ~A" f i ii (+ f i ii))))))
   (callin 0.1 2 3)
   (dispatch-later callin))