(import std.Sys)

(let work (fun (x) (sys:sleep (random x (* 2 x)))))

(let timer (fun (f) {
  (let start (time))
  (f)
  (- (time) start) }))

(print (timer (fun () (work 50))))