Haskell solution to euler25 .