Heat it up!

CL-USER> (let ((heat-this-bitch-up (my-random-int most-positive-single-float)))                                                                                                                           
           (dotimes (n 1000000000)                                                                                                                                                                        
             (setf heat-this-bitch-up (* heat-this-bitch-up (my-random-int most-positive-single-float))))                                                                                                                        
           heat-this-bitch-up)

Still running XD