Well, this Haskell one is even faster...