euler 20 in haskell, sum factorial digits