Find the sum of the digits in the number 100! 

*Main Data.Char> sum.map digitToInt.show$foldl (*) 1 [1..100]
648