(whiler line (readline file) nil ...)
(whilet line (readline file) ...)
Thanks.
-----
(whilet var test ...)
(whiler var expr endval ...)
So every time you have a call to
(whiler value (function) nil ...)
(whilet value (function) ...
(whiler input (readline) "quit" (do-stuff-with-input-from-user input))