Replace `read-input' by `read-string'.