(define prompt
  (lambda (str)
    (display str)
    (read)))
(define result
  (lambda (str)
    (display str)
    (newline)))

(define double-super-top-secret-password "PASSWORD")
(define pw double-super-top-secret-password)
(define login
  (lambda ()
    (if (equal? (symbol->string (prompt "Please enter THE password: ")) pw)
        (result "Congratulations, you passed the test.")
        (result "Swords drop from the ceiling and fail you."))))

(define mp
  (lambda ()
    (let* ((name (prompt "What is your name?"))
           (color (prompt "What is your favorite color?"))
           (swallow (prompt "What is the flying speed of a swallow?")))
      (result "Sorry, that was incorrect."))))