(defun fib (n)
       (if (< n 2)
           n
           (+ (fib (- n 1)) (fib (- n 2)))))


(define (show-fib n)
                (say (list 'fib: (roman n) '->
                           (zip '(rtime utime stime ANSWER)
                                (sys-times
                                  (list (lambda () (decimal (fib n)))))))))

(mapcar (range (+ 10 5)) show-fib)

(assert-equal '( . I. I. II. III. V. VIII. XIII. XXI. XXXIIII. )
               (mapcar (mapcar (range 10) fib) roman))