(apply'map()(lambda(&rest x)(format t"~{~C~}
"x))(loop while(listen)collect(read-line)))