#lang plai/gc2/mutator
(allocator-setup "mark-sweep-free-list.rkt" 144)
(import-primitives current-process-milliseconds)
(define (fib n)
  (cond
    [(<= n 1) 1]
    [else (+ (fib (- n 1))
             (fib (- n 2)))]))

(let* ([before (current-process-milliseconds #f)]
       [val    (fib 20)]
       [after  (current-process-milliseconds #f)])
  (- after before))