added haskell solution for euler 53.