(dolist (distance distances)
(multiple-value-bind (near far dof mag blur) (dof focal-length f-stop distance coc
:units units)
+ (declare (ignorable dof mag blur))
(when (minusp far) (setq far "Inf "))
(format output "~5F/~5F " near far)))
(format output "~%")))