Small func to compute running time of a Red/Rebol code

dt.red

Red [
	title: "Compute the time taken to run a code a number of times."
	author: "Didier Cadieu"
]

dt: func [n [integer!] code [block!] /local st] [
	st: now/time/precise
	loop n code
	print [n "loops in" st: now/time/precise - st " => one in" st / n]
]

; Usage:
; red>> dt 10000 [4 * random 100 / sine pi]
; 10000 loops in 0:00:00.014000001  => one in 0:00:01.401e-6