Scheme while (8/48)

Scheme while