An experiment in image bin packing written in Haskell