RosettaCodeData/Task/Keyboard-input-Flush-the-keyboard-buffer/Forth/keyboard-input-flush-the-keyboard-buffer.fth

: flush-keys begin key? while key drop repeat ;