Password Prompt, lisp

(define readline (lambda ()
    (readline_h "")
))
(define readline_h (lambda(n)
    (let ((ch (read-char)))(cond ((eof-object? ch) n) (#t
    (let ((c (string ch)))
      (cond
        ((or (string=? c "\n") (string=? c "\r"))
            n
        )
        (#t
            (readline_h (string-append n c))
        )
      )
    )
)))))
(define password (lambda argv
    (cond
        ((= (length argv) 1)
            (password (car argv) -1 "")
        )
        ((= (length argv) 2)
            (password (car argv) (car (cdr argv)) "")
        )
        ((= (length argv) 3)
            (let ((pass (car argv)) (x (car (cdr argv))) (guess (car (cdr (cdr argv)))))
                (cond
                    ((string=? guess pass)
                        "Correct!\n"
                    )
                    ((= x 0)
                        "Sorry, too many tries.\n"
                    )
                    (#t
                        (let ((n (display "Enter Password: "))) (password pass (- x 1) (readline)))
                    )
                )
            )
        )
    )
))
(display (password "Mason" 3))