(defmacro clock (count form)
	`(/ (- (time (dotimes (i ,count) ,form))
	       (time (dotimes (i ,count) NIL)))
	    ,count))