Here's my somewhat obfuscated version of same.

https://gist.github.com/kbob/f46776fdc950e6a948b04c76bc23e87...