(do((i #1=(read-line)#1#)(b()`(,@b,i)))((not(listen))(format t"~A ~{~A ~}"i b)))