main = print . sum . map ((read :: String -> Int) . (:[])) . show $ factorial 100
main = print . sum . map ((read :: String -> Int) . (:[])) . show $ factorial 100
main = print . sum . map ((read :: String -> Int) . (:[])) . show $ factorial 100