(mapc'princ(do((s()`(,(read-char),@s)))((not(listen))s)))