(loop(princ(if(find(set'c(read-char))" 
")(if(find(peek-char)"bBw")c"")c)))