SHA-1 Hash in Pure Prolog

Very particular circumstances led me to wanting a pure-Prolog implementation of SHA-1; if you're in the same boat, this may be useful!