Oops.
(begin (define x (current-milliseconds)) (print (your-code their-code)) (print (- (current-milliseconds) x)))
Oops.