(bind-func divisors "find the proper divisors of n" (lambda (n) (letz ((candidates (range 1 (- n 1)))) (filter (lambda (d) (= (% n d) 0)) candidates))))