-- 2^15 = 32768 and the sum of its digits is 3 + 2 + 7 + 6 + 8 = 26.
--
-- What is the sum of the digits of the number 2^1000?

import ProjectEuler (digitSum)

main = do
    let result = digitSum $ 2 ^ 1000
    putStrLn $ "Project Euler, Problem 10\n"
        ++ "Answer: " ++ (show result)