From norvig.com/lispy.html, fully working Scheme.