(format t "~V@{*~}" (funcall fn i) t)
とかでも行けるかも