Scheme/Lisp let and do usage

;; let is a variety lambda function, do treats as c inside the language for circulation.

(let ((in (open-input-file "hello")))
(do ((c (read-char in) (read-char in)))
((eqv? c #\l)

(close-input-port in))
(begin
(display c))
c))