(do((a #1=(read-line)#1#)(c()`(,@c,a)))((not(listen))(mapc'write-line`(,a,@c))))