A public domain implementation of block sort