Scheme while (34/48)

Scheme while