Comment by GregorBrandt

And a modern implementation can be found here: https://wordtsar.ca