Reading Input from the Keyboard

Use the built-in read procedure:
          (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