Scheme code (18/30)

Scheme code