It's awful indeed. But it's a translation of what haskell does. The imperative version would be much more readable in any case...