(while(display(regexp-replace-all #/ (?!B|w)/i(read-line)"")))