While we are all posting these types of things, here is a Scheme I did in Prolog: https://github.com/FigBug/scheme