(dotimes(i 14)(doseq(x'#.(loop while(listen)collect(read-line)))(ignore-errors(princ(elt x i)))))