Scheme while (41/48)

Scheme while