hello world 3

hello-3.lisp

; define a function to ask for a name
($define! ask-name ($lambda () 
  ($sequence 
    (display "name? ")
    (read-line))))

; define a function to build the message
($define! build-message ($lambda (name)
  (string-append "Hello " name "!\n")))

; bind the input to a variable
($let ((name (ask-name)))
  ; build the message and bind it t a variable
  ($let ((message (build-message name)))
    ; display the message
    (display message)))