http://stuff.mit.edu/afs/sipb/project/sipb-athena/src/mh/miscellany/compress-4.0/compress.c