Scheme while (11/48)

Scheme while