(read)which returns whatever is typed.
read acts as a parser, converting characters to numbers if necessary.
(define prompt
(lambda (prompt-string)
(newline)
(display prompt-string)
(newline)
(read)))
Now prompt returns whatever read returns.
(prompt "Please type something now: ")
Please type something now: 13
13