4 is the number of bins. do you need the contents of the bins ? also , the code at the link you indicated is ancient Perl4 code, you don't want to use that.