(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))
-----