Here's my attempt at implementing the same functionality in Haskell: https://gist.github.com/1062472

I tried to make it short, but still somewhat readable, so it's not completely "golfed".