Project Euler Problem 020

import Data.Char
ans1 :: Int
ans1 = sum $ map digitToInt $ show $ product [1..100::Integer]
-- 648
main :: IO ()
main = print ans1