Lisp/ProjectEuler: Refactor 37.rkt