(benchmark** [identity empty? list? seq? first rest next seq]
           (concat (list (slow-computation))
                   (list (slow-computation) (slow-computation))))

; ========================================================================
(concat
 (list (slow-computation))
 (list (slow-computation) (slow-computation)))
; seq : "Elapsed time: 0.019 msecs"
; next : "Elapsed time: 0.028 msecs"
; rest : "Elapsed time: 0.02 msecs"
; first : "Elapsed time: 0.024 msecs"
; seq? : "Elapsed time: 0.012 msecs"
; list? : "Elapsed time: 0.02 msecs"
; empty? : "Elapsed time: 0.025 msecs"
; identity : "Elapsed time: 0.011 msecs"

nil
lazier.core> (benchmark* [identity empty? list? seq? first rest next seq]
           (concat (list (slow-computation)) (list (slow-computation) (slow-computation))))

; ========================================================================
(concat
 (list (slow-computation))
 (list (slow-computation) (slow-computation)))
; seq : "Elapsed time: 1500.205 msecs"
; next : "Elapsed time: 1500.356 msecs"
; rest : "Elapsed time: 1500.212 msecs"
; first : "Elapsed time: 1500.307 msecs"
; seq? : "Elapsed time: 1500.311 msecs"
; list? : "Elapsed time: 1500.281 msecs"
; empty? : "Elapsed time: 1500.171 msecs"
; identity : "Elapsed time: 1500.275 msecs"