(let ((*print-pretty* nil))
(format t "~{~A ~}" tmp))
かな