(do*((n(read))(i(- n)))((=(incf i)n))(format t"~V@T~V@{*~}
"(abs i)(1-(*(- n(abs i))2))t))