(do((s(format()"  ~A  "(read-line)))(i 0(1+ i)))(())(princ(if(regexp:match"^#  \\|^  \\?#"s :start i)"#"" ")))