If you liked that, you might be interested in jpeg decoding in Haskell: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.25.6...

I also found this literate source while looking for that paper again; cool! http://www.imperialviolet.org/binary/jpeg/