http://planet-compats.racket-lang.org/static/planet-dyoo-while-loop1.plt
5d17c5b4440562cca0851303f8287b2eb3924c35