(cffi:defcfun ("strfmon" %strfmon) :int
  (s :pointer)
  (max-size :uint)
  (format :string)
  &rest)

(defmacro format-monetary-value (format-string &rest args)
  `(cffi:with-foreign-pointer-as-string (output 128)
     (%strfmon output 128 ,format-string
               ,@(loop for arg in args collect :double collect `(float ,arg 0.0d0)))))