TCL bindings for snappy, a fast compressor/decompressor.
Contact: neophytos (at) gmail (dot) com
snappy-tcl git repo
There's also this binding.