(format t"~{~a~*~}"(coerce(read-line)'list))