http://planet-compats.racket-lang.org/static/planet-gfb-structured-loops1.plt
4a30c078c65d0c0aa48d157aed5c779b08b7c995