Comment by codr7

Here's a different approach in Common Lisp I wrote a while back:

https://github.com/codr7/whirlog