(defun floats-string (float-or-floats &optional (precision 3))
  (with-output-to-string (s)
    (loop :for (float . more) :on float-or-floats
          :do (format s "~,VF~@[~* ~]" precision float more))))