Converted to FP Complete Haskell Center
A solution to problem 55 of project Euler