(discard-input) avoids getting stuck.