My attempt to port it in Erlang https://gist.github.com/kaychaks/61b9b860646a6a47375d