2008-10-28 Problem 20 Project Euler Find the sum of the digits in the number 100! *Main Data.Char> sum.map digitToInt.show$foldl (*) 1 [1..100] 648