(do*((e(read))(i(- e)))((=(incf i)e))(format t"~V@{*~}
"(- e(abs i))t))