(flet ((delim (s &rest rest)
         (declare (ignore rest))
         (write-char #\h s)))
  (funcall (formatter "~{~a~^~/delim/~}") t '(1 2 3)))