El ejemplo que sigue está escrito en Scheme.