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