(loop(read)(format t"~V@{~A~:*~}
"(abs(setf s(read-line)a(read)))(if(< a 0)(reverse s)s)))