58 in Haskell

Turns out it can be done quickly with loops / accumulators instead of fancy
lazy evaluation. Silly Haskell.