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